Komentar

Jumat, 05 Juli 2013

Menebak Angka

Posted by M Habibie 19.34, under | No comments

var

tebakan, disimpan : byte;






begin

 writeln('Komputer Menyimpan Angka Anatara 1 sd 6');
 RANDOMIZE;
 disimpan:= random(6)+1;
 write('ANDA MENEBAK ANGKA :');
 readln(tebakan);

 if tebakan = disimpan then
  write(' Benar ')
 else
 write(' Salah ');
 writeln('Jangan Disimpan ', disimpan);

end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts

  • Hymne Titian Teras
    Kami putra jambi Siswa titian teras menjunjung tinggi citra pribadi, luhur Demi cita-cita Demi kemerdekaan Rela berkorban ...
  • Pandangan saya terhadap Pemilu 2014
    Dalam beberapa hari lagi kita (indonesia) akan melaksanakan yaitu pemilihan umum Presiden dan wakil presiden. akan tetapi sekarang ini ...
  • Floor And Ceiling
    var   floor , ceiling :  longint ;   n :  real   ;
  • While
    var   kal:  string ;  
  • Nomor Urut menggunakan Array
    type  carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing); var  bb: carnivora;  x:array[singa..kucing] of byte;
  • Apa itu PHP dalam Bahasa Pemograman??
    PHP   adalah teknologi yang diperkenalkan tahun 1994 oleh Rasmus Lerdorf. Beberapa versi awal yang tidak dipublikasikan digunakan pada ...
  • For
    var jbil, i, jml, bil :  integer ;
  • A Tambah B
    var   A:  byte ;   B:  byte ;   C:  byte ; begin
  • POLA II
    var   n: byte ; j, i ,cnt:  byte ;  
  • Menebak Angka
    var tebakan ,  disimpan  :   byte ;