Forum - Bargedoz
Pascal buah-buahan Regnow10
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

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


contact email : ForumBargedos@live.com
Forum - Bargedoz
Pascal buah-buahan Regnow10
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

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


contact email : ForumBargedos@live.com

Forum - Bargedoz

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

Share | 
 

 Pascal buah-buahan

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ezio_U1
Administrator
Ezio_U1
Pascal buah-buahan Empty
Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 27
Lokasi Lokasi : Belakangmu..

Pascal buah-buahan Empty
PostSubyek: Pascal buah-buahan   Pascal buah-buahan EmptyThu 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.
Kembali Ke Atas Go down
http://cyberunesia.co.cc
 

Pascal buah-buahan

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» Pascal If Then
» 5 Keajaiban Dari Buah Apel
» CASE OF PASCAL
» Tidak Pernah Lihat Buah Kelapa [BB]
» Mencoba Iseng Dengan 2 Buah Korek Api [PIC]
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum - Bargedoz ::  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 | Report an abuse | Cookies | Latest discussions