belajar logika algoritma

Mari belajar logika algoritma bareng. Bukan maksud saya sok pinter, saya tulis ini sebagai catatan untuk evaluasi belajar saya di kampus.

---

Program if_then_else;
uses crt;
Var nilai : integer;
mhs,ket : string;
begin;
clrscr;
writeln(‘ Nilai Ujian
Mahasiswa ‘);
writeln;
write(‘ Masukkan nama
mahasiswa = ‘);
readln(mhs);
write(‘ Masukkan nilai
mahasiswa = ‘);
readln(nilai);
if nilai>=60 then ket:=’Lulus’
else ket:=’Tidak Lulus’;
writeln;
writeln(‘Nama mahasiswa
adalah ‘,mhs,’ ‘,ket);readln;
end.

daftar pustaka
Riyan (2008). Contoh program if then else, from http://riyanwae.wordpress.com/2008/10/31/contoh-program-if_then_else, 28 oktober 2011.