Цикл WHILE и REPEAT. Результат табулирования вывести в форме таблицы ! x !y=f(x) ! s !

@Lolita32 · Регистрация: 30.01.2014

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

Результат табулирования вывести в форме таблицы
! x !y=f(x) ! s !

Сумма S, Диапазон изменения x, n, Функция y.

@Cyborg Drone · 02.02.2014, 15:16

Lolita32, неполное задание. С телепатией у меня плохо. С какой точностью вычислять ряд?

@Lolita32 · 02.02.2014, 17:54 **[ТС]**

Вот задание

@Puporev · 02.02.2014, 18:28

Pascal

uses crt;
function f(x:real):real;
begin
f:=(x*x-sqr(pi)/3)/4
end;
function s(x:real;n:integer):real;
var i,z:integer;
    sm:real;
begin
sm:=0;
z:=1;
for i:=1 to n do
 begin
  z:=-z;
  sm:=sm+z*cos(i*x)/(i*i)
 end;
s:=sm
end;
var xn,xk,dx,x:real;
begin
clrscr;
xn:=-pi/5;
xk:=pi;
repeat
write('Введите шаг табуляции <',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
writeln('-------------------------');
writeln('|  x  |  f(x)  |    s   |');
writeln('-------------------------');
x:=xn;
while x<xk+dx/10 do
 begin
  writeln('|',x:5:2,'|',f(x):7:3,' |',s(x,20):7:3,' |');
  x:=x+dx
 end;
writeln('-------------------------');
readln
end.

@Lolita32 0 / 0 / 0 Регистрация: 30.01.2014 Сообщений: 5
		1
	Цикл WHILE и REPEAT. Результат табулирования вывести в форме таблицы ! x !y=f(x) ! s ! 01.02.2014, 18:44. Показов 873. Ответов 3 Метки нет (Все метки) Результат табулирования вывести в форме таблицы ! x !y=f(x) ! s ! Сумма S, Диапазон изменения x, n, Функция y. Миниатюры 0

@Cyborg Drone Модератор 9655 / 4974 / 3265 Регистрация: 17.08.2012 Сообщений: 15,474
	02.02.2014, 15:16	2
	Lolita32, неполное задание. С телепатией у меня плохо. С какой точностью вычислять ряд? 0

@Lolita32 0 / 0 / 0 Регистрация: 30.01.2014 Сообщений: 5
	02.02.2014, 17:54 [ТС]	3
	Вот задание Миниатюры 0

Опции темы