Написать программу табулирования сложной функции

@Dany Ocean · Регистрация: 29.01.2013

Студворк — интернет-сервис помощи студентам

Программисты напишите код пожалуйста.

4 . Написать программу табулирования сложной функции

@Dany Ocean · 15.06.2013, 18:36 **[ТС]**

Шикарный Форум!!!

Kodzaev · 15.06.2013, 18:44

x=0.1(0.1)0.8
Это, как я понял, X-начальное, шаг и X-конечное, так?
А зачем тогда дается условие для X>1?

@Dany Ocean · 16.06.2013, 21:02 **[ТС]**

Я в программировании слабо понимаю. Напишите пожалуйста хоть как нибудь)

Kodzaev · 16.06.2013, 21:08

Pascal

Var
  t,a,x: Real;
  n: Byte;
BEGIN
x:=0.1;
While x<=0.8 do
begin
  t:=0;
  For n:=0 to 15 do
  t:=t+(Exp(2*n*Ln(x))/(3*n+2));
  If Abs(x)<=1 Then
  a:=2.5
  Else
  a:=0.5;
  Writeln('X=',x:0:1,'  Z=',Sqr(x)*Cos(a*x+t):2:2);
  x:=x+0.1;
end;
Readln
END.

@Dany Ocean 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 41
		1
	Написать программу табулирования сложной функции 10.06.2013, 14:47. Показов 641. Ответов 4 Метки нет (Все метки) Программисты напишите код пожалуйста. 4 . Написать программу табулирования сложной функции Миниатюры 0

@Dany Ocean 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 41
	15.06.2013, 18:36 [ТС]	2
	Шикарный Форум!!! 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	15.06.2013, 18:44	3
	x=0.1(0.1)0.8 Это, как я понял, X-начальное, шаг и X-конечное, так? А зачем тогда дается условие для X>1? 1

@Dany Ocean 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 41
	16.06.2013, 21:02 [ТС]	4
	Я в программировании слабо понимаю. Напишите пожалуйста хоть как нибудь) 0

Опции темы