Oke ketiga materi diatas akan saya ringkas dan saya gabung dalam sebuah program, program ini saya beri nama program iYos [Lhoh]
Langsung aja ke SS nya dulu.
Ketikkan ID sembarang, mau alay kayak saya juga gapapa.
untuk password harus FTIUKSWSALATIGA, kalo ga ketik FTIUKSWSALATIGA maka program tidak akan berjalan, dan kembali ke menu awal.
Nah ini adalah Menu Utama nya.
Ini Sub Menu Menentukan bilangan prima. Kalau di klik sembarang maka akan kembali lagi ke Menu sebelumnya
Sub Menu untuk Rumah. Sama kayak yang tadi, kalo di klik apa saja maka akan kembali Ke Menu awal. Bukan menu yang ID, tapi yang suruh input 1,2,3.
Penasaran Kodingnya kayak gimana yaaa? awkawkkakawkawka :p
hup hup munculah koding
pufff
uses crt;
var
n,a,b,c,angka,pembagi,faktor:integer;
p,r:string;
s,t:char;
procedure ulangi;
begin
clrscr;
write('Welcome ',r); --> Untuk welcome terus nama yang tadi di input kan
writeln;
write('---Menu Utama---');
writeln;
writeln;
writeln('[1] Menentukan Bilangan Prima');
writeln('[2] Rumah');
writeln('[3] Exit');
write('Masukkan Pilihan: '); readln(s);
if s='1' then --> Koding untuk menu nomor 1 yaitu menentukan bilangan prima [intinya bilangan prima itu cuma punya 2 FAKTOR]
begin
clrscr;
write('Masukkan bilangan: '); readln(angka);
pembagi:=1; --> Ini maksudnya pembagi awalnya = 1
faktor:=0; --> Yang ini juga sama
repeat --> Pakenya repeat, biar pengecekan bisa berulang ulang
begin
if (pembagi <= angka) then --> Di dalam repeat ada fungsi IF
begin
if (angka mod pembagi = 0) then
begin
pembagi:=pembagi+1;
faktor:=faktor+1;
end
else
pembagi:=pembagi+1;
end;
end;
until (pembagi>angka);
if (faktor = 2) then
begin
write('BILANGAN PRIMA');
writeln;
writeln;
write('Klik apa saja untuk mengulang');
readkey;
ulangi;
end
else
begin
write('BUKAN BILANGAN PRIMA');
writeln;
writeln;
write('Klik apa saja untuk mengulang');
readkey;
ulangi;
end;
end
else if s='2' then --> Koding untuk menu nomor 2 yaitu membuat rumah
begin
clrscr;
write('Masukkan tinggi rumah: '); readln(n);
write('Bentuk Rumah: '); readln(t);
for a:= 1 to n do --> Pake for aja lah yang gampangan. hehe :)
begin
for b:=n downto a do --> Ini langkah membuat atap
write(' ');
for b:=1 to a do
write(t);
for b:=2 to a do
write(t);
writeln;
end;
for c:=1 to n do --> Ini badan rumahnya. kok badan ya? [._.]
begin
for b:=1 to 1 do
write(' ');
for b:=1 to 2*n-1 do
write(t);
writeln;
end;
write('Klik apa saja untuk mengulang');
readkey;
ulangi;
end
else if s='3' then --> Menu ketiga yaitu EXIT
begin
clrscr;
write('Press enter to exit');
readln;
end
else
begin
writeln('Inputan salah');
readln;
ulangi;
end;
end;
procedure ID; --> Ini cara bikin ID nya kayak yang di awal
begin
clrscr;
write('ID : '); readln(r);
write('Password : '); readln(p);
if p='FTIUKSWSALATIGA' then ulangi
else ID;
end;
begin
ID;
end.
Free Pascal itu baca coding dari ATAS ke BAWAH. Kenapa saya taruh procedure ID dibawah? bukankah pada hasil akhirnya ID dibaca lebih awal, sedangkan Pascal baca coding dari ATAS ke BAWAH?
Kita buat alurnya dulu aja. mulai dari begin ID end. Pascal mulai membaca dari tulisan begin, karena sesungguhnya pada begin itulah menu utama yang akan dibaca Pascal berada. setelah begin Pascal akan membaca procedure ID. sementara itu di dalam procedure ID memanggil procedure yang ada di atasnya yaitu ULANGI, baru pascal baca procedure ULANGI.
Kesannya memang seperti membaca dari bawah ke atas, tapi sebenernya itu hanya kesan. Sebenarnya Pascal dan kita membaca dari atas ke bawah. Pascal akan membaca koding yang datanya sudah ada di atasnya. Ketika data tidak tertulis diatas, tetapi dibawah, maka perintah yang dibawah tidak akan dibacanya.
Semoga dengan penjelasan saya, dan contoh koding dari saya teman teman bisa belajar kalau koding itu ribet [lhoh?!] Hahaha bercanda doang saya. Koding itu menyenangkan kok. Kayak ada orang lain yang bisa kita ajak ngomong tapi dengan bahasa program. hahahaha sepertinya saya sudah gila. [:D]
Yaudah semoga koding ini bisa membantu teman teman mempelajari Dasar Dasar Pemrograman, khususnya Free Pascal.
:))
Tidak ada komentar:
Posting Komentar