Quiz perulangan yg tidak mau ngulang

{Program Membentuk Nilai Huruf}
uses wincrt;

var
Nilai : integer;
Ket : string;
ulang : string;
begin

ulang:='y';
while (ulang='y') do
begin
clrscr;

gotoxy(26,5); write('*******************************');
gotoxy(26,6); write('*----Membentuk Nilai Huruf----*');
gotoxy(26,7); write('#*****************************#');
gotoxy(26,; write('# #');
gotoxy(26,9); write('# #');
gotoxy(26,10); write('# #');
gotoxy(26,11); write('# #');
gotoxy(26,12); write('# #');
gotoxy(26,13); write('#*****************************#');
gotoxy(26,14); write('* Abdul Ghofur *');
gotoxy(26,15); write('*******************************');
gotoxy(26,16); write('* *');
gotoxy(26,17); write('*******************************');


gotoxy(29,9); write('Nilai =');
{input}
gotoxy(41,9); read(Nilai);
{proses}
if ( Nilai <=60 ) then

Ket := 'Kurang (D)'
else if ( Nilai <=75 ) then
Ket := 'Sedang (C)'
else if ( Nilai >85 ) then
Ket := 'Istimewa (A)'
else
Ket := 'Baik (B)';
{output}
gotoxy(29,11); writeln ('Keterangan =' ,Ket);

gotoxy(29,16); write ('Coba Lagi [y/t] =');

readln(ulang);

end;

end.

Proses


Hasil


Video
[youtube] https://youtu.be/v-plMT8hQoc[/youtube]

ANINDITA KRISTIANTI / 12011034




VIDEO :

QUIS PERULANGAN YANG TIDAK MAU MENGULANG