Написать программу, которая считывает текст

[guksm]

Здравствуйте! Помогите плиз ! Очень срочно !
Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв на TURBO PASCAL-e.

[dekameron]

сколько в нем слов,состоящих не более из четырех слов?

[guksm]

Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв

[alex_fcsm]

Вы не поняли: слова состоят из букв, слогов. что вам надо?

[iBuTTHead]

Докатились. Уже не в состоянии написать программу имеющую смысл.)) Слова состоят из букв - Бог, Слова состоят из слов - guksm

[guksm]

Смысл задачи понятно же, ошибочка вышла - не более чем четырех букв

[Stilet]

Считывай построчно

while not eof(f) do begin
 readln(f,s);
 ...
end;

Где f - Text, а s - string.
И используй http://www.programmersforum.ru/showt...369#post398369
для развода строки на слова. В том же цикле проверяй длину полученного слова, и если она менее 4 то выводи на экран.
Смысл ясен?

[Mixim]

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

Здравствуйте! Помогите плиз ! Очень срочно !
Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв на TURBO PASCAL-e.

Уже примерно год не работаю с языком Pascal\Object Pascal, но попробую...заранее извиняюсь, если будет небольшое "комбо" паскаля и C++

program my;
var f:file of string;
s:string;
CountSymbol:longint;
CountWord: longint;
begin
CountWord = 0;
Assign(f, "C:\MyFile.txt");
 while( not(eof(f)) ) do begin
    readln(f, s);
    while(CountSymbol<=length(s)) do begin
        CountSymbol=1;
        while( (s[CountSymbol]<>' ') and(CountSymbol <=length(s)) ) do
             CountSymbol = CountSymbol + 1;
         if(CountSymbol<=4)
              CountWord = CountWord + 1;
    end;
 end;
close(f);
writeln("Количество слов, состоящих из не более чем 4 символов равно", CountWord);
end.

Код примерно такой, но я его не компилировал и не проверял... может быть есть небольшие ошибки и в некоторых местах "прилеплен" язык Си\Си++, но это маловероятно. Старался писать код наиболее понятно и принципиально не использовал "транслит"

[Lovelygirl503]

а на c# как написать?