01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 7 лабораторка / 1 задание
.docДана последовательность символов латинского алфавита, заканчивающихся точкой Слова разделяются запятой.
Сосчитать количество слов, начинающихся и заканчивающихся одной и той же буквой.
-
Текст программы.
var
s:string;
i,l,k:integer;
ch,a,b:char;
begin
k:=0;
writeln ('Enter stroky:=');
read(ch);
while ch<>'.' do
begin
s:=s+ch;
read (ch);
end;
s:=s+ch;
l:=length(s);
a:=s[1];
for i:=1 to l do
if (s[i]=',') or (s[i]='.') then begin
b:=s[i-1];
if (a=b) then k:=k+1;
a:=s[i+1];
end;
writeln('Kol-vo slov:=',k);
readln;
readln;
end.
-
Исходные данные: aba, aba, aba. Результата: 3; aba, bbc,dbf. Результат: 1
Текст программы:
var
ch,c,s:char;
i:integer;
begin
i:=0;
repeat
read(ch);c:=ch;
repeat
s:=c;
read(c);
until (c=',') or (c='.');
if ch=s then
inc(i);
until c='.';
writeln('kol-vo slov:',i);
readln;readln;
end.
-
Исходные данные: aba, aba, aba. Результата: 3; aba, bbc,dbf. Результат: 1