Составить программу для вычисления и блок-схему! Пожалуйста! См. во вложении!
Составить программу для вычисления и блок-схему! Пожалуйста! См. во вложении!
Гость
Ответ(ы) на вопрос:
Гостьvar x,y,f,z:real;
begin
write('x='); readln(x);
write('y='); readln(y);
if x*y<1/2
then f:=(1+cos(y-x))/(x/y+y*y)
else f:=sin(ln(abs(x/y)));
z:=cos(f)*cos(f)*cos(f);
writeln('f=',f);
writeln('z=',z);
end.
Блок-схема - в прилагаемом файле.
Не нашли ответ?
Похожие вопросы