End.
Пример 3.12.Составить программу решения следующей задачи
Схема алгоритма на рис 3.2.
| | | | |
| |  |
| |
| | | | Рис. 3.2. Ветвление со сложными условиями
| |
Программа имеет следующий вид:
var x, a, z : real;
Begin
write ('введите x,a'); readln (x, a);
if (a = 2) and (x = 1) then z := sqr (a * x)
Else
if (a = 3) or (x = 2) then
z := exp (1 / 3 * ln (x*a))
else z := exp (1 / 5 * ln (x));
