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');
|
