насчет алгоритма прошу вас оставить его без изменений(именно нахождение слов) ибо не хочу рисковать !а после нахождения слов и записи в переменую начинаются трудности !
заранее благодарен.
код:
Код: Выделить всё
program prim2;
label 1,2,3,4,5,6,7,8,9,10,11,12,13,kon;
var s:string[20];
b:string[1];
sl1,sl2,sl3,sl4:string[6];
i,j,P1,P2,P3,P4:integer;
BEGIN
writeln('Введите четыре слова через и в конце тоже поставьте пробел!!! ');
read(s);
{P1:=0;P2:=0;P3:=0;P4:=0;}
writeln('ОТВЕТ');
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:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 6 else goto 5;
6:sl3:=copy(s,j,i-j);
writeln(sl3);
j:=i+1;
7:i:=i+1;
b:=copy(s,i,1);
if b=' ' then goto 8 else goto 7;
8:sl4:=copy(s,j,i-j);
writeln(sl4);
writeln;
if (sl1=sl2) or (sl1=sl3)or (sl1=sl4) then begin P1:=1;
write(sl1);
end
else begin
if (sl2=sl1) or (sl2=sl3) or (sl2=sl4) then begin P2:=1;
write(sl2);end;
end;
if (sl3=sl1) or (sl3=sl2) or (sl3=sl4) then begin P3:=1;
write(sl3);
end
else begin
if (sl4=sl1) or (sl4=sl2) or (sl4=sl3) then begin P3:=1;
writeln(sl3);end;
end;
if P1=1 then goto 9;
if P2=1 then goto 10;
if P3=1 then goto 11;
if P4=1 then goto 12;
9:begin writeln('Одинаковые слова есть -');
writeln(sl1);end;
goto kon;
10:begin writeln('Одинаковые слова есть-');
writeln(sl2);end;
goto kon;
11:begin writeln('Одинаковые слова есть -');
writeln(sl3);end;
goto kon;
12:begin writeln('Одинаковые слова есть -');
writeln(sl4);end;
goto kon;
begin writeln('Одинаковых слов нет-');end;
goto kon;
kon:
END.
