составить блок схему и программу на языке паскаль

Question

составить блок схему и программу на языке паскаль алгоритма вычесления значений данной функции 
Z=cos(x^3+2t+3sqrt(y))^2+sin(x^3+2t+3sqrt(y))+7e^x

Антоха · Accepted Answer

Program Laba; uses crt;

var x,t,y,func,s1,s2,res:real;

Begin clrscr;
Write(' Введите число X: '); Readln(X);
Write(' Введите число T: '); Readln(T);
Write(' Введите число Y: '); Readln(Y);

Func:=((X*X*X)+(2*T)+(3*Sqrt(Y)));
S1:=Cos(Func);
S2:=Sin(Func);

Res:=(S1*S1)+S2+(7*Exp(X));

{-- Отладка Start --} {
Writeln('Func: ', Func:8:5);
Writeln('S1: ', S1:8:5);
Writeln('S2: ',S2:8:5);
Writeln('Exp(X): ',7*Exp(X):8:5);
{-- Отладка End --}

Writeln('Ответ: ',Res:8:5);
Readln;
end.

P.S. Будут вопросы - пиши на почту - объясню)

P.S. Будут вопросы - пиши на почту - объясню)