Program StatGame oleh Yogi Priyo Prayogo
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]
3 responses to “Program Stat Game”
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?