Программа
USES Crt; { Подключение модуля Crt }
VAR FileName:string[79]; { Имя файла }
F:text; { Файл }
Symbol:char; { Искомый символ }
FUNCTION Meter(var F:text;Symbol:char):integer;
{ Функция подсчета количества символов Symbol в файле F }
Var MeterBuf:integer; { Счетчик }
SymbolBuf:char; { Читаемый из файла символ }
Begin
MeterBuf:=0; { Сброс счетчика }
Reset(F); { Открытие файла для чтения }
while not EOF(F) do
begin
Read(F,SymbolBuf); { Чтение символа из файла }
if SymbolBuf=Symbol { Если прочитанный символ совпадает с исходным }
then Inc(MeterBuf){ то подсчет количества символов }
end;
Close(F); { Закрытие файла }
Meter:=MeterBuf { Определение значения функции }
End;
FUNCTION ReaderKey:char; { Функция чтения символа с клавиатуры }
Var Ch:char; { Считываемый символ }
Begin
repeat
Ch:=ReadKey { Чтение клавиатуры }
until Ch in [#27,'А'..'Я','а'..'я'];
ReaderKey:=Ch { Определение значения функции }
End;
BEGIN
ClrScr; { Очистка экрана }
Write('Введите имя файла '); { Вывод приглашения ввести имя файла }
ReadLn(FileName); { Ввод имени файла }
Assign(F,FileName); { Связывание файловой переменной с именем файла }
Symbol:=ReaderKey; { Чтение символа с клавиатуры }
while Symbol<>#27 do
Begin
WriteLn('В файле ',FileName,' символов "',Symbol,'" ',Meter(F,Symbol));
Symbol:=ReaderKey { Чтение символа с клавиатуры }
End
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию