Протабулировать функцию на заданном промежутке

@TAMEPJlAH · Регистрация: 02.05.2010

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

Задание: Протабулировать функцию на заданном промежутке [a,b] с шагом h, считая что xi=a+i*h, i=0,1,2..n, a n=round((b-a)/h). Вычисление функции для каждого х проводить до тех пор, пока значение члена ряда по модулю на очередном шаге не станет меньше заданного предела точности, т.е. это слагаемое и все последующие можно не учитывать.
На картинке дана функция.

Вот что я набросал. Программа пока не полностью. Ошибка в 12 строке, пишет, что i должно быть типа BOOLEAN. Дальше непроверял. Если есть желание и возможность, можете дописать до конца программу.

Pascal

uses crt;
var i:real;
    k,a,b,h,n,err:integer;
    x:array[1..10000] of integer;
begin
clrscr;
write('Введите а и b');
readln(a,b);
write('Введите шаг');
readln(h);
n:=round((b-a)/h);
if i:=1 to n do begin
x[i]:=a+i*h;
while abs(x[i])>err do begin
end;
end;
writeln('Massiv znachenij funkcii:');
for i:=1 to n do
begin
write(x[i]);
if i mod 350=0 then readln;
readkey;
end.

Опции темы