Работа со строками.даны три слова.Одно из них имеет меньшее количество символов,чем другое.Определить и в

[Ashley]

ПРИВЕТ))))))ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ))))))

даны три слова.Одно из них имеет меньшее количество символов,чем другое.Определить и вывести это слово.

Я решила так)) у меня правельно?)))

program prim3;
label 1,2,3,4,5,6;
var s : string[28];
sl,sl1,sl2,sl3 : string [15]; b:string[1];
min,i,j: integer;
BEGIN
writeln('VVEDITE 3 SLOVO CHEREZ PROBEL');
readln(s);min:=0;writeln('OTVET: ',sl);
i:=0;
1:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 2 else goto 1;
2:sl1:=copy(s,1,i-1);
writeln(sl1);
j:=i+1;
3:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 4 else goto 3;
4:sl2:=copy(s,j,i-j);writeln(sl2);
j:=i+1;
5:b:=copy(s,i,1);
if b='*' then goto 6 else goto 5;
6:sl3:=copy(s,j,i-j);writeln(sl3);
min:=length(sl1); sl:=sl1;
if length(sl2) < min then begin
min:=length(sl2);
min:=length(sl2);sl:=sl2;end;
if length(sl3) < min then begin min:=length(sl3);
min:=length(sl3);sl:=sl3;end;
readln;
End.
Плиз))помогите)))

[Terran]

Ваш код работает неверно и он достаточно большой. Я думаю Вам будут проще сделать так:

Program prim3;;
Var
S,T,R,E: String;
Begin
WriteLn('Vvedite slovo cherez probel');
ReadLn(S);
T:=Copy(S,1,Pos(' ',S)-1);
Delete(S,1,Pos(' ',S));
R:=Copy(S,1,Pos(' ',S)-1);
Delete(S,1,Pos(' ',S));
E:=Copy(S,1,Length(S));
If (Length(T) <= Length(R)) And (Length(T) <= Length(E)) Then
WriteLn('Otvet = ',T);
If (Length(R) <= Length(T)) And (Length(R) <= Length(E)) Then
WriteLn('Otvet = ',R);
If (Length(E) <= Length(T)) And (Length(E) <= Length(R)) Then
WriteLn('Otvet = ',E);
ReadLn;
End.

[Ashley]

Спасибо))) ты супер!!!!!

[Terran]

Не за что.

[Ashley]

А реши мне еще ,пожалуйста, 2 задачи с процедурами)))
мне очень нужно,а я не понимаю как решать(((((

В матрице сформировать массив,состоящий из номеров строк,в которых
сумма элиментов меньше или равна заданой величине А.Найти минимальный элемент в этих строках и прибавить его ко всем элементам матрицы.

Даны два массива.Требуется сформировать на их основе два новых массива,состоящие только из положительных элементов исходных массивов.Новые массивы вывести.

[Terran]

По матрицам я не спец. Лучше спросите на форуме.

[Ashley]

ПРИВЕТ))))))ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ))))))

даны три слова.Одно из них имеет меньшее количество символов,чем другое.Определить и вывести это слово.

Я решила так)) у меня правельно?)))

program prim3;
label 1,2,3,4,5,6;
var s : string[28];
sl,sl1,sl2,sl3 : string [15]; b:string[1];
min,i,j: integer;
BEGIN
writeln('VVEDITE 3 SLOVO CHEREZ PROBEL');
readln(s);min:=0;writeln('OTVET: ',sl);
i:=0;
1:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 2 else goto 1;
2:sl1:=copy(s,1,i-1);
writeln(sl1);
j:=i+1;
3:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 4 else goto 3;
4:sl2:=copy(s,j,i-j);writeln(sl2);
j:=i+1;
5:b:=copy(s,i,1);
if b='*' then goto 6 else goto 5;
6:sl3:=copy(s,j,i-j);writeln(sl3);
min:=length(sl1); sl:=sl1;
if length(sl2) < min then begin
min:=length(sl2);
min:=length(sl2);sl:=sl2;end;
if length(sl3) < min then begin min:=length(sl3);
min:=length(sl3);sl:=sl3;end;
readln;
End.
Плиз))помогите)))[/QUOTE]