Menghitung Volume Balok Pada Pascal

Berikut Cara Menghitung Volume Balok Pada Pascal :

uses crt;

var p,l,t,h:integer;

begin

writeln(‘Menghitung Volume Balok’);

write('Masukan Panjang: ');readln(p);

write('Masukan Lebar: ');readln(l);

write('Masukan Tinggi: ');readln(t);

h:=p*l*t;

writeln('Hasil Volume Balok : ',h);

readln;

end.

Sekian Terimakasih.

Pertambahan Pada Bahasa Pascal

Berikut Saya bagikan cara menghitung hasil pertambahan sederhana menggunakan bahasa pascal, langsung saja ketikan kode berikut pada aplikasi pascal :

uses crt;
var
a,b,c,hasil:integer;
begin
clrscr;
writeln('Pertambahan 3 bilangan');
write('Masukkan Bilangan Pertama: ');readln(a);
write('Masukkan Bilangan Kedua: ');readln(b);
write('Masukkan Bilangan Ketiga: ');readln(c);
hasil:=a+b+c;
writeln('Maka Hasilnya adalah: ',hasil);readln;
end.
Sekian Terimakasih

Perkalian Sederhana Dengan Bahasa Pascal

Berikut Saya bagikan cara menghitung hasil perkalian sederhana menggunakan bahasa pascal, langsung saja ketikan kode berikut pada aplikasi pascal :

uses crt; 
var a,b,c,hasil:integer; 
begin 
clrscr; 
writeln('Perkalian 3 bilangan'); 
write('Masukkan Bilangan Pertama: ');readln(a); 
write('Masukkan Bilangan Kedua: ');readln(b); 
write('Masukkan Bilangan Ketiga: ');readln(c); 
hasil:=a*b*c; 
writeln('Maka Hasilnya adalah: ',hasil);readln; 
end.


JIka ada yang failed, coba anda cek setiap karakter tanda baca yang ada.
Sekian Terimaksih.