Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland

International

Qqwerr ttttt aaaa ss dddd

S d f g. h j

S d ffffff

 

Рис. 8.3. Результат работы PRG8_2

Задача 8.3 Прочитать файл TWO и определить, сколько раз в нем встречается буква "а ";.

PROGRAM PRG8_3;

VAR Fl: TEXT;

X: CHAR;

К: INTEGER;

BEGIN

K:=0;

ASSIGN(F1, 'TWO');

RESET(F1);

WHILE NOT E0F(F1) DO

BEGIN

READ(F1, X);

IF (X = 'a') OR (X = 'A') THEN К:= K+1;

END;

WRITELN('КОЛИЧЕCTBO БУКВ А:', K);

CLOSE(F1);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- привяжем файл TWO к файловой переменной F1 и откроем его на чтение;

- организуем цикл по считыванию элементов файла F1 и под­счете количества букв "а" до тех пор, пока не будет найден конец файла F1 с помощью функции EOF(Fl);

- выводим результат;

- закрываем файл.

Переменные:

F1 - текстовый файл;

X - очередной элемент файла;

К - счетчик количества букв.

 

Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland

International

КОЛИЧЕСТВО БУКВ А: 2

 

Рис. 8.4. Результат работы PRG8_3

Задача 8.4 Прочитать файл ONE и найти сумму цифр, встречающихся в нем.

В данной задаче, чтобы определить численное значение эле­мента текстового файла, т. е. значение цифры, можно воспользо­ваться тем, что символы являются упорядоченным типом. Коды ASCII цифр следуют один за другим, и значение любой цифры может быть получено как

К:= ORD(X)-ORD('0');

PROGRAM PRG8_4;

VAR F1: TEXT;

X: CHAR;

K, SUM: INTEGER;

BEGIN

SUM:= 0;

ASSIGN(F1, 'ONE');