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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

20
Label Loop
65
, Lb1, Lb2;
BEGIN
{Текст программы}
GoTo Lb1;
{Текст программы}
Loop:
{Текст программы}
Lb1: Lb2:
{Текст программы}
GoTo Lb2;
{Текст программы}
END.
В качестве примера организации ветвлений ниже приводится про -
грамма для вычисления функции:
2
max{,,}2min{,,}
;
sin(2)max{,,}/min{,,}
x
xyzxyz
U
xyzxyz
−
=
+
Значения переменных x, y, z задаются при вводе. При вычислении рас-
сматриваемой функции может возникнуть аномальная ситуация, если ми-
нимальное значение из x , y, z окажется равным нулю. В этом случае следу-
ет вывести на экран сообщение о невозможности вычисления и передать
управление в какую-либо точку программы, например, на ввод исходных
данных. Условимся также, что завершить работу программы следует после
ввода соответствующего сообщения. Для этого после вычисления функции
и вывода требуемых значений следует вывести на экран запрос, ответ на
который либо подтверждает необходимость окончания вычислений (на -
пример, Yes
66
), либо отрицает (No)
67
. Организовать в программе такой от-
вет можно с помощью какой-либо переменной символьного типа , полу-
чающей в качестве значения
Y
или
N
.
{Пример программы, использующей условный оператор и оператор
безусловного перехода. В программе реализован алгоритм для
вычисления функции:
U = [max(x, y, z)*max(x, y, z)-2^x*min(x, y, z)]/[sin(2)+max(x, y,
z)/min(x, y, z)], где значения x, y, z задаются при вводе. На экран
выводятся значения x, y, z, u}
{----- Описательная часть программы -----}
Label L1;
Var u,x,y,z : real; {функции и текущие значения аргументов}
max,min : real; {промежуточные переменные}
a : char;
65
Loop [луп ] – петля.
66
Yes [йес ] – да.
67
No [ноу] – нет.

Страницы