Тема: Pascal
Показать сообщение отдельно
Старый 09.06.2012, 22:17   #3 (permalink)
Андрей Романюк
Member
 
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Филька Посмотреть сообщение
Здравствуйте, помогите решить функцию.
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.
Андрей Романюк вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070