Страница 1 из 1
Паскаль. Задача. Обработка строк
Добавлено: 23 мар 2010, 19:33
Коршик
Помогите, пожалуйста, с задачкой, а то я с Паскалем ну совсем не дружу
:
Нужно написать программу, которая предлагает ввести текст и некоторую букву и определяет, сколько слов в тексте начинается на данную букву??
Re: Паскаль. Задача. Обработка строк
Добавлено: 23 мар 2010, 20:08
samec2011
Стучите в асю 11один11-5шесть5шесть, обсудим.
Re: Паскаль. Задача. Обработка строк
Добавлено: 23 мар 2010, 23:39
dr.Jekill
Код: Выделить всё
var txt:string;
ch:char;
i,k:integer;
begin
write('text: ');
readln(txt);
write('bukva: ');
ch:=readkey;
write(ch);
k:=0;
for i:=1 to length(txt) to
if (txt[i]=ch) and (txt[i-1]=' ') then inc(k);
writeln('Count: ',k);
readkey;
end.
Re: Паскаль. Задача. Обработка строк
Добавлено: 23 мар 2010, 23:42
dr.Jekill
не забудьте подцепить модуль crt, для этого допишите первой строчкой
Re: Паскаль. Задача. Обработка строк
Добавлено: 24 мар 2010, 10:35
Хыиуду
А если вместо ch:=readkey написать readln(ch), а в конце вместо readkey - readln, то и crt не потребуется