Contoh program pascal pointer ke pointer pascal

Kali ini saya akan share sedikit tentang pointer dalam bahasa pemrograman pascal, berikut source code yang telah saya buat :

program pointer;

uses crt;

type

  ptr= ^integer;

var



  p: integer;

  x : integer;



procedure tambah (a,b:integer; c:ptr);

begin

   c^:= a+b;

end;

begin

  tambah(10,5, @p);

  writeln(p);

  readln;

end.

Berikut Hasil Outputnya :

Program Queue (Antrian) Pascal

Saya ingin berbagi sedikit tentang program queue(antrian) dalam bahasa pemrograman pascal mudah- mudah bisa bermanfaat bagi kita semua berikut saya berikan source codenya :

program queue;

uses crt;

  type

    PPNode = ^Pnode;

    PNode  = ^Tnode;

    Tnode =  record

      data : integer;

      next : PNode;

    end;



   procedure tambah(d,b:PPNode; nilai : integer);

     var

        temp: Pnode;

     Begin

        new(temp);

        temp^.data := nilai;

        temp^.next := nil;

        if (d^ = nil) then

          begin

            d^:=temp;

            b^:=temp;

          end

        else

          begin

            b^^.next:=temp;

            b^:=temp;

          end;



   end;

   procedure hapus(d,b:PPNode);

     var

      temp : PNode;

     begin

       if (d^ = nil) then begin

         writeln('Tidak terdapat record di dalam queue');

       end

       else

         begin

          temp := d^;

          d^ := temp^.next;

          dispose(temp);

       if (d^ = nil)then

         begin

          b^:= nil;

         end;

       end;

   end;

   procedure tampilkan (q: Pnode);

    var

     nilai: integer;

    begin

     while (q<> nil) do begin

      nilai:= q^.data;

      writeln(nilai);

      q := q^.next;

    end;

    end;

var

 depan, belakang: Pnode;

begin

 clrscr;

  depan := nil;

  belakang := nil;

  tambah (@depan, @belakang, 100);

  tambah (@depan, @belakang, 200);

  tambah (@depan, @belakang, 300);

  tambah (@depan, @belakang, 400);

  writeln ('Nilai di dalam queue : ');

  tampilkan(depan);

  writeln;

  hapus (@depan, @belakang);

  writeln('setelah record terdepan dihapus : ');

  tampilkan(depan);

  readln;

end.


berikut outputnya :

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.

contoh program java input dari user

import java.io.*;

public class Inputuser {

public static void main(String[] args) {

System.out.print("Masukkan nama Anda : ");

BufferedReader br = new BufferedReader(new InputStreamReader(System.in));

String nama = null;

try {
nama = br.readLine();
} catch(IOException ioe) {

}

System.out.println("Terima kasih, " + nama);
}
}

pascal contoh bilangan prima

 Ane ingin share contoh program yang ane buat yaitu program menampilkan bilangan prima dalam bahasa pascal berikut listing codenya :

program bilangan_prima;
uses crt;
var
i,j,k,l : byte;
begin
clrscr;
writeln ('masukkan nilai awal');readln (i);
writeln ('masukkan nilai akhir'); readln (j);
for k:=i+1 to j-1 do
begin
for l:=2 to k-1 do
begin
if (k mod l=0) then l:=k-1 else
if (k mod l<>0) and (l=k-1) then writeln (k);
end;
end;
readln;
end.