Напечатать самое длинное слово предложения - Turbo Pascal

  1. Дано предложение. Напечатать его самое длинное слово (принять, что такое слово — единственное) .


textual

Код к задаче: «Напечатать самое длинное слово предложения - Turbo Pascal»

var s:string;
i,m,z,n:integer;
k,b1,b2:array[1..100] of integer;
begin
readln(s); b1[1]:=1;
for i:=1 to length(s) do
begin z:=z+1;
if (s[i]=' ') or (i=length(s)) then begin m:=m+1; k[m]:=z-1; z:=0; b1[m+1]:=i+1; b2[m]:=i-1; end;
end;
k[m]:=k[m]+1; z:=k[1]; b2[m]:=length(s); n:=1;
for i:=1 to m do
if k[i]>z then begin z:=k[i]; n:=i; end;
for i:=b1[n] to b2[n] do
write(s[i]);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5



Похожие ответы
  1. Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990г.

  1. Подскажите как решить эту задачу на паскале с помощью строк. 1.Дан текст, слова в котором разделены хотя бы одним пробелом. Найти самое короткое слово в тексте.

  1. Напечатать числа в виде следующей таблицы: 2 3 4 5 6 7 8 9 10 3 4 5 6 7 8 9 10 4 5 6 7 8 9 10 .................. 9 10 Напечатать числа в виде следующей таблицы: 5 5 5 5 5 10 10 10 10 15 15 15 20 20 25 Напечатать числа в виде следующей таблицы: 101 102 103 104 105 111 112 113 114 115 121 122 123 124 125 ................................ 161 162 163 164 165 Напечатать числа в виде следующей таблицы: 51 52 53 ...58 41 42 43 .... 48 ..................... 21 22 23....28

  1. Составить программу. Задача. В двумерном массиве A(m,n) найти самое маленькое по модулю значение и вычесть его из всех элементов массива.

  1. Напечатать элементы заданной матрицы А(N, N) в следующем порядке: (смотреть вложение)

  1. Прошу помощи с заданием, заранее спасибо! Смог разобраться с процедурой нахождения старшего мужчины в группе, но тут встрял. Используя следующий фрагмент программы, опишите перечисленные ниже процедуры:

  1. дано натуральное число n(n<=1000). напечатать это число русскими словами.(например: двести сорок один)

  1. Дано предложение.получить предложение,в котором самое длин.слово записано наоборот

  1. Для файла f1 содержащего символьную информацию , найти самое длинное слово и номер строки в которой оно находиться

  1. Помогите пожалуйста решить задачу. Только без массива из имени. Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г.