Program Pascal

Huhuhu....

Ayoooo...bagi yang ingin (suka) dengan pemrograman, mari kita bangun pemrogramaman kita!!!


Oia, aku mau share ni..

Ini adalah program nilai (pakai Pascal), sudah ditest dan bagus qo.
kalian boleh q0 mengedit, karena listing program ini open source..

program ifthenelse2;
uses wincrt;
var
nama:string;
mat,fis,kim,jumlah,ratarata:real;
begin
clrscr;

write('Masukkan nama murid = ');readln(nama);
write('masukkan nilai matematika = ');readln(mat);
write('Masukkan nilai fisika = ');readln(fis);
write('Masukkan nilai kimia = ');readln(kim);

jumlah:=mat+fis+kim;
ratarata:=jumlah/3;

writeln;
writeln('Nilai rata-rata yang didapat = ',ratarata:10:2);

if ratarata >=86 then
begin
writeln('Indeks nilainya = A');
end
else
if ratarata >=76 then
begin
writeln('Indeks nilainya = B');
end
else
if ratarata >=66 then
begin
writeln('Indeks nilainya = C');
end
else
if ratarata >=56 then
begin
writeln('Indeks nilainya = D');
end
else
begin
writeln('Indeks nilainya = E');
end;
end.