Program Stat Game


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”

Leave a Reply