2.6. Операторы ввода/вывода

2.6.1. Оператор ввода данных

Этот оператор используется для ввода данных с клавиатуры. Формат оператора ввода следую­щий:

Read (<имя_переменной_1>, ..., <имя_переменной_n>);

Значения переменных вводятся с клавиатуры. Их тип должен соответствовать типам тех переменных, которые указаны в списке параметров оператора Read. При выполнении оператора ввода очередной переменной из указанного списка присваивается значение очередного данного. При вводе с клавиатуры данные набираются через пробел.

2.6.2. Оператор вывода данных

Этот оператор используется для вывода данных на экран или на принтер. Формат оператора вывода следующий :

Write (<выражение_1>, ..., <выражение_n>);

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

Замечания:

1. Если после выполнения оператора вывода требуется переход на следующую строку, то вместо оператора Write следует использовать оператор Writeln (от англ.: Write LiNe). Формат его такой же, как и оператора Write.

2. Оператор Read имеет некоторые особенности при вводе информации с клавиатуры, поэтому в этих целях лучше использовать оператор Readln (от англ.: Read LiNe). Этот оператор функционирует аналогично оператору read, но кроме ввода информации реализует еще операцию ввода конца строки.

3. При использовании оператора writeln без параметров в следующем формате:

Writeln;

курсор перемещается в начало следующей строки. С помощью этой конструкции реализуется пропуск строк при выдаче информации.

2.7. Пример линейной программы

Составим программу вычисления площади параллелограмма по координатам трех его вершин (отметим, что хотя в этом случае параллелограмм не восcтанавливается однозначно, площадь его определяется однозначно).

Программа:

program Square; {Вычисление площади параллелограмма с помощью формулы Герона}

var

x1, y1 : integer; { координаты первой точки }

x2, y2 : integer; { координаты второй точки }

x3, y3 : integer; { координаты третьей точки }

a, b, c : real; { длины сторон и диагонали }

p, s : real; { полупериметр и площадь }

begin

Writeln ('Введите координаты вершин параллелограмма');

Readln (x1 , y1 , x2 , y2 , x3 , y3);

a := Sqrt (Sqr (x1 – x2) + Sqr (y1 – y2));

b := Sqrt (Sqr (x2 – x3) + Sqr (y2 – y3));

c := Sqrt (Sqr (x1 – x3) + Sqr (y1 – y3));

p := (a + b + c) * 0.5;

s := Sqrt (p * (p – a) * (p – b) * (p – c)) * 2;

Writeln ('Площадь параллелограмма равна ' , s);

End.

7