Процедуры ввода/вывода. Ввод и вывод данных различных типов.

Для ввода данных используются стандартные процедуры Read и ReadLn:

Read (список) - считывает одно или более значений в одну или несколько переменных

список - имена переменных, разделенные запятыми. Например:

Var a,b,c,d,e : Integer;

Begin

Read (a,b,c);

Read (d,e)

. . .

При выполнении этого фрагмента программы пользователь может вводить числовые данные произвольно, разделяя их пробелами или располагая их на любом количестве строк, например:

1 2

3 4 5

В этом случае процедура Read (a,b,c) прочтет значения переменных a и b из первой строки ввода, переменную c из второй стоки. Процедура Read (d,e) "дочитает" значения переменных d и e из второй строки.

ReadLn (список) - считывает значения переменных, а затем делает пропуск до начала следующей строки

Для вывода Turbo Pascal предоставляет процедуры Write и Writeln.

Write (список) - выводит значения списка в одну строку, после вывода курсор остается в той же строке

WriteLn (список) - выводит значения списка в одну строку, затем переводит курсор на новую строку

Оператор присваивания. Стандартные арифметические функции.

Оператор присваивания заменяет текущее значение переменной новым значением, которое определяется выражением, находящимся справа от знака присваивания:

переменная := выражение

Примеры:

a := 2.3; {переменная a принимает значение равное 2.3} fi := fo - r; {переменная fi принимает значение, равное разности переменных fo и r}

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

Например, оператор присваивания c:=a+b/2 не является допустимым для переменных, описанных как

Var a,b:Real;c:Char;

т.к. переменной символьного типа мы пытаемся присвоить вещественное значение.

Кроме операций, в выражения могут входить функции. Они делятся на стандартные (уже определенные в Turbo Pascal) и определяемые пользователем.

Стандартные арифметические функции.

функция	возвращаемый результат	тип аргумента	тип результата	примечание
Abs	абсолютное значение	Real	Real
Arctan	арктангенс	Real	Real
Cos	косинус	Real	Real
Dec	уменьшение на аргумент	Integer	Integer	без аргумента - уменьшение на1
Exp	экспонента	Real	Real
Frac	дробнаячасть	Real	Real
Inc	увеличение на аргумент	Integer	Integer	без аргумента - увеличение на 1
Int	целаячасть	Real	Integer
Ln	натуральный логарифм	Real	Real
Odd	проверка на четность	Integer	Boolean	четный - True, нечетный - False
Pi	число "Пи"	нет	3.1415926
Round	округление	Real	Integer
Sin	синус	Real	Real
Sqr	квадрат	Real	Real
Sqrt	квадратный корень	Real	Real

Пример использования функций:

d := sqr (b) - 4 * a * c; {выражение для вычисления дискриминанта квадратного уравнения}

z := sin (50 * Pi / 180) {выражение для вычисление синуса 50 градусов}

Следует иметь в виду, что аргумент тригонометрических функций sin и cos, а так же результат обратной тригонометрической функции arctan выражен в радианах. Для перевода радиан в градусы и обратно следует пользоваться следующими формулами:

Rad := Grad * Pi / 180; - перевод градусов (Grad) в радианы (Rad)

Grad := Rad * 180 / Pi; - обратный перевод