Metode Euler dengan program pascal

Saya akan coba berbagi tentang program metode numerik dengan metode euler  dalam bahasa pemrograman pascal, mungkin teman-teman blogger ingin tahu bagaimana sih cara kerja metode euler dengan bahasa pascal yang saya buat oke dech saya akan bagikan source kodenya berikut ini :

Program metode_euler;

Uses wincrt;

    Var t0,y0,h,x,m,hasil : real;

     n : integer;

function dif_f(y,t : real):real;

  begin

        dif_f := (y-t)/(y+t);

   end;

procedure euler(y0,t0,h,x : real; n : integer; var hasil : real);

  var

     i : integer;

     y,t : real;

  begin

     y := y0;

      t := t0 ;

     writeln(0,t:15:6,y:15:6);

     for i := 1 to n do

        begin

            y := y+h*dif_f(y,t);

            t := t+h;

           writeln(i,t:15:6,y:15:6);

        end;

      hasil := y

   end;

begin

      write('Perhitungan MNA da suatu PDB dengan metode Euler');

      write('Masukkan nilai t awal : ');readln(t0);

      write('Masukkan nilai y awal : ');readln(y0);

      write('Masukkan nilai t yang akan dicari y(t) nya : ');readln(x);

      write('Masukkan ukuran langkah : ');readln(h);

      m := (x-t0)/h;

      while frac(m) <> 0 do

begin

     writeln('Ukuran langkah tidak sesuai');

     write('Masukkan ukuran langkah : ');readln(h);

     m := (x-t0)/h;

     end;

     n := round(m);

     writeln('=====================================');

     writeln(' i t y(t) ');

     writeln('-------------------------------------');

     euler(y0,t0,h,x,n,hasil);

     writeln('-------------------------------------');

     writeln('Nilai y(t) nya adalah : ',hasil:5:6);

end.

Sekian dari saya terima kasih telah berkunjung.