Contoh Program Pascal Sederhana

Dalam sebuah bejana berukuran 12 liter terdapat air teh manis dalam kondisi penuh. Berapa orang tamu yang memperoleh air minum teh manis pada pesta perjamuan jika tersedia gelas minuman berukuran 250 cc (1 liter = 1000 cc). Buatlah penulisan menggunakan program pascal!
Jawaban:

var
a,b:integer;
begin
write('masukkan ukuran bejana (dalam liter): ');
readln(a);
write('masukkan ukuran gelas (dalam cc): ');
readln(b);
writeln('banyaknya gelas yang dapat diisi penuh adalah ',trunc(12/(b/1000)),' gelas');
readln
end.

Mohon koreksinya, jika ada yang mau ditanyakan silakan hubungi admin lewat messenger pada link yang telah disediakan, terimakasih...

Posted in: