. Програмування рядкових величин

delete(s,4,3); {s=’прома’}

…

end.

Розглянемо приклад алгоритмів опрацювання рядкових величин із застосуванням наведених функцій.

Заданий текст (рядкова величина), слова якої розділені символом “пропуск”.

1. Знайти кількість слів у тексті.

2. Надрукувати окремо з нового рядка кожне слово тексту.

3. Знайти i надрукувати найдовше слово тексту.

program strings;

uses crt;

var s,t:string;

i,k:integer;

procedure kol(s:string; var k:integer);

{ процедура знаходження кiлькостi слiв у текстi ( текст мiстить хоча б одно слово }

var i,n:integer;

begin

k:=1;

n:=length(s);

for i:=1 to n do

if s[i]=’ ‘ then k:=k+1;

end;

procedure druk(s:string);

{ процедура друкування слів тексту }

var n:integer;

s1:string;