Составить блок схему в turbo pascal алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью:

пример выполнения

program prak;
uses crt, printer;
const
c = 4.67;
var
alpha, y: real;
a, b: real;
begin
clrscr;
write(‘введите alpha’);
readln(alpha);
a : = ln(alpha)/(2 + cos(alpha * sqr(alpha));
b : = sqrt(abs(sqr(sin(alpha)) * sin(alpha)) - exp(alpha));
y : = a + b + c;
writeln(‘исходные данные’);
writeln(‘alpha = ‘, alpha: 11: 4);
writeln(‘промежуточные данные’);
writeln(‘a = ‘, a: 10: 3, ‘ b = ‘, b: 10: 3);
writeln(‘результат’);
writeln(‘ y = ‘, y: 12: 5);
end.

помогитеяглупая    2   09.12.2019 13:34    46