Определить количество слов, в каждом слове – количество букв

Posted by obzor under Delphi

Составить программу, которая по введенной фразе определяет количество слов, в каждом слове – количество букв и заменяет в заданной фразе все пробелы на цифру «5».

Aleksandr H.

var i:byte;
a:array[1..100] of string;
count:byte;s:String;w:string;

begin
 s := 'fas asdf fsd fs';
 w := '';
 if s[length(s)]<>' ' then s:=s+' ';
 for i:=1 to length(S) do
 begin
   if s[ i]<>' ' then w:=w+s[ i]
   else
    begin
    if w<>'' then begin
      inc(count);
      a[count]:=w;
      w:='';
      writeln(a[count],' : ',length(a[count]));
    end;
    s[ i]:='5';
    end;
 end;
 writeln('words ',count);
 writeln(s);
 readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)