ЗАДАЧА С ФАЙЛОМ Опции

[Vlad]

Здравствуйте, помогите, пожалуйста решить задачку по паскалю. У меня курсовая в понедельник, а я немогу разобраться! ПОЖАЛУЙСТА!!!


Дано символьный файл f, найти количество слов в файле.

Сообщение отредактировано: Vlad - 21.05.2009 14:40

[Vlad]

ВСЁ ДОГНАЛ - СПАСИБО ЗА ПОМОЩЬ!!!


uses crt;
var
fin: text;
ch:char;
s:integer;
h:string;
begin
clrscr;
assign (fin,'D:\instal\PASCAL_7\tp7\prog\test.txt');
reset (fin);
while not eof(fin) do begin
readln(fin,h)
end;
writeln(h);
reset (fin);
while not eof(fin) do begin
if ch = ' ' then
S:=S+1;
read(fin,ch);
end;

close(fin);
write(S+1);
readln;
end.

Сообщение отредактировано: Vlad - 21.05.2009 18:30