Interpolasi Linier pada Metode Numerik

Algoritma Program Pascal untuk Interpolasi Linier pada Metode Numerik
program Interpolasi_Linier;

uses wincrt;

var

   i, j, k : integer;

   a, b    : real;

   x, y    : array[1..100] of real;

label 1, 2, 3;

Begin

1:

  for i:= 1 to 2 do

  begin

       writeln('Koordinat P',i,'( x',i,', y',i,' )');

       write('  x',i,' = ');readln(x[i]);

       write('  y',i,' = ');readln(y[i]);

  end;

  writeln;

  write('Nilai x dari titik yang dicari: ');readln(a);

  b:= ( (y[2] - y[1])/(x[2] - x[1]) ) * (a - x[1]) + y[1];

  writeln;

  writeln('Jadi titik yang dicari adalah Q( ',a:0:4,', ',b:0:4,' )');

End.    

Preview Program: