Articles Comments

Belajar Untuk Berbagi » Pascal » Program menentukan apakah anda tampan atau tidak, PASCAL

Program menentukan apakah anda tampan atau tidak, PASCAL

Program dibawah ini mengkondisikan jika anda benar-benar tampan/ ganteng maka dia akan meminta anda untuk memasukkan nama anda tetapi jika anda ternyata tidak tampan secara otomatis program ini akan keluar dengan sendirinya :

mau check ketampanan anda, silahkan mencoba.

dan buktikan sendiri….

program gantengku;

uses crt;

label

ulang,ya,no;

var ganteng:string;

Jawab:char;

begin

ulang:

clrscr;

Write(‘Apakah anda seorang yang tampan (Y/N) : ‘);

readln(Jawab);

if Upcase(Jawab)=’Y’ then

goto ya;

if Upcase(Jawab)=’N’ then

goto no;

ya:

write(‘Masukkan nama anda : ‘);readln(ganteng);

Writeln(ganteng,’ adalah seorang yang ganteng’);

write(‘Tekan enter untuk melanjutkan’);

readln;

goto ulang;

no:

writeln(‘Maaf, anda tidak ganteng ‘);

readln

end.

Mau Lihat Lebih...
Mau Lihat Lebih...

Filed under: Pascal · Tags:

One Response to "Program menentukan apakah anda tampan atau tidak, PASCAL"

  1. Nabil says:

    Maaf pak, mau nanya,
    di Pascal ini apakah ada script untuk jika meng-klik suatu tombol akan EXIT sendiri, kan disini baru,

    write(‘Tekan Enter untuk mengulang’);
    readln;
    goto ulang;

    nah itu kan baru Enter pak yang bisa untuk mengulang, kalau mau EXIT kita harus menekan tombol juga.. terimakasih sebelumnya..

    Regards,

    Nabil

Leave a Reply

*

*

You might also likeclose