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
[email protected]

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.