Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Pascal (http://www.tehnari.ru/f41/t74736/)

Филька 09.06.2012 21:38

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

Филька 09.06.2012 21:39

Pascal....

Андрей Романюк 09.06.2012 22:17

Цитата:

Сообщение от Филька (Сообщение 746618)
Здравствуйте, помогите решить функцию.
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.

Филька 09.06.2012 22:23

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

Андрей Романюк 09.06.2012 22:37

Цитата:

Сообщение от Филька (Сообщение 746662)
Ошибку ввода выдаёт..(


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.


Часовой пояс GMT +4, время: 03:05.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.