Kali ini kita akan coba membuat program billing warnet sederhana memakai bahasa pascal. Warnet yang akan kita buat billingnya, memiliki tarif harga 20 rupiah per 10 detik. Tetapi, jika user menggunakan inernet selama 30 detik atau kurang, maka user diwajibkan membayar sebanyak 1000 rupiah. Sebelum kita masuk ke coding, alangkah baiknyakita memahami algoritmanya terlebih dahulu. [...]

Continue reading...

Pernah puyeng dengan rumus matematika?? Daripada bingung ngapalin, mending bikin contekan rumusnya. Langsung saja buka Turbo Pascal anda dan masukkan kode berikut.
program pilihan;
uses wincrt;
var
nomor : char;
r,p,l,luasp,luaspp,a,t,s : Integer;
luasl,luass : real;
begin
writeln(’*******************************’
writeln(’     1. LUAS LINGKARAN           ‘
writeln(’     2. LUAS PERSEGI PANJANG     ‘
writeln(’     3. LUAS PERSEGI             ‘
writeln(’     4. LUAS SEGITIGA            ‘
writeln(’*******************************’
writeln;
write(’PILIH 1-4 : ‘ readln(nomor);
writeln;
case nomor of
‘1′ :  begin
writeln(’__________________________________’
writeln;
write(’      [...]

Continue reading...