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 If Then

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
sekeper
anggota baru
anggota baru


Posts Posts : 4
Gold Gold : 14
Reputasi Reputasi : 3
Join date Join date : 29.01.13
Age Age : 22
Lokasi Lokasi : Dimana aja

PostSubyek: Pascal If Then   Thu 28 Feb 2013, 19:13

Program perhitungan
Code:
program Program_Perhitungan;
uses crt;
var
  bil1,bil2,pil,has:real;
begin
  clrscr;
  writeln('=======================================');
  writeln('        Program Perhitungan          ');
  writeln('=======================================');
  writeln;
  writeln('=====================');
  writeln(' Pilihan Perhitungan ');
  writeln('=====================');
  writeln('1. Pertambahan      ');
  writeln('2. Pengurangan      ');
  writeln('3. Perkalian        ');
  writeln('4. Pembagian        ');
  writeln('=====================');
  writeln;
  write('Masukkan bilangan pertama =');readln(bil1);
  write('Masukkan bilangan kedua  =');readln(bil2);
  write('Pilihan Perhitungan      =');readln(pil);
  if pil=1 then
  begin
  has:=bil1+bil2;
  writeln('Hasil  =',has:2:1);
  end
  else if pil=2 then
  begin
  has:=bil1-bil2;
  writeln('Hasil  =',has:2:1);
  end
  else if pil=3 then
  begin
  has:=bil1*bil2;
  writeln('Hasil  =',has:2:1);
  end
  else
  begin
  has:=bil1/bil2;
  writeln('Hasil  =',has:2:1);
  end;
writeln;
writeln('Terima Kasih Semoga Membantu');
writeln('<press any key to exit>');
readln;
end.
Kembali Ke Atas Go down
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: Re: Pascal If Then   Fri 01 Mar 2013, 00:20

Kodenya sudah work, TAPI "Pilihan" belum dimasukkan ke input tuh Smile
tinggal diperbaiki dan diperbagus lagi tampilannya.









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.

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

Pascal If Then

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
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!
Create a forum on Forumotion | © phpBB | Free forum support | Kontak | Report an abuse | www.sosblogs.com