contoh kode pascal 1

Program Segitiga_Pascal;
Uses Wincrt;
Var
  i,j,n:integer;
  x: array[1..100, 1..100] of integer;
Begin
  Write('Masukkan Jumlah Baris: ');Readln(n);
  For i:= 1 to n do
    For j:= 1 to i do
      Begin
        if j=1 then x[i,j]:=1
        else if j=i then x[i,j]:=1
        else x[i,j]:=x[i-1,j-1]+x[i-1,j];
      End;      

Read More

source kode pascal 8

Program Max1_Max2;
Uses Wincrt;
Var
  x: array[1..100] of integer;
  i,n,max,sec: integer;

Begin
  Write('Masukkan Jumlah Data: ');readln(n);
  for i := 1 to n do
    begin
      x[i]:=random(18);
      write(x[i],' ');
      {readln(x[i]);}
    end;
  max:=x[1];
  sec:=0;
  for i := 1 to n do

Read More

sourc kode pascal 7

Program Indeks_Larik;
Uses Wincrt;
Var
   x      : Array [1..100] of Integer;
   i,n    : Integer;
   Ul     : Char;

Procedure CekIndeks(m: integer);
Var t: Integer;
Begin
  Writeln;
  Write('Nomor Indeks > Total Nilai Larik Sebelumnya Adalah: ');
  t:=0;
  For i := 1 to m-1 do

Read More

Source kode pascal 6

Program Prosedur_aktual;
Uses Wincrt;
Var Y:char;
    m:byte;
Procedure Tampil(x:char;n:byte);
Var i:integer;
Begin
  for i := 1 to n do
    Write(x);
  Writeln;
End;
Begin
  Tampil('+',8);
  Tampil('*',10);
  Tampil('A',5);
  Y:='B';
  m:=11;
  Tampil(Y,m);
End.

Read More

Source kode pascal 5

Program DataPegawai;
Uses Wincrt;
Type Pegawai = record
     NIP       : String[9];
     Nama      : String[30];
     Golongan  : Char;
     Jamkerja  : Real;
End;
Var
  Data                  : Pegawai;
  Gapok                 : Real;
  Insentif,Gaber        : Real;
  Ul                    : Char;
Begin  
  Repeat
    Clrscr;
    Writeln('Entry Data Pegawai PT. XYZ');

Read More