kondisi pascal

uses crt;
var
uas,uts,total : real;
kode : string;
begin
clrscr;
write ('masukan nilai uts anda : '); readln(uts);
write ('masukan nilai uas anda : '); readln(uas);
total := (uts*70/100)+(uas*30/100);
writeln('total niali anda : ',total:5:2);
if total>90 then kode:='A'
else if total>80 then kode:='B'
else if total>70 then kode:='C'
else if total>60 then kode:='D'
else kode:= 'E';
writeln ('kode nilai anda : ',kode);
readln;
end.

Logika Program :

Pertama kali program dijalankan anda diminta untuk memasukan nilai uts dan uas

Dengan bobot untuk nilai uts yaitu nilai yang anda dapat dikali 70%,dan nilai uas yaitu nilai yang anda dapat dikalikan dengan 30% kemudian hasil dari nilai uas dan  uts dijumlahkan sehingga akan diketahui output nilai total keseluruhan yang anda dapatkan,bila nilai anda >90 maka akan mendapatkan nilai “A” nilai >80 akan mendapatkan “ B”,nilai >70 mendapatkan nilai”C”,nilai >60 mendapatkan nilai “D”,nilai <60 mendapatkan “E” 

mudah-mudahan bisa bermanfaat ya sobb...