В заданном предложении символы самого длинного слова заменить символами «*»

@ChUv@chok · Регистрация: 26.03.2012

Студворк — интернет-сервис помощи студентам

В заданном предложении символы самого длинного слова заменить символами «*». Напечатать исходный и преобразованный тексты. Результат вывеДИТЕ

@Puporev · 25.04.2012, 14:31

Pascal

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    n,i,k,mx,i1:byte;
begin
clrscr;
writeln('Введите предложение');
readln(s);
n:=length(s);
i:=1;
mx:=0;
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while (k<=n)and not(s[k] in rz) do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  if length(s1)>mx then {если длина больше макс}
   begin
    mx:=length(s1);
    i1:=i;
   end;
 i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;
writeln('Самое длинное слово ',copy(s,i1,mx));
for i:=i1 to i1+mx-1 do
s[i]:='*';
writeln('Замена');
write(s);
readln
end.

@ChUv@chok -7 / 0 / 0 Регистрация: 26.03.2012 Сообщений: 25
		1
	В заданном предложении символы самого длинного слова заменить символами «» 25.04.2012, 01:03. Показов* 1666. Ответов 1 Метки нет (Все метки) В заданном предложении символы самого длинного слова заменить символами «*». Напечатать исходный и преобразованный тексты. Результат вывеДИТЕ 0

Опции темы

В заданном предложении символы самого длинного слова заменить символами «*»

Решение