Forum - Tecgag

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

untuk mengunduh kontent didalam forum, dan untuk menjawab topik yang ada. silahkan register terlebih dahulu
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


contact email : ForumBargedos@live.com

Forum - Tecgag

Total Posts : 10585 | Total Members : 16811 | Kita punya temen baru nih, giel
 

Share | 
 

 Pascal buah-buahan

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ezio_U1
Administrator


Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 19
Lokasi Lokasi : Belakangmu..

PostSubyek: Pascal buah-buahan   Thu 18 Apr 2013, 11:09

CREDITS TO ABI

Code:
Program Toko_buah;
uses crt;
var kode:string;
  harga,kg:integer;
  tot:real;

begin
clrscr;
writeln('=========================================');
writeln('                TOKO BUAH                ');
writeln('=========================================');
writeln(' Daftar buah-buahan:                    ');
writeln(' A. Apel                                ');
writeln(' Harga per KG : Rp.6000                  ');
writeln(' B. Jeruk                                ');
writeln(' Harga per KG : Rp.8000                  ');
writeln(' C. Anggur                              ');
writeln(' Harga per KG : Rp.9000                  ');
writeln(' D. Kiwi                                ');
writeln(' Harga per KG : Rp.12000                ');
writeln(' E. Pisang                              ');
writeln(' Harga per KG : Rp.5000                  ');
writeln('=========================================');
writeln('                                        ');
write('Masukkan Kode Buah : ');readln(kode);
case kode of
'A','a' begin
      writeln('Apel');
      harga:=6000;
      end;
'B','b' begin
      writeln('Jeruk');
      harga:=8000;
      end;
'C','c' begin
      writeln('Anggur');
      writeln('Harga Per KG : Rp.9000');
      harga:=9000;
      end;
'D','d' begin
      writeln('Kiwi');
      writeln('Harga Per KG : Rp.12000');
      harga:=12000;
      end;
'E','e' begin
      writeln('Pisang');
      writeln('Harga Per KG : Rp.5000');
      harga:=5000;
      end;
write('Masukkan Jumlah Barang :        ');readln(kg);
write('Total Harga            :        ');readln(tot);
tot:=harga*kg;
writeln(' Terima Kasih');
readln;
end.









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.

Kembali Ke Atas Go down
http://cyberunesia.co.cc
 

Pascal buah-buahan

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» Seni Pahat Semangka Yang Menakjubkan
» 7 Larangan Setelah Makan
» 9Power Coil Booster
» (Ask)Tempat poles motor,bisa ngilangin baret halus..yg top di bandung....
» (ASK) CUTTING STICKER BANDUNG ?
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum - Tecgag ::  MISCELLANOUS :: Pascal-
Navigasi:  

| Contact us | Donasi | Statistics |
www.forumbargedoz.ce.ms | www.bargedoz.marocs.net
Hosted and powered by : Forummotion and phpBB
Bargedoz not responsible for any fraud on behalf of Bargedoz, both occur within and outside this website.
By joining Bargedoz, then you already understand all existing consistent.

Friends : [Update] [Update] [Update] [Update]
Annoucemment : Bargstore - Buy 4 More ! ayo naikkan gold-mu dan dapatkan items Bargstore sekarang juga ! klik disini untuk masuk Bargstore ! | dan jangan lupa untuk "Likes" Facebook fanpage kami, klik disini untuk melihat Fanpage, dan follow twitter kami untuk mendapatkan topik-topik terhangat dari kami, di di @Forumbargedos. | Dibuka pendaftaran staff untuk subforum games di berbagai jenis SF games, dan jenis staff. info lebih lanjut silahkan klik linknya disini!
Free forum | © phpBB | Free forum support | Kontak | Report an abuse | Create your own blog