Всем доброго времени суток.
Вот задание: Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Xнач до Xкон с шагом dx с точностью E. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.
Вот что имеем
Цитата:
program v6;
var
X :double;
dividend :double;
factor :double;
Xmin :double;
Xmax :double;
dx :double;
N :cardinal;
R :double;
tmp :double;
E :double;
begin
Xmin:=1;
Xmax:=10;
dx:=0.5;
E:=0.00001;
writeln;
writeln('Xmin = ':8, Xmin:10:6);
writeln('Xmax = ':8, Xmax:10:6);
writeln('dx = ':8, dx:10:6);
writeln('E = ':8, E:10:6);
writeln;
writeln('+--------------------------+--------------------------+--------------------------+');
writeln('l Znachenie argumenta X l Summa ryda R l Chislo Chlenov Summi l');
writeln('+--------------------------+--------------------------+--------------------------+');
X:= Xmin;
while (x<= Xmax) do begin
N:= 0;
factor:= 1;
dividend:= 1;
R:= 0;
repeat
tmp:= dividend/factor;
if tmp < E then break;
R:= R+tmp;
N:= N+1;
factor:= factor*N;
dividend:= dividend*X;
until false;
writeln('l ', X:24,' l ', R:24,' l ', N:24, ' l ');
X:= X+dx;
end;
writeln('+--------------------------+--------------------------+--------------------------+');
end.
|
В паскале пишет, что Cardinal - Unknown Identifier. А если Cardinal заменить например на Integer, то компилируется, но не запускается, подскажите плз как правильно сделать...