Подсчитать кол-ство слов в тексте

@Orisava · Регистрация: 24.01.2010

Author24 — интернет-сервис помощи студентам

Прошу помочь подсчитать кол-ство слов из загружаемого текстового файла. У меня есть программка на подсчёт пробелов, но написано она както кривовато и поэтому переделать я её немогу. Может кто-нибудь помочь? если надо могу выложить текст моей программки.

@John_Pa9JIbHuK · 09.11.2010, 23:22

Вот что дает гугл

Delphi

Ввести предложение длиной не более 80 символов и подсчитать количество слов в нем и количество букв "а". Будем считать, что одно слово от другого отделяется одним пробелом.
 
Program Predl;
Var
 Pr : String;
 i, n, Ks, Ka : Integer;
 
Begin
 Ks := 0;
 Ka := 0;
 Write('Введите предложение');
 Readln(Pr);
 n := Length(Pr); {Длина предложения}
 For i := 1 to n do
 If Pr[i] = ' ' Then
   Ks:= Ks + 1
 Else
   If Pr[i] = 'a' Then
     Ka := Ka + 1;
 If Pr[n]<> ' ' Then
  Ks:=Ks+1; {если в конце предложения нет пробела}
 Writeln('Количество слов в предложении равно ',Ks,
           'количество букв а - ',Ka);
End.

@Orisava 14 / 14 / 0 Регистрация: 24.01.2010 Сообщений: 34
		1
	Подсчитать кол-ство слов в тексте 09.11.2010, 23:11. Показов 1136. Ответов 1 Метки нет (Все метки) Прошу помочь подсчитать кол-ство слов из загружаемого текстового файла. У меня есть программка на подсчёт пробелов, но написано она както кривовато и поэтому переделать я её немогу. Может кто-нибудь помочь? если надо могу выложить текст моей программки. 0

	09.11.2010, 23:22

Подсчитать кол-ство слов в тексте

Решение