Langkah :
· Buka program Turbo pascal, lalu buka lembar baru.
· Ketikan syntak seperti pada gambar dibawah ini
.
Logika program :
Dari syntak yang diberikan pada program diatas, kegunaan dari “clrscr” adalah untuk membersihkan layar sebelum program dijalankan.
Sedangkan pada “write(‘Jumlah nilai = ‘)” berguna agar pada program tertulis “Jumlah nilai = “, hal ini bertujuan sebagai tempat untuk m
emasukan nilai yang akan dilihat hasilnya bagi user.
“Readln(nilai);” digunakan agar user dapat memasukan nilai tersebut.
If nilai > 60 then writeln(‘lulus’) else
writeln(‘tidak lulus’)
Syntak ini merupakan suatu fungsi, dimana jika nilai yang kita masukan lebih dari 60, maka program akan mencetak hasil “Lulus”, sedangkan jika nilai yang dimasukkan bernilai kurang dari 60, maka program akan mencetak hasil “Tidak Lulus”.
0 komentar