Работа с текстом.

[J0n1cK]

Написать программу которая считает кол-во слов в блокноте .txt.


За рание огромное спасибо!!!

[Sazary]

кол-во слов в блокноте

Каком блокноте? Блокнот - приложение.

Где ваши наработки? Что непонятно? Что сложного?
Идете по файлу посимвольно и считаете разделители слов.

[Lawless]

Program slova;
var
sim: char;
f: text;
i,counter: integer;
Begin
counter:= 1;
Assign(f, '.....');
reset(f);
while not eof(f) do begin
inc(i);
read(f,sim);
if sim = ' ' then
inc(counter);
end;
writeln(' slov v tekste - ' , counter);
end.

слова конечно могут разделятся не только пробелом, но я думаю добавить case непроблема

[Sazary]

В принципе, все верно. Но это решение имеет множество ограничений.
Например, слова должны разделяться ровно одним пробелом.

И еще: файл хорошо бы закрывать
А переменная i вам тут вообще не нужна.

[Lawless]

Сообщение от Sazary

В принципе, все верно. Но это решение имеет множество ограничений.
Например, слова должны разделяться ровно одним пробелом.

И еще: файл хорошо бы закрывать
А переменная i вам тут вообще не нужна.

и вправду, даже незнаю зачем i добавил, а закрыть просто забыл