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

[Vlad]

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


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

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

[Krjuger]

Гость слишком много слов можно было просто сказать,что я забыл перед циклом написать Reset(fin);
Что bменно тебя заинтересовало?Как рекурсивно проходить пробелы и весь ненужный мусор чтоли?

Код

Procedure probel;
begin
read(fin,ch);
if ch=' ' then{здесь конекретно пробел,а можно и все что тебе не нужно}
probel'
end;

либо

Код

Procedure probel;
begin
if ch=' ' then{здесь конекретно пробел,а можно и все что тебе не нужно}
begin
  read(fin,ch);
  probel'
end;
end;

То какую сделать зависит от того места куда вы холите вставить эту процедуру.проблема первой в данном исполнении заключается в том,что мы будем после удаления вех пробелов в ch иметь первый элемент нашего слова,и выйда из пробела мы уже считываем второй в цикле,в данной программе проблем это не должно создать,но могут быть случаи,когда это вызовет проблемы.

или вы имели в виду рекурсивную реализацию самой задачи?