Program Gaji Bersih (Pascal)

Berikut sintaks program mencari gaji bersih :

program Gaji_Bersih;
uses crt;
var y:char;
    f,h,z:real;
    e,g,x:integer;

Program Kelulusan (Pascal)

Berikut sintaks program kelulusan :

program Nilai_PPKN_Penjaskes_KTK;
uses crt;
var x,y,z:integer;

Program Rumus Tan (A+B) (Pascal)

Berikut sintaks program rumus tan (a+b) :

program Rumus_Tangen_A_dan_B;

uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n:real;

Program Konversi Kode ASCII (Pascal)

Berikut sintaks program konversi ke kode ASCII:

program Konversi_Kode_ASCII;

uses crt;
     var x:char;
begin
     clrscr;
     write('Masukkan angka atau huruf : '); readln(x);
     write('Kode ASCII untuk ',x, ' adalah ' ,ord(x));
     readln;
end.

Selamat mencoba.

Program Aturan Sinus (Pascal)

Berikut sintaks program aturan sinus :

program Aturan_Sinus;

uses crt;

     var a, b:integer;

         c, d, e, f,u, w, x, y, z:real;

Program Aturan Cosinus (Pascal)

Berikut sintaks program aturan cosinus:

Program Konversi Waktu (Pascal)

Berikut sintaks program konversi waktu:


program Konversi_Waktu;

uses crt;
var a, b, c:integer;
    h, m, s:real;

Program Fungsi (Pascal)

Dengan menginput nilai x, tentukanlah:

Berikut sintaks program menghitung fungsi di atas :

Program Menghitung Luas dan Volume Kerucut (Program Pascal)

Berikut sintaks program menghitung luas dan volume kerucut:

program Menghitung_Luas_dan_Volume_Kerucut;
uses crt;
var d,s,r,t,L,V:real;
begin
clrscr;
writeln('masukkan nilai diameter = '); readln(d);
writeln('masukkan nilai tinggi = '); readln(t);
r:=d/2;
s:=sqrt(sqr(r)+sqr(t));
L:=pi*r*s+pi*sqr(r);
V:=1/3*pi*sqr(r)*t;
writeln('Luas = ', L:2:2, ' Volume = ', V:2:2);
readln;
end.

Selamat mencoba