Program Stat Game
Apr 15, 2009 3 Comments
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]
gimana neh mas cara menggunakannya
mohon bimbingannya
mas bisa dibantu,,cara buat game rattle snake dalam pascal..??
Mas Saya boleh minta tolong progam pascal yang lebih dari 64 baris?