Структуры данных. Строки - 21 стр.

UptoLike

Составители:

Рубрика:

program S_10_1;

var S:string; k:integer;

function S101(var S: string):integer;

var i,n,k:integer;

begin

n:= ord(S[0]);

k:=0;

for i:=1 to n do

if(S[i]<>' ')and((i=n)or(S[i+1]=' '))

then k:=k+1;

S101:=k

end;

begin

writeln ('Введите строку');

readln (S);

k:=S10l(S);

writeln('Количество слов в строке =',k)

end.

Другой вариант подсчета числа слов в строке реализован в виде функции

S102( S ). Здесь логическая переменная flag определяет начало слова: либо на-

чало строки, либо первый символ, отличный от пробела, следующий после про-

бела.