Помогите, пожалуйста, доработать

anni · 09.12.2013, 22:21

составить программу на функцию в паскале.
a=(x+sinx+a^2+sina^2+x^3+a+sin(x^3+a))/(sinx+sin(sinx)+e^-(sqrt(x)+sin(sqrt(x)))
где sqrt корень
а=1,662
x=0,168

program pr;
const a=1.662;
x=0.168;
var y,t,k: real;
begin
t:=x+sin(x)+sqr(a)+sin(sqr(a))+sqr(x)*x+a+sin(sqr( x)*x+a);
k:=sin(x)+sin(sin(x))+exp(-sqrt(x)+sin(sqrt(x)));
y:=t/k;
write ('y=' , y);
readln;
end.

anni · 09.12.2013, 22:58

Vladimir_S · 10.12.2013, 09:49

А в чем проблема? Вроде всё правильно.

09.12.2013, 22:21	#1 (permalink)
anni Новичок Регистрация: 28.11.2013 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, доработать составить программу на функцию в паскале. a=(x+sinx+a^2+sina^2+x^3+a+sin(x^3+a))/(sinx+sin(sinx)+e^-(sqrt(x)+sin(sqrt(x))) где sqrt корень а=1,662 x=0,168 program pr; const a=1.662; x=0.168; var y,t,k: real; begin t:=x+sin(x)+sqr(a)+sin(sqr(a))+sqr(x)x+a+sin(sqr( x)x+a); k:=sin(x)+sin(sin(x))+exp(-sqrt(x)+sin(sqrt(x))); y:=t/k; write ('y=' , y); readln; end.

09.12.2013, 22:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Кто то уже создавал подобные темы на этом форуме Помогите доработать схему Помогите доработать программу Помогите доработать Помогите пожалуйста

09.12.2013, 22:58	#2 (permalink)
anni Новичок Регистрация: 28.11.2013 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10

10.12.2013, 09:49	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	А в чем проблема? Вроде всё правильно.

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