Pada postingan tutorial pascal kali ini, saya akan sedikit berbagi kembali mengenai fungsi IF dengan sebuah program sederhana
code nya:
program fungsi_if;
uses crt;
var opsi: integer;
begin
clrscr;
writeln('Program Kondisi Pengandaian Fungsi IF');
write('Input angka kunci : ');readln(opsi);
if opsi=15 then writeln('bagus hehe tepat sekali')
else
writeln('apa ini? salah dunk hehe');
readkey
end.
Setelah selesai silahkan di run atau dengan menekan Ctrl+F9
ini tampilan bila kita memasukan selain angka 15
dibawah ini tampilan bila kita memasukan angka 15
*Catatan:
- readkey berfungsi membaca suatu karakter input dari keyboard
Selamat mencoba dan berkreasi!
Tidak ada komentar:
Posting Komentar