Archive for Juni 2012

Contoh Program Pascal Menu Makanan

Kamis, 14 Juni 2012


Contoh Program Pascal Menu Makanan


Lagi-lagi posting tentang pascal :)
Lumayan dah buat nostalgia. Check it out !

 program paket_makanan;
uses wincrt;
const
     A=10000;
     B=15000;
     C=20000;
var
   menu:byte;
   jawab:char;
   jumlah,harga:longint;
procedure menu_utama;
begin
 clrscr;
     writeln('==========================');
     writeln('daftar menu KFC');
     writeln('__________________________');
     writeln('1.KOMBO 1');
     writeln('2.KOMBO 2');

Baca Semua »

No responses yet

Program Pascal Luas dan Keliling

Selasa, 12 Juni 2012


Program Pascal Luas dan Keliling

Sudah lama banget nggak posting. Kali ini saya posting tentang koding pascal untuk mencari luas dan keliling dari berbagai bangun datar. Chek it out !


uses wincrt;
var luas,hasil:real;
i,pil,p,t,l,a:integer;
procedure kel_persegi;
begin
clrscr;
writeln('Keliling Persegi');


writeln('sisi = ');
write ('Hasil= ');
gotoxy(7,2);readln(p);
hasil:=4*p;
gotoxy(7,3);write(hasil:4:2);

Baca Semua »

No responses yet

« Newer posts Older posts »

Diberdayakan oleh Blogger.

Followers