1.3.Выражения
Значения выражений вычисляются с учетом расставленных скобок и старшинства операций.
Ниже приведены операции в порядке убывания их приоритета, причем операции в одной строке имеют одинаковый приоритет:
NOT
*, /, MOD, DIV, AND
+, -, OR
<, >, <=, >=, <>, =
Операции одного и того же старшинства выполняются слева направо в порядке их появления в выражении. Выражения в круглых скобках вычисляются в первую очередь.
Лабораторная работа №1
Вычисление выражений с использованием стандартных функций
Цель задания:
Изучение порядка действий при вычислении выражений.
Приобретение навыков в записи выражений на языке ТР и использование стандартных функций.
Постановка задачи
Для задания (а) найти значение функции Y(X) при заданном X. Затем возвести полученное значение в квадрат, т.е. найти Y1=Y
(X),
и вычислить абсолютное значение Y1.Для задания (б) записать выражение, зависящее от координат точки X1 и Y1 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.
Результаты всех вычислений вывести на печать.
Содержание отчета
1. Постановка задачи для конкретного варианта.
2. Описание используемых стандартных функций.
3. Текст программы.
4. Распечатка результатов выполнения программы.
Образец выполнения задания.
Лабораторная работа № 1.
Вычисление выражений с использованием стандартных функций.
Постановка задачи
Найти значение функции Y(X) = 1+ x cos (x) + sin
(x)
при X= 2.346. Затем возвести полученное
значение в квадрат, т.е. найти Y1=Y
(X),
и вычислить абсолютное значение ABS(Y1).
Записать выражение, зависящее от координат точки М(-0.8; 0.9) и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для исследуемой точки вычислить полученное выражение.
-
Y-1 1 x
-1
Результаты всех вычислений вывести на печать.
Описание используемых стандартных функций.
Стандартные функции, возвращают вещественный результат при вещественном или целом аргументе:
Cos(r), вычисляет косинус аргумента r.
Sin(r), вычисляет синус аргумента r.
Abs(r), вычисляет абсолютную величену аргумента r.
Текст программы № 15.а
program lab1{ вариант №15.a};
const x=2.346;
var y:real;
begin
writeln('Вычислим значение функции Y=1+cos^2(x)+sin^3(x) при x=2.346');
y:=1+x*cos(x)*cos(x)+sin(x)*sin(x)*sin(x);
writeln('Y=',y);
writeln('Y^2=',y*y);
writeln('ABC(Y^2)',abs(y*y));
end.
Текст программы № 15.б
program lab1{ вариант №15.b};
const x0=-0.8;
y0=0.9;
r=1;
var pro:boolean;
begin
pro:=(x0*x0+y0*y0<=r*r) and ((x0+1<=y0) or (abs(x0)-1>=y0));
writeln('Точка с координатами М(',x0:0:1,'.',y0:0:1,')');
if pro then writeln('Принадлежит заштрихованной области.')
else writeln('Не принадлежит заштрихованной области.');
end.
Распечатка результатов выполнения программы.