Data mahasiswa dengan for..to..do & if bersarang & repeat until

arif zainurrohman

program arifmahasiswa;
uses wincrt;
var
i,n,nima,b:integer;
nama,u:string;
begin
repeat
write ('masukkan jumlah mahasiswa : ');readln(n);
for i:=1 to n do
begin
write(i,' nama  mahasiswa : ');readln(nama);
write('  nim   mahasiswa : ');readln(nima);
write('  nilai mahasiswa : ');readln(b);
if b > 21 then
begin          
if (b>21) and (b<=40) then begin    
writeln('D') ;
end;
if (b>41) and (b<=60) then
begin
writeln('C')  ;
end;
if (b>61) and (b<=80) then
begin
writeln('B')   ;
end;
if (b>81) and (b<=100) then
begin
writeln('A')   ;
end;        
 end
else
begin
writeln('E');
end;
end;
writeln;
write ('anda ingin ulangi ? (y/t)');readln(u);
if u ='t' then
clrscr;
gotoxy(30,10);
writeln(' TERIMA KASIH ')
until(u='t');
end.


Kota Pempek , 22 Maret 2012

akhukum fillah arif zainurrohman