Название: Алгоритмические языки. Понятие алгоритма. Алфавит, идентификаторы, константы, выражения, операции, структура программы (стр. 5 )

П р и м е р

KOR:=2;

RESULT:=SIN(A)+2;

Оператор вывода информации

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

Формат оператора вывода (записи):

WRITE (V1, V2,...,VN);

где V1, V2,..., VN – выражение целочисленного типа, вещественного, символьного, строкового, логического.

В операторе вывода можно указывать также формат данных. Для данных типа REAL это делается следующим образом:

WRITE(VAR1: P: Q);

где VAR1 – выражение типа REAL, P – общее число знакомест, Q – число цифр, выводимых после десятичной точки.

П р и м е р ы

Значение А	Оператор	Результат
210.11	WRITE(A:8:4)	210.1100
-21.7822	WRITE(A:7:2)	_- 21.78

В последнем примере символ «_» означает пробел.

Если выражение имеет тип INTEGER, CHAR, BOOLEAN, то указывается общее число позиций:

WRITE(V1: P);

Для случая вещественного типа выражения и отсутствия указателя числа позиций вывод осуществляется в формате с плавающей точкой, а под число отводится поле шириной 18 символов. Данные типа BOOLEAN, INTEGER, CHAR при отсутствии указателя числа отводимых под результат позиций выводятся, начиная с позиции расположения курсора.

П р и м е р ы

Значение А	Оператор	Результат
123	WRITE(A, A:4,A:4)	123_123_123
‘D’	WRITE(A, A)	DD
TRUE	WRITE(A, A)	TRUE
834.218	WRITE(A)	8.3421800000E+02
-2.111E+01	WRITE(A)	-2.1110000000E+01

Оператор вывода WRITELN действует подобно оператору WRITE, но в отличие от него после вывода значения последнего элемента списка выполняется перевод курсора к началу следующей строки. WRITELN без параметров выполняет перевод курсора к началу следующей строки. Таким образом, оператор WRITELN (V1,...,VN) эквивалентен двум операторам WRITE(V1,...,VN); WRITELN.

Оператор ввода информации

Формат оператора:

READ (VAR1, VAR2, ... , VARN);

где VAR1, VAR2, ... , VARN – идентификаторы переменных. Значения переменных VAR1, VAR2, ... , VARN вводятся с клавиатуры (друг от друга они должны отделяться хотя бы одним пробелом). После набора данных для одного оператора READ нажимается клавиша «Enter». При этом необходимо, чтобы вводимые данные и переменные в операторе READ имели один и тот же тип или совместимый тип.

П р и м е р

Оператор	Набираемый на клавиатуре текст
1. READ (A, B);(A, B – INTEGER)	10 12 <ввод>
2. READ (A, B); READ (C, D); (C, D - INTEGER)	10 12 <ввод> 14 16 <ввод>

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

П р и м е р

Оператор	Набираемый на клавиатуре текст
READLN (A, B); READLN (C, D);	10 12 <ввод> 14 16 <ввод>

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

PROGRAM PRIM5;

VAR

A, B,S:REAL; {A, B – стороны, S – площадь}

BEGIN

READLN(A, B);

S:= A*B;

WRITE(‘для сторон A= ’,A:10:2,‘B= ’, B:10:2,‘_-_’);

WRITELN(‘площадь прямоугольника S=’, S:12:4)

END.

Составной оператор

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

Составной оператор начинается с зарезервированного слова BEGIN и заканчивается словом END, между которыми размещаются требуемые операторы, отделенные друг от друга символом «точка с запятой». После BEGIN ставятся пробелы, а после END – символ «точка с запятой». Операторы, входящие в составной оператор, выполняются последовательно (если среди них нет операторов перехода).

П р и м е р составного оператора.

BEGIN

I:= 8;

C:=16;

WRITELN(I*C:10)

END;

Условный оператор

Условный оператор позволяет выполнить некоторый оператор только в том случае, если истинно некоторое условие (логическое выражение).

Синтаксическая диаграмма условного оператора изображена на рис. 1.

 

Рис.1. Синтаксическая диаграмма условного оператора

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

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

Выражение между словами IF и THEN должно иметь тип BOOLEAN.

П р и м е р ы

IF A>B

THEN C:=D

ELSE C:=8;

IF R

THEN C:=10; {R имеет тип BOOLEAN}

IF (A>B) AND (D<>K)

THEN BEGIN

A:=B;

D:=K

END

ELSE A: =B-C+K;

П р и м е р программы расчета корней квадратного уравнения ax2+bx+c=0.

PROGRAM PRIM6;

VAR

A, B,C, D,X1,X2:REAL;

BEGIN

READLN(A, B,C);

WRITELN(’A=’, A, ’ B=’, B, ’ C=’, C);

IF SQR(B)-4*A*C<0

THEN WRITELN(’Действительных корней нет’)

ELSE BEGIN

D:=SQRT(SQR(B)-4*A*C);

X1:=(-B-D)/(2*A); X2:=(-B+D)/(2*A);

WRITELN(’корни уравнения X1=’,X1,’X2=’,X2)

END

END.

Оператор варианта CASE

CASE используется, когда необходимо выбрать вариант направления расчетов не из двух, а из большего числа вариантов.

Формат оператора:

CASE <выражение> OF

X1: <оператор 1>;

X2: <оператор 2>;

…

XN: <оператор N>

ELSE <оператор>

END;

Метки операторов X1, X2, … , XN представляют собой либо отдельную константу, либо список констант, перечисленных через запятые, либо диапазон. Тип выражения и констант должен быть одним и тем же. Используемые в операторе CASE метки X1, X2, … , XN не описываются в разделе описания меток и отличаются по смыслу от меток, там описанных.

Оператор выполняется следующим образом: вычисляется значение выражения, далее выполняется только тот оператор, константа выбора которого равна значению выражения. Если среди констант нет равной значению выражения, то выполняется оператор, следующий за словом ELSE (при отсутствии слова ELSE выполняется оператор, следующий за словом END). Выражение может иметь любой дискретный тип.

П р и м е р программы вывода дня недели в зависимости от значения

введенного числа

PROGRAM PRIM7;

VAR

DEN:INTEGER;

BEGIN

READLN (DEN);

CASE DEN OF

1: WRITELN (’Понедельник’);

2: WRITELN (’Вторник’);

3: WRITELN (’Среда’);

4: WRITELN (’Четверг’);

5: WRITELN (’Пятница’);

6: WRITELN (’Суббота’);

7: WRITELN (’Воскресенье’);

ELSE WRITELN (’Вы неверно ввели число’)

END

END.

Операторы цикла

Циклом называется многократное повторение определенного действия или группы действий. В Паскале различают три вида циклов.

Оператор цикла по счетчику (цикл с параметром )

Оператор цикла с параметром (смотри рис. 2) исполняется, если число повторений цикла заранее известно.

for

:=