3Операторы языка Delphi
3.1Оператор присваивания
При использовании этого оператора слева пишется имя переменной, справа - ее значение, например:
переменная:=выражение;
Переменная - элемент данных, имеющий имя и значение. Значение переменной может изменяться в процессе вычислений. Выражение состоит из чисел, имен переменных, констант и операторов, таких как арифметические действия.
Переменная обязательно имеет тип. Тип определяет диапазон значений, которые принимает переменная и способ ее обработки машиной. Тип переменной должен быть не младше типа выражения (например, если выражение дает целое число, результат можно писать и в целую, и в вещественную переменную, если результат вычисления выражения вещественный, писать его в целую переменную нельзя, т.к. может произойти потеря точности [3].
3.2Оператор ввода-вывода
Для ввода данных пользователем с клавиатуры используется оператор read.
Этот оператор имеет следующий формат:
read(x1,x2,x3);
readln(x1,x2,x3);
где x1,x2,x3-вводимые переменные.
Когда программа доходит до оператора read, она приостанавливает свою работу и ждет, пока пользователь введет значения с клавиатуры, отделяя их друг от друга нажатием клавиши Enter. Разница между оператором read и readln только в том, что при использовании readln следующие данные, вводимые этим оператором, будут считываться с новой строки. [3]
Для вывода информации на экран используется оператор write.
Этот оператор имеет следующий формат.
write(x1,x2,x3);
writeln(x1,x2,x3);
где x1,x2,x3-выводимые значения
Разница между write и writeln состоит в том, что при использовании оператора writeln курсор перемещается на новую строчку [3].
3.3Составные операторы
Составной оператор – группа операторов, отделенных друг от друга точкой с запятой, начинающихся со служебного слова begin и заканчивающихся служебным словом end.
3.4Условный оператор
Оператор if служит для организации процесса, в котором присутствует логическое условие и, в зависимости от условия, алгоритм будет выполняться по той или иной ветке.
Этот оператор имеет следующий формат:
if (условие)
then
(оператор)
else
(оператор)
Пример 1:
Вычислить
,
где
Исходные
данные:
Блок-схема
Текст программы:
program Razvetvl_proc;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,b,a,z,m:real;
key:boolean;
begin
writeln('Vvedite znacheniya n,b,a');
readln(n,b,a);
key:=true;
if b>4
then
m:=sqr(n)
else
m:=sqr(n)* cos(n);
if m>9
then
Z:= sqr(a)* cos (m)
else
if m <9
then
Z:=m+a
else
if sqr(m)+a>0
then
Z:=sqrt(sqr(m)+a)
else key:=false;
if key
then Writeln('Pri n= ',n:0:2,', b= ',b:0:2,',
a=',a:0:2,', Z= ',Z:0:2)
else writeln('Znachenie pod kornem men`she
nulya');
readln;
end.
Выше был приведен пример алгоритма разветвленной структуры.
Если логическое выражение имеет много разных решений, то использование оператора if становиться очень неудобным. В таких случаях удобно использовать оператор case.
Формат оператора (переменная должна иметь порядковый тип (целый или символьный):
case (переменная) of
(значение1): (оператор);
(значение2): (оператор);
else
(оператор);
end;