Source Program Nama

program khohar;

uses crt;

var

nama,kelas,hobi,jurusan:string;

begin

clrscr;

writeln('---muhammad khohar---');

writeln('masukkan nama:');

readln(nama);

writeln('masukkan hobi:');

readln(hobi);

writeln('masukkan kelas:')

readln(kelas);

writeln('masukkan jurusan:');

readln(jurusan);

writeln('nama saya ',nama,' saya hobi',hobi,' dari kelas',kelas,' jurusan', jurusan);

readln

end.

Selanjutnya tekan ALT+F9 untuk compile source kode

Terakhir untuk menjalankan program tekan CTRL+F9

Source Program "  ProgramHitung "

program hitung ;

uses crt;

var

a,b,c,d:integer;

begin

clrscr;

a:=1;

b:=2;

writeln('nilai a:' ,a);

writeln('nilai b:' ,b);

c:=a+b;

writeln('nilai c:' ,c);

readln;

end.

Selanjutnya tekan ALT+F9 untuk compile source kode

Terakhir untuk menjalankan program tekan CTRL+F9

Source Program "  Penjumlahan "

Program hitung;

usescrt;

var

a,b,c,d,e:integer;

begin

clrscr;

a:=10;

b:=60;

writeln('nilai a:' ,a);

writeln('nilai b:' ,b);

c:=b-a;

writeln('nilai c:' ,c);

d:=a+b;

writeln('nilai d:' ,d);

e:=c+a;

writeln('nilai e:' ,e);

readln;

end.

Selanjutnya tekan ALT+F9 untuk compile source kode

Terakhir untuk menjalankan program tekan CTRL+F9

Source Program Menghitung Luas Segitiga

Uses CRT;
Var
  Panjang_Alas, Tinggi, Luas : Real;

Begin
  ClrScr;
  Write ('Masukkan Alasnya : ');
  Readln (Alas);
  Write ('Masukkan Tingginya : ');
  Readln (Tinggi);
  Luas := ('Alas * Tinggi)/2';
  Writeln ('Luas Segitiga Adalah : ',Luas:0:2);
  Readln;
End.