Menghitung Luas dan keliling lingkaran
Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin
clrscr;
writeln(‘=============================’);
writeln(‘Menghitung Luas dan Keliling’);
writeln(‘—————————-’);
write(‘Jari – jari = ‘); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln(‘Keliling Lingkaran = ‘,K:5:2);
writeln(‘Luas Lingkaran = ‘,L:5:2);
writeln(‘=============================’);
readln;
end.

Program Cek kelulusan dalam bahasa Pascal
program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-’);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-’);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian’;
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end.

Contoh Program Kelipatan 5 Repeat Until Pada Pascaluses crt;
var a: integer;
begin
clrscr;
a:=5;
repeat
write(a,’ ‘);
a:=a+5;
until a>25;
readln;
end
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal
Output Program
program jum_bil;
uses wincrt;var
i, jum,bil: integer;begin
jum:=0; {inisialisasi}for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;end;
writeln(‘Jumlah Bilangan = ‘,jum);end.
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal
Output Program
program jum_bil2;
uses wincrt;var
i, n: integer;
jum, bil: real;begin
write(‘Banyak bilangan : ’);read(n);
jum := 0;For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;end;
writeln(‘Jum = ‘,jum:0:2);end.
Banyak bilangan : 3
Masukkan Bilangan 1 = 12
Masukkan Bilangan 2 = 13
Masukkan Bilangan 3 = 14
Jum = 39.00
Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal
Output Program
program contoh_3;
uses wincrt;var
n, i : integer;
rata : real;
jum, bil : integer;begin
Write(‘Masukkan nilai N = ‘);readln(n);
writeln (‘Nilai N adalah= ‘,n);writeln;for i := 1 to n do
begin
write(‘Masukkan bilangan : ‘);read(bil);
jum := jum+bil;end;
rata := jum/n;writeln;
writeln(‘Jumlahnya adalah : ‘,jum);
writeln(‘Nilai rata-ratanya :’, rata:0:2);end.
Masukkan nilai N = 3
Nilai N adalah= 3
Masukkan bilangan: 1
Masukkan bilangan: 2
Masukkan bilangan: 3
Jumlahnya adalah : 6
Nilai rata-ratanya : 2.00
Program Menghitung Jumlah dan Banyaknya Data
Script Program Pascal
Output Program Pascal
program contoh4;
uses wincrt;var
n, i,byk,jum, bil : integer;begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);end.

Procedure Luas_Segitiga;
Begin
Write('Masukkan Nilai Alas: '); readln(Alas);
Write('Masukkan Nilai Tinggi: '); readln(Tinggi);
L_Segitiga:= 0.5*Alas*Tinggi;
Writeln('Luas Segitiga Adalah : ',L_Segitiga:5:3);
end;
Program Penghitung Luas segitiga


uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.
Algoritma Mencari Volume Balok:
1. identifikasi variabel panjang, lebar, tinggi, volume
2. menentukan nilai variabel panjang
3. menentukan nilai variabel lebar
4. menentukan nilai variabel tinggi
5. memberikan nilai variabel volume = panjang*lebar*tinggi
6. menampilkan hasil
Program Mencari Volume Balok
uses wincrt;
var
panjang:integer;
lebar:integer;
tinggi:integer;
volume_balok:integer;
begin
write(‘inputkan panjang okey ‘);
read(panjang);
write (‘inputkan lebar okey ‘);
read(lebar);
write(‘inputkan tinggi okey ‘);
read(tinggi);
volume_balok:=panjang*lebar*tinggi;
write(‘ini lhoo hasilnya ‘ ,volume_balok);
end.

Membuat Perkalian di Pascal
salah satu contoh program perkalian di pascal yang bisa anda gunakan sebagai referensi anda dan bisa anda rubah sesuka hati anda sesuai keperluan anda. Berikut codenya
program perkalian;
uses wincrt;
var
a,b,h:integer;
begin
writeln('===PERKALIAN===');
writeln('=================');
write('Masukan Angka Pertama = ');read(a);
write('Masukan Angka Kedua = ');read(b);
h:=a*b;
writeln('Angka Pertama * Angka Kedua = Hasil Perkalian'); writeln(a, ' x ',b, ' = ' ,h); writeln('Hasil Operasi Perkalian Anda Adalah ',h);
end.
Berikut adalah contoh program PASCAL untuk menghitung luas segitiga:



Uses Crt digunakan untuk membersihkan tampilan output setelah program dijalankan, disertai dengan statement clrscr .
Var diguseunakan untuk memberi identitas (identifier) untuk setiap statement yang kita gunakan. Dalam program diatas, variabel a dan t merupakan tipe data integer, sedangkan l berupa tipe data real.
Write dan Writeln merupakan intruksi untuk menampilkan output (l), sedangkan readln untuk input (a yang merupakan alas dan t yang merupakan tinggi).
Dalam memberikan program diatas l:=a*t*0.5 dimana nilai l adalah pengolahan perkalian a, t, dan 0.5 .
Awali proses dengan begin dan akhiri dengan end.

Dalam bahasa pemprograman pascal kita harus menggunakan ; (titik koma) untuk melanjutkan statement disetiap barisnya.
Untuk mengcompile dapat menggunakan Alt + F9 dan untuk menjalankan program atau me-run dapat menggunakan Ctrl + F9. Sehingga hasil outputnya adalah




Dimana kita menginput angka 6 untuk alas dan 8 untuk tinggi, sehingga hasil perhitungan luas segitiganya adalah 24 . Mengapa hasilnya 24.00 ? itu karena pada program kita tuliskan l:0:2 dimana akan menampilkan dua angka nol setelah nilai l.
itulah program untuk menghitung luas segitiga pada pascal yang dapat saya share. terimakasih. semoga bermanfaat. Gbu all. :)

program perkalian;
var
x,y,z:integer;
begin
x:=5;
y:=78;
z:=x*y;
writeln(‘Hasil perkalian’,x,’dan’,y,’adalah’,z);
readln;
end.