program kondisi_if;
uses
wincrt;
var
nilai:integer;
ket,ucapan:string;
ulang:char;
begin
ulang:='Y';
while (ulang='Y') or (ulang='y') do
begin
writeln('Program Kondisi IF');
writeln('------------------');
write('Masukkan sebuah Nilai : ');readln(nilai);
if nilai >= 60 then
begin
ket:='LULUS';
ucapan:='Selamat Yaaaa';
end else
begin
ket:='GAGAL';
ucapan:='SABAR YAAAA';
end;
writeln;
writeln('Nilai Anda ',nilai,' maka ',ket);
writeln('Kami Mengucapkan ',ucapan);
writeln('-------------------------------');
write('Mau Coba Lagi?[Y/T] : ');readln(ulang);
clrscr;
end;
writeln('TERIMA KASIH');
end.
Selasa, 25 Oktober 2011
Langganan:
Posting Komentar (Atom)
array data mahasiswa
program array_1Dimensi; uses winCrt; var nim,nm,smstr,mk,grade:array[1..4] of string; nh,uts,uas:array[1..4] of integer; na:array...
-
Entity-Relationship Diagram (ERD), dari kata yang terakhir saja dibenak kita sudah muncul sebuah kata “Skema / sketsa” ataupun kata lai...
Tidak ada komentar:
Posting Komentar