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

@123Roman · Регистрация: 27.04.2014

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

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

@Puporev · 30.04.2014, 21:20

Pascal

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

@123Roman · 30.04.2014, 23:45 **[ТС]**

спасибо

@123Roman 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 77
		1
	В предложении символы самого длинного слова заменить символами «» 30.04.2014, 20:18. Показов* 1641. Ответов 2 Метки нет (Все метки) В заданном предложении символы самого длинного слова заменить символами «*». Напечатать исходный и преобразованный тексты. Результат вывести на экран и в текстовый файл. 0

@123Roman 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 77
	30.04.2014, 23:45 [ТС]	3
	спасибо 0

Опции темы

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

Решение