Файлы (подсчет количества слов)

@Laines · Регистрация: 21.01.2010

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

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

@Puporev · 09.04.2010, 19:24

Pascal

uses crt;
var f,g:text;
    i,k:integer;
    name,s:string;
    c:char;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('На какую букву искать слова c=');
readln(c);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
  if (s[i]=c)and((s[i-1]=' ')or(i=1)) then k:=k+1;
 end;
close(f);
write('Слов на букву ',c,'=',k);
readln
end.

@Laines 1 / 1 / 0 Регистрация: 21.01.2010 Сообщений: 16
		1
	Файлы (подсчет количества слов) 09.04.2010, 17:45. Показов 2715. Ответов 1 Метки нет (Все метки) Написать программу, которая подсчитывает количество слов, начинающихся на заданную букву в созданном тестовом файле. 0

	09.04.2010, 19:24

Файлы (подсчет количества слов)

Решение