Program Stat Game

Apr 15, 2009 3 Comments by Sahabat

Program StatGame oleh Yogi Priyo Prayogo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program StatGame;
uses Wincrt;
 
type Game=record
    Judul : string[15];
    Genre : string[10];
    Versi : string[10];
    Rating : string[10];
    Vendor : string[20];
    Harga : integer;
end;
 
var
    x : Game;
    Jwbn : char;
 
begin
  repeat
     writeln('Entry data game');
     writeln;
     writeln;
     write('Judul Game : '); readln(x.Judul);
     write('Genre Game : '); readln(x.Genre);
     write('Versi Game : '); readln(x.Versi);
     write('Rating Game : '); readln(x.Rating);
     write('Vendor : '); readln(x.Vendor);
     write('Harga : '); readln(x.Harga);
     writeln;
     writeln('---------------------------------------');
     writeln('Review Entry:');
     writeln('Judul Game : ', x.Judul);
     writeln('Genre Gamme : ', x.Genre);
     writeln('Versi Game : ', x.Versi);
     writeln('Rating Game : ', x.Rating);
     writeln('Vendor : ', x.Vendor);
     writeln('Harga : ', x.Harga);
     writeln;
     writeln('---------------------------------------');
     writeln;
     writeln('Apakah anda ingin mengulang entry data ? (y/t)'); readln(Jwbn);
  until (Jwbn='t');
  writeln;
  writeln;
  writeln('Terima Kasih atas kerjasamanya...');
end.

Yogi Priyo Prayogo
yogipriyo@ymail.com

Kata Kunci

game pascal sederhana, Contoh game pascal, game bowling dalam coding pascal, contoh program game pascal, game sederhana pascal, program pascal game memasak.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

3 Responses to “Program Stat Game”

  1. agung says:

    gimana neh mas cara menggunakannya

    mohon bimbingannya

  2. Gregorio says:

    mas bisa dibantu,,cara buat game rattle snake dalam pascal..??

  3. Makelele says:

    Mas Saya boleh minta tolong progam pascal yang lebih dari 64 baris?

Leave a Reply

You must be logged in to post a comment.