Contoh Pascal Menentukan Lulus Dan Tidak Lulus

program menentukan_lulus_tidaklulus;
uses crt;
var
nm,ket: string;
nilai : integer;
begin
TextBackground(95);
textcolor(26) ;

Contoh Pascal Program Menghitung Luas Permukaan Tabung

program menghitungluaspermukaantabung  ;

uses crt;

Function
luas(r,t:real):real;
begin luas:=2*22/7*r*(r+t);end;
var r,t:integer;

Contoh Program Pascal Yang Menggunakan IF

 Ini adalah contoh program pascal yang menggunakan if


program nilai_kkm_matematika;
uses crt;
var
nm,ket: string;
nilai : integer;
begin
TextBackground(95);