Contoh Program Free Pascal Perkalian,Pembagian,Pertambahan,dll

Pascal adalah salah satu bahasa pemrograman komputer yang umumnya digunakan sebagai pengantar untuk mulai belajar algoritma dan pemrograman. Pascal relatif mudah dipelajari karena perintah-perintahnya yang mirip dengan bahasa inggris sehari-hari seperti begin, end, write, dan read. Berikut contoh coding Program free pascal:

Program Menghitung Luas Segitiga

program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write(‘Masukan Nilai Alas:’);
readln (a);
write(‘Masukan Nilai Tingi:’);
readln(t);
writeln(‘ ‘);
L:=(a*t)/2;
writeln(‘Luas Segitiga adalah =’,L:6:2);
readln;
end.

Program Menghitung Pertambahan

program pertambahan;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a+b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Perkalian

program perkalian;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a*b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Pengurangan

program pengurangan;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a-b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Pembagian

program pembagian;
uses crt;
var
a,b,h :real;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a/b;
writeln('Maka Hasilnya Adalah ',h:0:2);
end.