Предмет: Информатика,
автор: Poltos1488
Решить в Pascal и составить блок-схему
Приложения:
Ответы
Автор ответа:
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' (параллелограмм)
'конец' (овал)
Похожие вопросы
Предмет: Русский язык,
автор: Глеб23032005
Предмет: Українська література,
автор: Аноним
Предмет: Окружающий мир,
автор: дана44
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: mrthefold3