Membuat program Luas Persegi Panjang dan Volume Balok dengan Turbo Pascal/Free Pascal

Pada postingan kali ini saya akan membuat sebuah contoh program sederhana untuk menghitung luas persegi panjang dengan hasil seperti berikut:

untuk source kodenya :

uses wincrt;

var panjang:integer;
      lebar:integer;

      luas:integer;

 begin
            write(‘mencari luas persegi panjang’);

writeln;

write(‘panjang*’);

readln(panjang);

write(‘lebar*’);

readln(lebar);

luas:=panjang*lebar;

writeln;

write(‘jadi luas persegi panjang=’);

write(luas);

end.
           
sedangkan untuk menghitung volume balok dengan hasil seperti berikut:

 

untuk source kodenya :

 

uses wincrt;

var panjang:integer;
      lebar:integer;

      tinggi:integer;

      volume:integer;

 begin
            write(‘mencari volume balok’);

writeln;

write(‘panjang*’);

readln(panjang);

write(‘lebar*’);

readln(lebar);

write(‘tinggi*’);

readln(tinggi);

volume:=panjang*lebar*tinggi;

writeln;

write(‘jadi volume balok=’);

write(volume);

end.

Selamat mencoba dan berkreasi!