I.Penggabungan statment bercabang , if then else , dan Repeat Until
huuufftt ga kerasa dah mau UTS ...
Sebelum UTS dapet tugas suruh bikin susunan algoritma ... judulnya "Pemilihan menu hitung" hehehehe ..
ini dia scriptnya :
program perhitungan ;
uses wincrt ;
var
alas,tinggi,r,panjang,lebar,a,b : integer ;
keliling_lingkaran,luas_lingkaran,luas_segitiga,luas_persegi_panjang,penambahan,pengurangan,perkalian,pembagian : real ;
nomer_menu : char ;
const
phi = 3.14 ;
begin
clrscr ;
repeat
clrscr ;
writeln('menu utama perhitungan') ;
writeln('**********************') ;
writeln ;
writeln('1.mencari keliling lingkaran') ;
writeln('2.mencari luas lingkaran') ;
writeln('3.luas segitiga') ;
writeln('4.luas persegi panjang') ;
writeln('5.penambahan ') ;
writeln('6.pengurangan') ;
writeln('7.perkalian') ;
writeln('8.pembagian');
write('pilih menu=');readln(nomer_menu) ;
if nomer_menu = '1' then
begin
write('jari-jari =');readln(r) ;
keliling_lingkaran :=2*phi*r ;
writeln('keliling lingkaran :',keliling_lingkaran:0:2) ;
end
else if nomer_menu = '2' then
begin
write('jari-jari =');readln(r) ;
luas_lingkaran :=phi*r*r ;
writeln('luas lingkaran :',luas_lingkaran:0:2) ;
end
else if nomer_menu ='3' then
begin
write('alas =');readln(alas) ;
write('tinggi =');readln(tinggi) ;
luas_segitiga :=0.5*alas*tinggi ;
writeln('luas segitiga :',luas_segitiga:0:2) ;
end
else if nomer_menu = '4' then
begin
write('panjang =');readln(panjang) ;
write('lebar =');readln(lebar) ;
luas_persegi_panjang :=panjang*lebar ;
writeln('luas persegi panjang :',luas_persegi_panjang:0:2) ;
end
else if nomer_menu = '5' then
begin
write('nilai a=');readln(a) ;
write('nilai b=');readln(b) ;
penambahan :=a+b ;
writeln('penambahan :',penambahan:0:2) ;
end
else if nomer_menu ='6' then
begin
write('nilai a=');readln(a) ;
write('nilai b=');readln(b) ;
pengurangan :=a-b ;
writeln('pengurangan :',pengurangan:0:2) ;
end
else if nomer_menu = '7' then
begin
write('nilai a=');readln(a) ;
write('nilai b=');readln(b) ;
perkalian :=a*b ;
writeln('perkalian :',perkalian:0:2) ;
end
else if nomer_menu ='8' then
begin
write('nilai a=');readln(a) ;
write('nilai b=');readln(b) ;
pembagian :=a/b ;
writeln('pembagian :',pembagian:0:2) ;
end
else
begin
writeln('ach loe mah ngaco masukinnya liat nomer donk :D')
end ;
readln ;
until keypressed ;
end .
Nah itu dia .... tugas terakhir algoritma praktek sebelum UTS.
hm,,, sedikit penjelasannya ... sturktur tersebut terdiri dari tiga bagian utama :
1. Judul
2. kamus
3. algoritma
Yang di maksud judul di sini adalah nama program...
Kamus adalah jenis-jenis variable dan konstanta yang di pakai..
Nah .. klo algorima nya dari begin pertama sampai end terakhir. Semua script di dalamnya termasuk ke dalam Algoritma dari proses input, proses algoritmanya , dan output (hasil) yang di keluarkan.
cara penulisan dan artinya :
1. nama program
penulisan nama program tidak boleh memakai spasi.
2. uses wincrt
artinya kita menggunakan windows
3. var dan konstanta
penulisan variable memakai tanda titik dua , variable terdiri dari boolean (nilainya true dan false), integer (bilangan bulat dari -takhingga sampai +tak hingga) , real (bilangan bulat dan cacah atau pecahan dari -tak hingga sampai +tak hingga), char(semua huruf dan tanda yang terdiri dari -+256, biasanya ditandai dengan tanda petik tunggal ex: '1') semuanya termasuk tipe dasar (tipe algoritmik yang bisa langsung di pakau) .
tipe berikutnya adalah tipe bentukan gabungan dari beberapa tipe dasar , atau tipe bentukan itu sendiri.Tipe bentukan terdiri dari dua tipe yaitu string (gabungan dari beberapa char) dan record (sebuah tipe yang disusun oleh satu atau lebih field, tiap field berisi dari beberapa tipe dasar atau tipe bentukan yang lain).
4. begin & and
begin itu mengindikasikan dimulainya proses algoritma dari input sampai out pun. Sedangkan end akhir dari proses algoritma tersebut. di script ini ada banyak begin dan end tujuannya adalah agar output yang di tampilkan hanya output yang dipilih (karena program ini adalah program pemilihan). untuk tambahan hanya end terakhir yang menggunakan titik artinya proses algoritma berakhir disini . Sedangkan end dengan tanda titik koma menunjukkan bahwa proses pemilihan berakhir di sini.
5. repeat until
repeat until adalah salah satu tipe pengulangan . Yang terdiri dari while do , for do dan repeat until. Penggunaan masing-masing tergantung dari kondisi yang digunakan .perbedaannya untuk for do contohnya for kondisi do aksi , while do dan repeat until adalah tipe pengulangan dengan kondisi , hanya perbedaanya adalah penempatan kondisi dan aksi yang di lakukan . untuk while do selama kondisi terpenuhi lakukan aksi, sedangkan repeat until lakukan aksi sampai kondisi yang di tentukan . Pada kasus ini saya melakukaan pengulangan pemilihan perhitungan sampai "keypressed" (tombol enter di tekan) lalu ulang .oh iia tapi sebelumnya ada tulisan readln ; itu fungsinya menampilkan tanda kursor sesaat sebelumenter di tekan agar jangan dulu menghapus nilai output yang keluar.
6. clrscr
clrscr fungsinya untuk menghapus output yang sudah di hasilkan . lalu kembali menampilka proses, di dalam hal ini saya menghapus hasil perhitungan setelah penekanan enter . dan kembali hanya mamuncukan menu pemilihan.
7. if then else
if then else adalah perintah pemilihan . Artinya di sini If kondisi terpenuhi atau bernila true Then lakukan Aksi else (jika kondisi tidak terpenuhi atau bernilai false) lakukan aksi lain . Pada hal ini if menu bernila 1 then masukan nilai jari-jari dan hitung keliling lingkaran.
Selamat Mencoba !!!
hm,,, klo ada kesalahan di tunggu masukannya ... soalnya saya cuma berusaha membagi apa yang saya dapat .
0 komentar:
Posting Komentar