Ceriwis  

Go Back   Ceriwis > HOBI > Komputer & Teknologi > Programming

Programming Share, tanya jawab, saling bantu antar programmer dengan berbagai macam bahasa pemrograman.

Reply
 
Thread Tools
  #1  
Old 20th November 2011
Permenkaret Permenkaret is offline
Ceriwiser
 
Join Date: Nov 2011
Posts: 351
Rep Power: 14
Permenkaret mempunyai hidup yang Normal
Default [ask] programming pascal mau nentuin pangkat di KASKUS (outputnya newbie mulu)

Misi agan2 sekalian ..



ane dapet tugas nih disuruh buat program (di PASCAL) yang multi kondisi atau logikanya banyak gitu lah. nah jelas kan pake fungsi if .... then



nah ane ni lagi bikin tentang pangkat di kaskus jadi tinggal input jumlah post aja di enter ntar ketauan pangkatnya apaan



nih code yang udah ane buat gan




Code:

program LogikaMultiKondisi;
uses wincrt ;

var
n:longint;

begin
writeln (' '); writeln ();
write ('Masukkan Jumlah Posting Anda : ');
readln (n);
begin
if (n > 0) or (n < 99) then writeln ('Newbie') else
if (n > 100) or (n < 499) then writeln ('ceriwiser') else
if (n > 500) or (n < 749) then writeln ('Aktivis Kaskus') else
if (n > 750) or (n < 999) then writeln ('Kaskus Holic') else
if (n > 1000) or (n < 3999) then writeln ('Kaskus Addict') else
if (n > 4000) or (n < 9999) then writeln ('Kaskus Maniac') else
if (n > 10000) or (n < 24999) then writeln ('Kaskus Geek') else
if (n > 25000) or (n < 49999) then writeln ('kaskus Freak') else
writeln ('Made In Kaskus') ; end;
writeln (' '); writeln ();
writeln (' Press Enter to Continue ' );
readln;
end.

nah tiap kali ane input berapapun tu selalu aja nilai yang keluar tu newbie .. kira2 salahnya dimana ya gan ?



mohon pencerahannya ..



Reply With Quote
Reply


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


 


All times are GMT +7. The time now is 06:40 PM.


no new posts