Algoritma dan Pemrograman dengan menggunakan dev-pascal |
-------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------
program tebak_angka;
{
Programmer:Agun Wiguna
Deskripsi: Tebak angka
}
const kunci=57;
var
bil,n:integer;
begin
writeln('Tebak Bilangan yang ada di dalam komputer');
repeat
write('Masukan angka 1-100:');readln(bil);
n:=n+1;
until (bil=kunci) or (n>=10);
if n<10 then
writeln('Anda Beruntung')
else
writeln('anda belum beruntung');
readln;
end.