@Wallz

Как соединить 2 кода в один на паскале?

Есть 2 блока кода на паскале, как можно их объединить?
В итоге должно выйти, чтобы повторяющиеся слова в строке заменялись на три точки ("...")
Первый код
spoiler

var
s:string;
s1:string;
s2:string;
begin
writeln('Строка>'); readln(s);
s:=s+' ';
s2:='';
repeat
s1:=copy(s,1,pos(' ',s)-1); delete (s,1,pos(' ',s));
if (pos(s1,s)>0) and (s1<>' ') and (pos(s1,s2)=0)
then s2:=s2+s1+#32; until length(s)=0;
if s2='' then writeln ('нет повторяющихся слов') else writeln('Повторяющиеся слова:',s2);
end.
5e281bafdc608819489217.png


Второй код
spoiler

var
s,z:string; s1:string; s2:string;
i: byte;
begin
write('Введите текст:'); readln(s);
s:=s+' ';
s2:='';
repeat
s1:=copy(s,1,pos(' ',s)-1);
delete (s,1,pos(' ',s));
if (pos(s1,s)>0) and (s1<>' ') and (pos(s1,s2)=0) then s2:=s2+s1+#32;
until length(s)=0;
if s2='' then writeln ('нет повторяющихся слов') else writeln('Повторяющиеся слова:',s2);
write('На: ');
readln(z);
i:=pos(s2,s);
delete(s,i,length(s2));
insert(z,s,i);
writeln('Сделано: ',s);
end.
5e281bc6b4260608399740.png
  • Вопрос задан
  • 53 просмотра
Пригласить эксперта
Ответы на вопрос 1
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
04 апр. 2020, в 15:43
10000 руб./за проект
04 апр. 2020, в 15:23
5000 руб./за проект