Ideone.com

download

copy

program ideone;
const hodnotyX : array[1..10] of real = (0,1,2,3,4,5,6,7,8,9);
const hodnotyY : array[1..10] of real = (0,1,0,-1,0,1,0,-1,0,1);//pripadne (0,0,0,0,0,1,0,0,0,0);
const a = 0; b = 10; n = 100; // pocet intervalov
var  i: integer;
var  x,y,z: real;
 
function Interp(s:real; X,Y:array of real): real;
var j,k:integer;
var product:real;
begin
interp:=0;
for j := low(X) to high(X) do
  begin
  product := Y[j];
  for k:=low(X) to high(X) do if k<>j then product:=product*(s-X[k])/(X[j]-X[k]);
  interp:=interp+product;
  end;
end;
 
begin
for i:=0 to n do
  begin
  x:= a+(b-a)*i/n;    
  y:= Interp(x,hodnotyX,hodnotyY);
  writeln( x, ' ', y);
  end;
end.

Success #stdin #stdout 0s 5448KB

stdin

copy

Standard input is empty

stdout

copy

 0.0000000000000000E+000  0.0000000000000000E+000
 1.0000000000000001E-001  1.2286897057499932E-001
 2.0000000000000001E-001  2.5452144639999980E-001
 2.9999999999999999E-001  3.8954852172499960E-001
 4.0000000000000002E-001  5.2229242879999960E-001
 5.0000000000000000E-001  6.4721679687500044E-001
 5.9999999999999998E-001  7.5919595520000005E-001
 6.9999999999999996E-001  8.5373247602499969E-001
 8.0000000000000004E-001  9.2711157760000040E-001
 9.0000000000000002E-001  9.7650044717499984E-001
 1.0000000000000000E+000  1.0000000000000000E+000
 1.1000000000000001E+000  9.9665606232500026E-001
 1.2000000000000000E+000  9.6643645439999959E-001
 1.3000000000000000E+000  9.1017995347500036E-001
 1.3999999999999999E+000  8.2952263680000005E-001
 1.5000000000000000E+000  7.2680664062500000E-001
 1.6000000000000001E+000  6.0497592319999993E-001
 1.7000000000000000E+000  4.6746318777499962E-001
 1.8000000000000000E+000  3.1807170560000003E-001
 1.8999999999999999E+000  1.6085537892500015E-001
 2.0000000000000000E+000  0.0000000000000000E+000
 2.1000000000000001E+000 -1.6029170592500025E-001
 2.2000000000000002E+000 -3.1590901760000029E-001
 2.2999999999999998E+000 -4.6293423477499973E-001
 2.3999999999999999E+000 -5.9773419519999993E-001
 2.5000000000000000E+000 -7.1704101562500000E-001
 2.6000000000000001E+000 -8.1802106880000025E-001
 2.7000000000000002E+000 -8.9833148047500000E-001
 2.7999999999999998E+000 -9.5616368639999982E-001
 2.8999999999999999E+000 -9.9027382932499985E-001
 3.0000000000000000E+000 -1.0000000000000000E+000
 3.1000000000000001E+000 -9.8526653417500032E-001
 3.2000000000000002E+000 -9.4657576959999967E-001
 3.2999999999999998E+000 -8.8498784302500000E-001
 3.3999999999999999E+000 -8.0208926719999973E-001
 3.5000000000000000E+000 -6.9995117187500000E-001
 3.6000000000000001E+000 -5.8107822080000004E-001
 3.7000000000000002E+000 -4.4834932872499966E-001
 3.7999999999999998E+000 -3.0495139840000024E-001
 3.8999999999999999E+000 -1.5430737757500007E-001
 4.0000000000000000E+000  0.0000000000000000E+000
 4.0999999999999996E+000  1.5430737757499946E-001
 4.2000000000000002E+000  3.0495139840000018E-001
 4.2999999999999998E+000  4.4834932872499972E-001
 4.4000000000000004E+000  5.8107822080000071E-001
 4.5000000000000000E+000  6.9995117187500000E-001
 4.5999999999999996E+000  8.0208926719999951E-001
 4.7000000000000002E+000  8.8498784302500011E-001
 4.7999999999999998E+000  9.4657576959999978E-001
 4.9000000000000004E+000  9.8526653417500010E-001
 5.0000000000000000E+000  1.0000000000000000E+000
 5.0999999999999996E+000  9.9027382932500008E-001
 5.2000000000000002E+000  9.5616368640000016E-001
 5.2999999999999998E+000  8.9833148047500033E-001
 5.4000000000000004E+000  8.1802106879999958E-001
 5.5000000000000000E+000  7.1704101562499989E-001
 5.5999999999999996E+000  5.9773419520000048E-001
 5.7000000000000002E+000  4.6293423477499979E-001
 5.7999999999999998E+000  3.1590901760000040E-001
 5.9000000000000004E+000  1.6029170592499942E-001
 6.0000000000000000E+000  0.0000000000000000E+000
 6.0999999999999996E+000 -1.6085537892499938E-001
 6.2000000000000002E+000 -3.1807170560000025E-001
 6.2999999999999998E+000 -4.6746318777499973E-001
 6.4000000000000004E+000 -6.0497592320000049E-001
 6.5000000000000000E+000 -7.2680664062500033E-001
 6.5999999999999996E+000 -8.2952263679999949E-001
 6.7000000000000002E+000 -9.1017995347500014E-001
 6.7999999999999998E+000 -9.6643645439999992E-001
 6.9000000000000004E+000 -9.9665606232499993E-001
 7.0000000000000000E+000 -1.0000000000000000E+000
 7.0999999999999996E+000 -9.7650044717500051E-001
 7.2000000000000002E+000 -9.2711157759999985E-001
 7.2999999999999998E+000 -8.5373247602500024E-001
 7.4000000000000004E+000 -7.5919595519999949E-001
 7.5000000000000000E+000 -6.4721679687500044E-001
 7.5999999999999996E+000 -5.2229242880000037E-001
 7.7000000000000002E+000 -3.8954852172499971E-001
 7.7999999999999998E+000 -2.5452144640000030E-001
 7.9000000000000004E+000 -1.2286897057499951E-001
 8.0000000000000000E+000  0.0000000000000000E+000
 8.0999999999999996E+000  1.0938642457499959E-001
 8.1999999999999993E+000  2.0186327039999968E-001
 8.3000000000000007E+000  2.7594981572500066E-001
 8.4000000000000004E+000  3.3290977279999961E-001
 8.5000000000000000E+000  3.7768554687499956E-001
 8.5999999999999996E+000  4.1998161920000004E-001
 8.6999999999999993E+000  4.7551073002499872E-001
 8.8000000000000007E+000  5.6741724160000118E-001
 8.9000000000000004E+000  7.2789278117499978E-001
 9.0000000000000000E+000  1.0000000000000000E+000
 9.0999999999999996E+000  1.4397210363249977E+000
 9.1999999999999993E+000  2.1182480383999920E+000
 9.3000000000000007E+000  3.1245338874750073E+000
 9.4000000000000004E+000  4.5681220608000039E+000
 9.5000000000000000E+000  6.5822753906249964E+000
 9.5999999999999996E+000  9.3274243071999976E+000
 9.6999999999999993E+000  1.2994956001774998E+001
 9.8000000000000007E+000  1.7811366809600042E+001
 9.9000000000000004E+000  2.4042800992925002E+001
 1.0000000000000000E+001  3.2000000000000000E+001

Discover > Sphere Engine API

Discover > IDE Widget

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language