Предмет: Информатика, автор: Poltos1488

Решить в Pascal и составить блок-схему

Приложения:

Ответы

Автор ответа: yaroslavb200110
1

program Poltos1488;

const x = 1.426;

         y = -1.220;

         z = 3.5;

var a, b: double;

begin

a := 2 * cos(x - pi / 6) / (0.5 + sqr(sin(y)));

b := 1 + sqr(z) / (3 + sqr(z) / 5);

writeln('a = ', a : 0 : 2, '; ', 'b = ', b : 0 : 2);

readln;

end.

'начало' (овал)

'a := 2 * cos(x - pi / 6) / (0.5 + sqr(sin(y)));

b := 1 + sqr(z) / (3 + sqr(z) / 5)' (прямоугольник)

'вывод a, b' (параллелограмм)

'конец' (овал)

Похожие вопросы