label
hoho; untuk mendeklarasikan hoho sebagai label
var
a,menu,b,c,d,e,f,nilai,bilangan:integer; untuk membuat variabel baru bertype
data integer
nm,kls,npm:string;
untuk membuat variabel baru bertype data string
begin
untuk memulai program
hoho;
nama label yang dibuat tadi
clrscr;
untuk membersihkan layar dari program yang dipakai sebelumnya
writeln('---menu---');
untuk menampilan ---menu--- sebagai header
writeln('1.
biodata'); untuk menampilkan 1. biodata
writeln('2.
deret'); untuk menampilkan 2. deret
writeln('3.
ganjil genap'); untuk menampilkan 3. ganjil genap
writeln('4.
exit'); untuk menampilkan 4.exit
writeln('pilihan
(1..4); untuk menampilkan pilihan menu
readln(menu);
untuk membaca input menu yang diketikkan
case
menu of awalan untuk program switch case
1:
begin jika memilih 1 maka menjalankan program 1
clrscr;
untuk membersihkan layar
writeln('-------program
biodata------'); untuk membuat header program biodata
writeln;
untuk lompat 1 baris
write('nama
anda :');readln(nm); untuk menampilkan output nama anda : dan membuat input
untuk variabel nm
write('kelas
anda :');readln(kls); untuk menampilkan output kelas anda : dan membuat input
untuk variabel kls
write('npm
anda :');readln(npm); untuk menampilkan output npm anda : dan membuat input
untuk variabel npm
writeln('----biodata
anda----'); untuk menampilkan biodata anda
writeln('untuk
lompat 1 baris
writeln('nama
saya :',nm); untuk menampilkan output nama saya : dan konstanta nm
writeln('kelas
saya :',kls); untuk menampilkan output kelas saya : dan konstanta kls
writeln('npm
saya :',npm); untuk menampilkan output npm saya : dan konstanta npm
readln;
untuk membaca line baru
goto
hoho; untuk kembali ke awal
end;
untuk mengakhiri program
2:
begin jika memilih 2 maka menjalankan program 2
write
('input nilai :');readln(a); untuk menampilkan output input nilai dan membuat
input untuk variabel a
for
b:=a to 1 do untuk membuat perulangan b, konstanta a ke 1
for
c:=b to 1 do untuk membuat perulangan c. konstanta b ke 1
write('*');
untuk menampilkan ouput * pada perulangan
writeln;
untuk lompat 1 baris
end;
mengakhiri program
goto
hoho; untuk kembali ke awal
writeln('masukan
bilangan anda');readln(bilangan); untuk menampilkan output masukan bilangan
anda dan membuat input variabel bilangan
if
bilangan mod 2 = 0 then jika bilangan dibagi 2 hasil bagi = 0 maka
writeln(bilangan,'adalah
bilangan genap'); bilangan adalah bilangan genap
else
writeln(bilangan,'adalah
bilangan ganjil'); jika tidak maka bilangan adalah bilangan ganjil
readln;
untuk membaca line baru
4:
begin jika memilih 4 maka menjalankan program 4
write('selesai');
menampilkan output selesai
readln;
untuk membaca baris baru
exit;
untuk keluar
end;
untuk mengakhiri program sekarang
end;
untuk mengakhiri program awal
end.
untuk mengakhiri sesi ini.
HASIL OUPUTNYA :
