Примеры ввода и вывода данных в файл

Разработать программу чтения трех чисел из файла koef.txt и вывод их произведения в файл rez.txt.

Структура файла koef.txt:

12.7 6.1 0.85

Решение

Шаг 1. Создать текстовый файл koef.txt.

Шаг 2. Записать в файл числа 12.7 6.1 0.85.

Шаг 3. Создать программу чтения чисел 12.7 6.1 0.85 и записи из произведения в файл rez.txt.

Шаг 4. Запустить программу.

Программа

Program ReadFile

Var

{файловые переменные для работы с текстовыми файлами}

f1, f2 : Text;

k1, k2, k3 : Integer;

begin

Assign(f1, ‘koef.txt’); Reset(f1);{открытие файла koef.txt}

Readln(f1, k1, k2, k3);{чтение значений из файла koef.txt}

Close(f1); {закрытие файла koef.txt}

Assign(f2 ‘rez.txt’); Rewrite(f2); {создание файла rez.txt}

{вывод значения произведения в файл rez.txt}

Writeln(f2, ‘Произведение коэффициентов = ’, k1*k2*k3);

Close(f2); {закрытие файла rez.txt}

end.

П1.6. Использование стандартных процедур и функций модулей Crt и Graph в языке Pascal

В языке Pascal используются следующие варианты подпрограмм:

1) стандартные процедуры,

2) стандартные фунции,

3) процедуры пользователя,

4) функции пользователя.

Примеры стандартных процедур: TextMode, Close, Assign. Примеры стандартных функций: sin(x), cos(x), ln(x), exp(x). Стандартные процедуры и функции находятся в соответствующих библиотечных модулях языка. Так, например, процедуры и функции управлении экраном находятся в модуле Crt, процедуры и функции работы с графикой – в модуле Graph. Процедуры и функции пользователя могут включать в себя наборы стандартных процедур и функций.

Работа в текстовом режиме (модуль Crt)

Для использования процедур, которые находятся в модуле Crt необходимо использовать запись: Uses Crt;

Текстовые режимы отображают символы кодовой таблицы ПК. Минимальной единицей управления служит символ. Текстовые режимы устанавливаются процедурой TextMode(режим). Значение режим – номер режима (если режим = 0, то производится установка экрана 25 строк  40 столбцов, если режим = 2, то установка режима 25 строк  80 столбцов). Например, в результате работы процедуры TextMode(2) будет установлен такой текстовый режим, для которого координата Х изменяется от 1 до 80, координата Y – от 1 до 25, координата левого верхнего угла (1, 1).

Процедуры управления экраном

Для управления экраном используются следующие процедуры:

ClrScr, которая очищает экран и помещает курсор в левый верхний угол экрана с координатами (1; 1);

GotoXY(X, Y), помещающая курсор в точку экрана с координатами X (столбец) и Y (строка);

WhereX, возвращающая X координату текущей позиции курсора (результат целочисленный);

WhereY, возвращающая Y координату текущей позиции курсора (результат целочисленный).

Например, если курсор находится в 70-ом столбце во 2-й строке, то результатом выполнения следующих операторов

A := WhereX;

B := WhereY;

Будет A = 70, B = 2.

П 1.7. Процедуры и функции пользователя

Подпрограмма пользователя (процедура, функция) – это независимая поименованная части программы, предназначенная для выполнения определенных действий. После однократного предварительного описания подпрограмму при необходимости можно вызвать из любой позиции программы. По структуре ее можно рассматривать как мини-программу. Функция аналогична процедуре, но имеется два отличия:

1) функция передает в точку вызова скалярное значение (результат своей работы);

2) имя функции может входить в выражение как операнд, т. е. может использоваться в выражениях с различными вычислениями.

Описание подпрограммы

Описание подпрограммы включает заголовок (имя) и тело подпрограммы.

Заголовок процедуры состоит из зарезервированного слова Procedure, идентификатора (имени) процедуры и необязательного заключенного в круглые скобки списка формальных параметров с указанием типа каждого параметра.

Procedure <имя> {(формальные параметры)};

Uses …

Type …

Var

< описание локальных переменных >

Begin

< раздел операторов >

End;

Заголовок функции содержит зарезервированное слово Function, идентификатор (имя) функции, заключенный в круглые скобки, необязательный список формальных параметров с указанием типа каждого параметра и тип возвращаемого функцией значения.

Function <имя> {(формальные параметры)} : Тип результата;

Uses …

Type …

Var

< описание локальных переменных >

Begin

<раздел операторов>

End;

Например, Function Prov(x, y, z : Integer) : Real;

В разделе операторов должен находиться по крайней мере один оператор, присваивающий идентификатору (имени) функции значение.

Когда подпрограмма выполнит свои действия, программа продолжится с оператора, следующего непосредственно за оператором вызова процедуры.

Обращение к процедуре или функции производится с помощью оператора вызова:

Имя процедуры или функции (список фактических параметров);

Оператор вызова состоит из идентификатора (имени) процедуры или функции и списка фактических параметров, отделенных друг от друга запятыми и заключенных в скобки. Фактические параметры должны быть тех же типов и указаны в том же порядке, что и в описании подпрограммы.

Пример (программа с использованием процедуры без входных и выходных параметров). Написать программу с использованием процедуры, которая на центр экрана периодически (100 раз) выводит слово «Справочник».