Articles Comments

Belajar Untuk Berbagi » Pascal » Program ganteng versi 2, Pascal

Program ganteng versi 2, Pascal

Program dibawah ini mengkondisikan jika anda benar-benar tampan/ ganteng versi ke-2 yang sebelumnya versi ke-1. Program ini akan meminta anda untuk memasukkan keterangan apakah anda ganteng atau tidak tetapi jika anda ternyata tidak tampan secara otomatis program ini akan keluar dengan sendirinya dan jika anda tidak memenuhi syarat yang dikehendaki maka program ini akan meminta anda mengulanginya :

mau check ketampanan anda, silahkan mencoba dan buktikan sendiri….

program gantengku;
uses crt;
Label
ulang,ya,no;
var ganteng:string;
var Jawab:string;
begin
ulang:
clrscr;
Write(‘Apakah anda seorang yang tampan (Y/N) : ‘);
readln(Jawab);
if ((Jawab = ‘y’) or (jawab = ‘Y’)) then
goto ya
else if ((Jawab = ‘n’) or (jawab = ‘N’)) then
goto no
else
write(‘Kata anda salah, tekan enter untuk mengulang’);
readln;
goto ulang;
ya:
write(‘Masukkan nama anda : ‘);readln(ganteng);
Writeln(ganteng,’ adalah seorang yang ganteng’);
writeln(”);
write(‘Tekan enter untuk mengulang’);
readln;
goto ulang;
no:
writeln(‘Maaf, anda tidak ganteng ‘);
readln
end.
*simpan dengan nama gantengku.pas
Mau Lihat Lebih...
Mau Lihat Lebih...

Filed under: Pascal · Tags:

Leave a Reply

*

*

You might also likeclose