Minggu, 31 Oktober 2010

Test Kejujuran Ala Fendra

Uses Wincrt;
Label
1;
Var
Pil: Byte;
A:Char;
Begin
1:ClrScr;
GOTOXY(1,1);
Write('Welcome To Test Kejujuran!!');
GOTOXY(1,2);
Write('Pertanyaan Pertama');
ClrEol;
GotoXY(5,5);Write('Apa pendapat Anda tentang Fendra?');
GOTOXY(7,6);Write('1.Ganteng');
GOTOXY(7,7);Write('2.Baik Hati');
GOTOXY(7,8);Write('3.Jelek');
GotoXY(10,10);Write ('Pilihan (1, 2 atau 3): ');
Readln(Pil);
GotoXY(12,12);Case Pil of
1:Writeln (' Ganteng');
2:Writeln (' Baik hati');
3:Writeln (' Maaf,pilihan Anda Tidak dengan Nurani');
Else
Writeln ('Wah,mbaknya tau gak sih pilihannya cuma 3!!');
end;

WriteLn('Lanjut?(Y/T)');
readLn(A);
If (A='Y') or (A='y') then
goto 1;
end.

Tidak ada komentar:

Posting Komentar