Ideone.com

fork download

copy

program cv9interp;
{$APPTYPE CONSOLE}
 
const K = 11;
const hodnotyX : array[1..K] of real =
                            (0,1,2,3,4,5,6,7,8,9,10);
 
const hodnotyY : array[1..K] of real =
                            (0,1,0,-1,0,1,0,-1,0,1,0);
 
const hodnotyZ : array[1..K] of real =
                            (0,0,0,0,0,1,0,0,0,0,0);
 
function Interp(s:real; X,Y:array of real): real;
var j,k:integer;
    soucet,soucin:real;
begin
  Assert(high(X)=high(Y),'Pole X a Y museji byt stejne dlouha!');
  soucet:=0;
  for j := low(X) to high(X) do begin
    soucin := Y[j];
    for k:=low(X) to high(X) do
      if k<>j then soucin:=soucin*(s-X[k])/(X[j]-X[k]);
    soucet:=soucet+soucin;
  end;
  Interp:= soucet;
end;
 
const a = 0;
      b = 10;
      N = 100;  // pocet intervalu
 
      dx = (b-a)/N;
 
var   ix   : integer;
     x,y,z : real;
 
begin
   for ix:=0 to N do begin
     x := a + dx*ix;    
     y := Interp(x,hodnotyX,hodnotyY);
     z := Interp(x,hodnotyX,hodnotyZ);
     writeln( x, ' ', y, ' ',z);
   end;
end.

Success #stdin #stdout 0s 5348KB

stdin

copy

Standard input is empty

stdout

copy

 0.0000000000000000E+000  0.0000000000000000E+000  0.0000000000000000E+000
 1.0000000000000001E-001  3.6206829079849956E-001  3.8058320414131885E+000
 2.0000000000000001E-001  6.0565835366400012E-001  5.6456230871040001E+000
 3.0000000000000004E-001  7.6771074612649948E-001  6.1461418971211881E+000
 4.0000000000000002E-001  8.7449770393599846E-001  5.7884171304959988E+000
 5.0000000000000000E-001  9.4396972656250089E-001  4.9335174560546884E+000
 6.0000000000000009E-001  9.8773152153599919E-001  3.8448512040960003E+000
 7.0000000000000007E-001  1.0126885748264995E+000  2.7073365781336864E+000
 8.0000000000000004E-001  1.0224024944640004E+000  1.6437683159040000E+000
 9.0000000000000002E-001  1.0181903001985000E+000  7.2868270543818714E-001
 1.0000000000000000E+000  1.0000000000000000E+000  0.0000000000000000E+000
 1.1000000000000001E+000  9.6709210139850021E-001 -5.3129849011181307E-001
 1.2000000000000002E+000  9.1855414886400022E-001 -8.7322204569600070E-001
 1.3000000000000000E+000  8.5367295442650049E-001 -1.0463339925163126E+000
 1.4000000000000001E+000  7.7218689433599974E-001 -1.0786286551039996E+000
 1.5000000000000000E+000  6.7443847656250000E-001 -1.0015411376953125E+000
 1.6000000000000001E+000  5.6144533913600014E-001 -8.4692592230400021E-001
 1.7000000000000002E+000  4.3490591452649974E-001 -6.4485599172881214E-001
 1.8000000000000000E+000  2.9715418726400011E-001 -4.2210898329599988E-001
 1.9000000000000001E+000  1.5107627759849979E-001 -2.0122078253681211E-001
 2.0000000000000000E+000  0.0000000000000000E+000  0.0000000000000000E+000
 2.1000000000000001E+000 -1.5243293150150020E-001  1.6859103580068768E-001
 2.2000000000000002E+000 -3.0240375193600016E-001  2.9627176550400020E-001
 2.3000000000000003E+000 -4.4605552077350019E-001  3.7906778528368756E-001
 2.4000000000000004E+000 -5.7962817126400068E-001  4.1678674329600007E-001
 2.5000000000000000E+000 -6.9958496093750000E-001  4.1239929199218750E-001
 2.6000000000000001E+000 -8.0272653926400028E-001  3.7137029529600007E-001
 2.7000000000000002E+000 -8.8628974927350013E-001  3.0097783584618731E-001
 2.8000000000000003E+000 -9.4802909593599971E-001  2.0965058150399968E-001
 2.9000000000000004E+000 -9.8627954850150046E-001  1.0634772692568710E-001
 3.0000000000000000E+000 -1.0000000000000000E+000  0.0000000000000000E+000
 3.1000000000000001E+000 -9.8879728790150034E-001 -1.0097491084931262E-001
 3.2000000000000002E+000 -9.5293118873599980E-001 -1.8907371929600011E-001
 3.3000000000000003E+000 -8.9330123947349982E-001 -2.5802092947881256E-001
 3.4000000000000004E+000 -8.1141661286399980E-001 -3.0299299430400006E-001
 3.5000000000000000E+000 -7.0935058593750000E-001 -3.2075500488281250E-001
 3.6000000000000001E+000 -5.8968139366400008E-001 -3.0971422310400004E-001
 3.7000000000000002E+000 -4.5542145657349981E-001 -2.6989687914131233E-001
 3.8000000000000003E+000 -3.0993711513599942E-001 -2.0285634969599969E-001
 3.9000000000000004E+000 -1.5686109810149945E-001 -1.1152213617431214E-001
 4.0000000000000000E+000  0.0000000000000000E+000  0.0000000000000000E+000
 4.1000000000000005E+000  1.5676095219850075E-001  1.2666578993818817E-001
 4.2000000000000002E+000  3.0955359846400021E-001  2.6275685990400022E-001
 4.2999999999999998E+000  4.5462083832649974E-001  4.0216055319618721E-001
 4.4000000000000004E+000  5.8840684953600064E-001  5.3865421209600073E-001
 4.5000000000000000E+000  7.0764160156250000E-001  6.6618347167968750E-001
 4.6000000000000005E+000  8.0941789593600066E-001  7.7912484249600078E-001
 4.7000000000000002E+000  8.9125935262650025E-001  8.7252377330868769E-001
 4.8000000000000007E+000  9.5117796966400037E-001  9.4230046310400051E-001
 4.9000000000000004E+000  9.8772010879850003E-001  9.8541690816318772E-001
 5.0000000000000000E+000  1.0000000000000000E+000  1.0000000000000000E+000
 5.1000000000000005E+000  9.8772010879849992E-001  9.8541690816318739E-001
 5.2000000000000002E+000  9.5117796966400014E-001  9.4230046310400017E-001
 5.3000000000000007E+000  8.9125935262649958E-001  8.7252377330868691E-001
 5.4000000000000004E+000  8.0941789593599955E-001  7.7912484249599945E-001
 5.5000000000000000E+000  7.0764160156249989E-001  6.6618347167968739E-001
 5.6000000000000005E+000  5.8840684953599931E-001  5.3865421209599929E-001
 5.7000000000000002E+000  4.5462083832649974E-001  4.0216055319618726E-001
 5.8000000000000007E+000  3.0955359846399894E-001  2.6275685990399900E-001
 5.9000000000000004E+000  1.5676095219849945E-001  1.2666578993818703E-001
 6.0000000000000000E+000  0.0000000000000000E+000  0.0000000000000000E+000
 6.1000000000000005E+000 -1.5686109810150084E-001 -1.1152213617431303E-001
 6.2000000000000002E+000 -3.0993711513600031E-001 -2.0285634969600017E-001
 6.3000000000000007E+000 -4.5542145657350103E-001 -2.6989687914131288E-001
 6.4000000000000004E+000 -5.8968139366400041E-001 -3.0971422310400010E-001
 6.5000000000000000E+000 -7.0935058593750033E-001 -3.2075500488281267E-001
 6.6000000000000005E+000 -8.1141661286400057E-001 -3.0299299430399979E-001
 6.7000000000000002E+000 -8.9330123947350026E-001 -2.5802092947881239E-001
 6.8000000000000007E+000 -9.5293118873600002E-001 -1.8907371929599942E-001
 6.9000000000000004E+000 -9.8879728790149990E-001 -1.0097491084931216E-001
 7.0000000000000000E+000 -1.0000000000000000E+000  0.0000000000000000E+000
 7.1000000000000005E+000 -9.8627954850149990E-001  1.0634772692568806E-001
 7.2000000000000002E+000 -9.4802909593599993E-001  2.0965058150400018E-001
 7.3000000000000007E+000 -8.8628974927349924E-001  3.0097783584618798E-001
 7.4000000000000004E+000 -8.0272653926399962E-001  3.7137029529600019E-001
 7.5000000000000000E+000 -6.9958496093750033E-001  4.1239929199218750E-001
 7.6000000000000005E+000 -5.7962817126399957E-001  4.1678674329599985E-001
 7.7000000000000002E+000 -4.4605552077349975E-001  3.7906778528368745E-001
 7.8000000000000007E+000 -3.0240375193599889E-001  2.9627176550399925E-001
 7.9000000000000004E+000 -1.5243293150149942E-001  1.6859103580068696E-001
 8.0000000000000000E+000  0.0000000000000000E+000  0.0000000000000000E+000
 8.0999999999999996E+000  1.5107627759849940E-001 -2.0122078253681175E-001
 8.2000000000000011E+000  2.9715418726400156E-001 -4.2210898329600244E-001
 8.3000000000000007E+000  4.3490591452650090E-001 -6.4485599172881403E-001
 8.4000000000000004E+000  5.6144533913600025E-001 -8.4692592230400088E-001
 8.5000000000000000E+000  6.7443847656249978E-001 -1.0015411376953125E+000
 8.5999999999999996E+000  7.7218689433599963E-001 -1.0786286551039999E+000
 8.7000000000000011E+000  8.5367295442650060E-001 -1.0463339925163118E+000
 8.8000000000000007E+000  9.1855414886400044E-001 -8.7322204569599804E-001
 8.9000000000000004E+000  9.6709210139849988E-001 -5.3129849011181107E-001
 9.0000000000000000E+000  1.0000000000000000E+000  0.0000000000000000E+000
 9.0999999999999996E+000  1.0181903001985000E+000  7.2868270543818447E-001
 9.2000000000000011E+000  1.0224024944640000E+000  1.6437683159040106E+000
 9.3000000000000007E+000  1.0126885748264993E+000  2.7073365781336953E+000
 9.4000000000000004E+000  9.8773152153599986E-001  3.8448512040960034E+000
 9.5000000000000000E+000  9.4396972656249889E-001  4.9335174560546866E+000
 9.6000000000000014E+000  8.7449770393599691E-001  5.7884171304960095E+000
 9.7000000000000011E+000  7.6771074612649737E-001  6.1461418971211881E+000
 9.8000000000000007E+000  6.0565835366399989E-001  5.6456230871039939E+000
 9.9000000000000004E+000  3.6206829079849889E-001  3.8058320414131779E+000
 1.0000000000000000E+001  0.0000000000000000E+000  0.0000000000000000E+000

Discover > Sphere Engine API

Discover > IDE Widget

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language