Язык программирования ABC PASCAL

replace:=s; // имени функции присваивается значение

end;

begin

writeln (replace('мама мыла раму','м','н')); // Проверка работы функции

end.

Тип char или string может использоваться для чтения информации из текстового файла, например:

Program ReadText;

Uses CRT;

var name : string; // Имя файла

s : string; // Буфер для чтения строки

f : text; // Файловая переменная

n : integer; // Счетчик строк

begin

write('Введите имя файла: '); readln (name); // Ввод имени файла

assign (f,name); reset (f); // Открытие файла

n:=0; // Обнуление счетчика

while not eof (f) do // Чтение «пока не конец файла»

begin

readln (f,s); // Чтение одной строки из файла f

writeln (n:4,': ',s); // Вывод номера и строки на экран

inc(n); // inc(n) – операция увеличения на единицу

if n mod 25 = 0 then readln; // Пауза после каждой 25-й строки

end;

close (f);

end.

Задание 15

1. С помощью функций ReadKey и Ord напишите программу, которая выводила бы сразу символ и его код по нажатию одной клавиши. (2 балла)

2. Напишите целочисленную функцию с двумя параметрами, подсчитывающую сколько раз символ, заданный вторым параметром, встречается в строке, заданной первым параметром, и проверьте её работу. (2 балла)

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

- 42 -

Для работы с текстовыми строками в языке Pascal существует набор функций, который немного расширен в реализации ABC Pascal. Приведем справочник по этим функциям.

Стандартные процедуры и функции для работы со строками