Программирование алгоритмов разветвляющейся структуры. Самойлова Н.И - 6 стр.

UptoLike

6
Блок-схема:
б)
условный оператор и безусловный оператор;
3. ОПЕРАТОР ВАРИАНТА
Условный оператор позволяет при выполнении программы выбирать
одно из двух возможных действий. Если же необходимо сделать много
Листинг программы:
Program Prim_a;
Var N: integer;
X, Y, Z: real;
Begin
write(‘Введите значения N, X:’);
read (N, X);
Y:=sin(N*X)+0.5;
If Y=0 then write (‘ Z не вычислено. Y=0’)
else begin Z:=X*sqr(X)/Y;
write (‘Z=’,Z:8:3);
end;
End.
начало
N, X
Y:=sin(N*X)+0.5
конец
Z:=X*sqr(X)/Y)
Z
Y=0
+-
Z не вычислено.
Y=0
Листинг программы:
Program Prim_b;
Label 20, 30;
Var N: integer;
X, Y, Z: real;
Begin
write(‘Введите значения N, X:’);
read (N, X);
Y:=sin(N*X)+0.5;
If Y=0 then Goto 20;
Z:=X*sqr(X)/Y;
write (‘Z=’,Z:8:3);
Goto 30;
20: write (‘ Z не вычислено. Y=0’)
30:
End.