Алг W2 (ОБЧИСЛЕННЯ Y)

END.

BEGIN

END.

CASE (ВИРАЗ) OF

(список міток варіанта): (оператор);

...

(список міток варіанта): (оператор);

Як змінну-вираз можна використовувати змінну цілого або символьного типу. Виконання оператора варіанта починається з обчислення значення виразу. Потім для виконання вибирається оператор, одна з міток якого збігається з отриманим значенням. Після виконання цього оператора керування передається до оператору, що випливає за оператором варіанта.

Приклад. (РОЗГАЛУЖЕНА ПРОГРАМА)

Скласти блок-схему алгоритму, написати та відладити програму на мові TURBO-PAS:

bx-tg bx, якщо bx < 1

Y= 1.5, якщо bx = 1

bx+ln bx, якщо bx > 1, b=1.5

PROGRAM W2(INPUT, OUTPUT);

VAR B, X, Y: REAL;

b:=1.5;

WRITELN(‘X=’);

READ(X);

IF b*x < 1 THEN Y:= b*x-sin (b*x)/cos (b*x)

ELSE IF b*x = 1 THEN Y:=1.5

ELSE IF b*x> 1 THEN Y:= b*x+ln(b*x);

WRITELN (‘Y=’, Y:6:2);

АЛГОРИТМІЧНА МОВА.

Арг в, х

Рез Y

Дата добавления: 2014-01-11