Порядок вычислений

Если в выражении расставлены скобки, то вычисления производятся в порядке, известном всем еще с начальной школы: чем меньше глубина вложенности скобок, тем позже вычисляется заключенная в них операция. Если же скобок нет, то сначала вычисляются значения операций с более высоким приоритетом, затем - с менее высоким. Несколько подряд идущих операций одного приоритета вычисляются в последовательности "слева направо".

Таблица 2.1. Приоритеты (для всех) операций языка Pascal
	Операции	Приоритет
Унарные операции	+, -, not, @, ^, #	Первый(высший)
Операции, эквивалентные умножению	*, /, div, mod, and, shl, shr	Второй
Операции, эквивалентные сложению	+,-, or, xor	Третий
Операции сравнения	=, <>, >, <, <=, >=, in	Четвертый

Пример программы№1 для вычисления площади треугольника через длину основания и высоту (курсивом даны пояснения по каждому пункту):

program TREUG; - дается название программы «TREUG»

var osn, h, S: real; - вводятся переменные «osn», «h» и «S» которые являются вещественными

begin - начало тела программы

{Вводим данные} - комментарий (на экран не выводится)

writeln ( ‘Вычисление площади треугольника’ ); - выводит на экран данную

запись

writeln ( ‘Введите длину основания’ ); - выводит на экран данную

запись

read (osn); - записывает значение длины основания

(величины переменной «osn»), которое вводится

с клавиатуры в память компьютера

writeln(‘Введите значение высоты’ );-выводит на экран данную запись

read (h); - записывает значение высоты треугольника

(величины переменной «h»), которое вводится

с клавиатуры в память компьютера

{Вычисляем площадь} - комментарий (на экран не выводится)

S:=osn*h/2; - переменной «S» присваивается значение

формулы произведения основания на высоту деленного на 2

writeln ( ‘Площадь треугольника равна’ , S ); - выводит на экран запись

«Площадь треугольника равна» и рассчитанное значение переменной «S»

end. - окончание работы программы.

Пример программы№2Составим простейшую линейную программу вычисления площади поверхности и объема круглого конуса, имеющего радиус основания R = 12,54 см и длину образующей L = 28,48 см. При вычислении используем равенства:

где Н – высота конуса, определяемая по формуле H = корень(L² − R² ) .

Program Conus;

Var

r, 1, h, s, v: real;

Begin

write('Введите 1='); readln(1);

write('Введите r='); readln(r);

s := pi*sqr(r) + pi*r*l;

h := sqrt(1*1 – r *r);

v := pi*sqr(r)*h/3;

writeln('Параметры конуса');

writeln('r=', r, 'l=', l, 'h=', h);

writeln('Поверхность конуса');

writeln('s=', s);

writeln('Объем конуса');

writeln('v=', v);

End.

Round(х)– округление вещественного числа до ближайшего целого.

Аргумент функции – величина вещественного типа, а результат – округленная до ближайшего целого величина типа Longint.

Trunc(х) – получение целой части вещественного числа. Аргумент функции – величина вещественного типа, а результат – целая часть этого числа.

Тип результата Longint.

Пример 3.

х := 21.53; trunc(x) = 21, round(x) = 22

х := –2.7; trunc(x) = –2, round(x) = –3.

Лабораторная работа №2 РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫ