Algoritma Permainan Tebak Kartu

Sudah lama saya tidak menulis di blog, maka saya mencoba untuk menulis kembali di blog setelah sekian lama. Berikut ini adalah Algoritma Permainan Tebak Kartu yang diimplementasikan pada program pascal.

program tebak_kartu;
uses crt;

(* Kamus *)
var
 x : byte;
 jumlah : byte;
 ch : char;
 cc : char;

label ku;
label ul;
label ba;

(* Subprogram *)

procedure displayheader;
begin
    clrscr;
    textbackground(lightblue);
    textcolor(white);
    writeln;
    writeln('###############################################################################');
    writeln('########################## Program Tebak Angka ################################');
    writeln('###############################################################################');
    writeln('########################### Created by : Azka #################################');
    writeln('################### Copyright (C) 2011 All Rights Reserved ####################');
    writeln;
end;

procedure TampilkanKartu (kartu:byte);
var
 y : byte;
begin
 for y:=1 to 255 do
  begin
   if (y and (1 shl (kartu-1)) <> 0) then
    write(y:4,' ');
  end;
end;

(* Algoritma *)
begin
ul:
clrscr;
 displayheader;
 writeln('Selamat datang di program tebak angka ');
 writeln('Untuk bermain, silahkan ikuti petunjuk di bawah');
 writeln;
 writeln('Pikirkan suatu bilangan antara 1 sampai 255');
 writeln('Jika sudah, silahkan tekan sembarang tombol');
 ch:=readkey;
 jumlah :=0;
 for x:=1 to 8 do
  begin
   clrscr;
   displayheader;
   TampilkanKartu(x);
   ku:
   writeln;
   write('Apakah bilangan yang Anda pikirkan ada di atas (Y/T) ? ');
   readln(ch);
   if upcase(ch) = 'Y' then
    inc(jumlah, 1 shl (x-1))
   else
   if upcase(ch) = 'T' then
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ku;
    end;
  end;
 clrscr;
 displayheader;
 writeln('Bilangan yang Anda pikirkan adalah ', jumlah);
 writeln;
 ba:
 write('Apakah Anda ingin kembali bermain (Y/T) ? ');
 readln(cc);
   if upcase(cc) = 'Y' then
    goto ul
   else
   if upcase(cc) = 'T' then
    exit
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ba;
    end;
 end.

Basic Physics

CK-12 Foundation is a non-profit organization with a mission to reduce the cost of textbook materials for
the K-12 market both in the U.S. and worldwide. Using an open-content, web-based collaborative model
termed the “FlexBook,” CK-12 intends to pioneer the generation and distribution of high quality educational
content that will serve both as core text as well as provide an adaptive environment for learning.
Copyright ©2009 CK-12 Foundation
This work is licensed under the Creative Commons Attribution-Share Alike 3.0 United States License. To
view a copy of this license, visit http://creativecommons.org/licenses/by-sa/3.0/us/ or send a letter
to Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.

Well, you can buy basic physics book by click the link below

Jasa Koi Breeder

Anda butuh jasa koi breeder? Tidak perlu susah-susah mencari karena "Ayudiaz Koi" menyediakan jasa koi breeder.

Alamat : Jl. Purbasari No. 2A Cimahi
HP : 0811246407
E-mail : ayudiaz_koi@yahoo.com