Посчитать, сколько строк начинается с заглавной буквы

@Роберт93 · Регистрация: 11.03.2011

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

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

@rangerx · 22.03.2011, 13:28

Pascal

program prog;
 
const
  upperCase: set of char = ['A'..'Z'];
  fileName = 'input.txt';
 
var
  str: string;
  cnt: integer;
  inFile: text;
 
begin
  cnt:= 0;
 
  Assign(inFile, fileName);
 
{$I-}
  Reset(inFile);
{$I+}
 
  if IOResult = 0 then begin;
    while not EOF(inFile) do begin
      ReadLn(inFile, str);
      if str[1] in upperCase then inc(cnt);
    end;
 
    Close(inFile);
 
    WriteLn('result: ', cnt);
  end
  else WriteLn('error: cant`t open file "', fileName, '"');
  ReadLn;
end.

@Роберт93 1 / 1 / 0 Регистрация: 11.03.2011 Сообщений: 19
		1
	Посчитать, сколько строк начинается с заглавной буквы 20.03.2011, 23:21. Показов 2425. Ответов 1 Метки нет (Все метки) Дан текстовый файл ,содержащий строки. найти количество строк, начинающихся с заглавных латинских букв 0

	22.03.2011, 13:28

Опции темы

Посчитать, сколько строк начинается с заглавной буквы

Решение