Программирование в среде Турбо Паскаль. Закутский С.Н - 21 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

21
{----- Исполнительная часть программы -----}
BEGIN
L1: WriteLn; {подготовка строки экрана для ввода сообщения}
Write('x, y, z'); {вывод сообщения о вводе исходной информации}
Read(x, y, z); {ввод исходной информации; при вводе значения
переменных набирать в строку через пробел}
If (x > y) and (x > z)
Then max:=x {нахождение max(x, y, z)}
Else If y > z
Then max:=y
Else max:=z;
If (x < y) and (x < z)
Then min:=x {нахождение min(x, y, z)}
Else If y < z
Then min:=y
Else min:=z;
If min = 0
Then begin {блокировка аномальной ситуации}
WriteLn(‘деление на ноль, повторите ввод’);
GoTo L1;
End;
u:=exp(x*ln(2)); {вычисление 2^x}
u:=(max*max-u*min)/(sin(2.0)+max/min); {вычисление u}
{----- Организация вывода значeний аргументов и функции -----}
WriteLn('x = ', x:6:2, ' y = ', y:6:2, ' z = ', z:6:2, ' u = ',
u:6:2);
WriteLn(‘закончить вычисления – Y, продолжить - N’);
Read(a);
If a = ’N’
Then GoTo L1;
ReadLn; {выход из программы в среду, из которой она запускалась на
выполнение}
END. {конец исполнительной части и программы в целом}
ЗАДАНИЯ
Вариант 1
Составить блок-схему и программу для нахождения значений функ-
ции, заданной условием:
()
2
2
21
sin
1
при 0;
1
sin
1
при 0.
x
xx
x
y
x
xx
x
+
+<
+
=
−≥

Страницы