uas-pascal

bintang kotak
uses wincrt;
var i,j,n : integer;
begin
write('masukan nilai n = '); readln(n);
writeln('betuk gambarnya');                                      
i:=(2-(n mod 2));
repeat
for j :=1 to (abs(n-i)div 2) do write (' ');
for j :=1 to (n-(2*(abs(n-i)div 2))) do write ('*');
writeln ;
I:= i+4;
until(i>(n*2))
end.


data
uses wincrt;
var nitu,nimid,niuas,nia :integer;


    nim,nama :string ;
begin


write('nim:');readln(nim);
write('nama:');readln(nama);
write('nilai tugas:');readln(nitu);


write('nilai MID:');readln(nimid);
write('nilai UAS:');readln(niuas);
write('nilai angka:');readln(nia);










if (nia>=76)and(nia<=100)then
write('nilai Anda A')
else if(nia>=56)and(nia<=75)then
write('nia Anda B')
else if(nia>=0)and(nia<=55)then
write('nia Anda GAGAL')
else
write('nia yang anda input salah');
end.




http://www.facebook.com/profile.php?id=100000493407110