Задача с использованием файла, нахождение символа в слове Опции

[-Студент-]

Вечер добрый форумчане.
вощем задал препод на первый взгляд не очень сложную задачу , но он у меня вызывает ряд затруднений ...
задание : Подсчитать кол-во слов содержащих хотябы одну букву "m"

вот текст программы , написал что мог

Код

program laba51;
var f1:text;
i:integer;
s:string;
begin
assign(f1,'laba51.txt');
rewrite(f1);
for i:=1 to 5 do begin
readln(s);
writeln(f1,s);
end;
close(f1);
end.

program laba52;
uses crt;
var f1:text;
i,k,l:integer;
s:string;
begin
assign(f1,'laba51.txt');
reset(f1);
k:=0;
while not eof(f1) do
for i:=1 to length(s) do
begin
readln(f1,s);
if s[i]='m' then k:=k+1;
i:=i+1;
end;
writeln ('kol-vo slov = ',k);
close(f1);
READKEY;
end.

если не сложно , исправте пожалуйста ... очень мне поможите

в программе я не реализовал нахождеименно слова ... неполучается это сделать

[Айра]

Но логика работы достаточно запутана.

Женская логика завораживает своей алогичностью (с)

В исходной программе, вроде бы, предполагается, что текст содержит по одному слову на строке

В исходной программе, но в задании об этом ничего не сказано.. Будем ждать разъяснений автора?..

в их число необходимо внасти пробел и символ табуляции

пробела там действительно нехватает.. внесла.. табуляцию внесла бы, если б знала как она выглядит))

Мне кажется, такой алгоритм более прозрачен и подходящ для учебных целей.

Это твое ИМХО, если тебе так понятнее, то делай так, я же сделала как легче мне, тем более каких-то определенных условий по алгоритму в задании нет..

Сообщение отредактировано: Айра - 14.12.2007 22:23