problem z odejmowaniem w Pascalu

[lookasw]

Czesc! Wlasnie pisze program "rozniczkowanie numeryczne". Odejmujac dane wyrazy uzupelniam tablice i Pascal liczy mi odejmowanie 0.17-0.15=0.0199999........i gdzies na 12 miejscu po przecinku dodaje sobie jakies liczby ( przez to cale dalsze obliczenia mi sie sypia ). 0.17 i 0.15 to liczby nieprzyblizone. Pomocy. Czy ktos wie jak zrobic, zeby to wszystko ruszylo normalnie?

[lookasw]

Tutaj jeszcze raz ja! Gdyby znalazl sie dobry duch, ktory zdecyduje mi sie pomoc, to oto moj problem, czyli czesc progrmu, w ktorym pojawia sie blad:

 

 

program rozniczkowanie;

uses crt;

type tab=array[0..50,0..50]of real;

var h,x0,r:real; i,j,n:integer; t:tab;

procedure input(var x0,h:real; var n:integer);

begin

write('Podaj punkt, w kt˘rym bedzie liczona pochodna ');

readln(x0);

write('Podaj startowa liczbe roznic ');

readln(n);

write('Podaj krok h ');

readln(h);

end;

function f(x:real):real;

begin

f:=sqr(x);

end;

procedure roznica(var t:tab; var r:real; h:real; n:integer);

var i,j:integer;

begin

for i:=0 to n+1 do

begin

t[i,0]:=f(x0-i*h);

end;

for j:=0 to n+1 do

begin

for i:=0 to n+1 do

begin

t[i,j+1]:=t[i,j]-t[i+1,j];

end;

end;

end;

 

BEGIN

input(x0,h,n);

roznica(t,r,h,n);

 

for i:=0 to n+1 do

begin

for j:=0 to n +1 do

begin

write(t[i,j]);

end;

writeln;

end;

 

 

readln;

clrscr;

end.

[K3310pH]

kurde bardzo strzelam, ale sprobuj dodac na poczatek dyrektywy:

{$N- E+}

 

jest to dosyc dziwne, nakazuje aby kompilator uzywal emulacji koprocesora a nie instrukcji jednostki zmiennoprzecinkowej.... mowa o dosowym staruszku borland pascal 7 i nizej