Pascal

[Филька]

Здравствуйте, помогите решить функцию.
z=корень из (2t^2+3sint+1) Измерение аргумента: интервал= tЄ[1;3]; шаг= 0,2. Спасибо!

 

[Филька]

Pascal....

 

[Андрей Романюк]

Здравствуйте, помогите решить функцию.
z=корень из (2t^2+3sint+1) Измерение аргумента: интервал= tЄ[1;3]; шаг= 0,2. Спасибо!

ну вот, вроде все работает нормально)

var z,t:real;
begin
clrscr;
t:=1;
repeat
write('t= ',t:0:1,' ');
z:=sqrt(2*sqr(t)+3*sin(t)+1);
writeln('z= ',z:0:4);
t:=t+0.2;
until t>=3.000001;
readln;
end.

 

[Филька]

Ошибку ввода выдаёт..(

 

[Андрей Романюк]

Ошибку ввода выдаёт..(

program rom1;
uses crt; {ты вот эти строки ввел?}
var z,t:real;
begin
clrscr;
t:=1;
repeat
write('t= ',t:0:1,' ');
z:=sqrt(2*sqr(t)+3*sin(t)+1);
writeln('z= ',z:0:4);
t:=t+0.2;
until t>=3.000001;
readln;
end.