MEMBUAT MENU PADA TURBO PASKAL

MEMBUAT MENU PADA TURBO PASKAL


Code program
program imam_perulangan;
uses crt;
var
nama,npm,kls:char;
a,b,t,pil,r,menu:integer;
l:real;
begin
clrscr;
writeln(‘**** menu ***’);
writeln(’1-biodata’);
writeln(’2-deret’);
writeln(’3-segitiga’);
writeln(‘*************’);
write(‘masukkan pilihan anda 1-3′);readln(menu);
writeln;
case menu of
1:begin
writeln(‘masukkan biodata anda’);
writeln(‘nama anda=’);readln(nama);
writeln(‘npm’);readln(npm);
writeln(‘kelas’);readln(kls);
readln;
writeln;
writeln(‘nama anda ‘,nama,’ npm ‘,npm,’ kelas ‘,kls);
end;
2:begin
for a:=1 to 5 do
begin
for b:=1 to a do
begin
write(b,’ ‘);
end;
write(’1′);
writeln;
end;
for a:=5 downto 1 do
begin
for b:=1 to a do
begin
write(b,’ ‘);
end;
writeln;
end;
end;
3:begin
write(‘masukkan alas= ‘);readln(a);
write(‘masukkan tinggi=’);readln(t);
l:=(a*t)/2;
write(‘luas= ‘,l:5:0);
writeln;
end;
else
writeln(‘salah memasukkan data anda’);
readln;
end;
readln;
end.
Analisis logika program :
ALUR LOGIKA:
1. PROGRAM LAT1 ;
Sebuah judul program boleh di gunakan boleh tidak, kalau ingin di gunakan harus sesuai prosedur dengan menggunakan “program nama judul;
2. Uses crt;
Sebuah definisi program boleh di tulis boleh tidak. Biasanya apabila ingin menggunakan menu window seperti clrscr; harus menggunakan uses crt ;
3. Var
Sebuah deklarasi variabel . dimana setiap variable di berikan type datanya dan bentuk datanya dapat berubah ubah contoh :A,b:integer; berarti nilai a sama b adalah bilangan bulat
4. Begin di akhiri dengan end.
Merupakan blok program yang mengandung pernyataan-pernyataan dan intruksi-intruksi baris program yang di buat;
5. Clrscr;
Untuk membersihkan layar dari program sebelumnya;. Setiap penggunaannya harus di definisi program tersebut dengan uses crt; .
6. Writeln(‘*****menu****** ’);
Adalah untuk menampilkan isi program cursornya terdapat di bawah.contoh di atas diminta untuk mencetak ********menu*******
7. Write(‘masukkan pilihan anda 1-3’);
Adalah untuk menampilkan isi program cursornya terdapat di samping .contoh di atas diminta untuk mencetak masukkan pilihan anda 1-3
8. Readln( );
Untuk membaca suatu variable atau program.
9. Case variabel of
Kondisi:begin
statement;
end;
End;
Adalah statement kondisi yang sederhana dan lebih mudah dalam percabanganyang banyak.begin statement end; adalah sebuah blok statement di dalam kondisi yang akan di kerjakan bila kondisi pada case benar. Di mana bila variable I lebih dari 3 maka akan tercetak salah memasukkan data anda Bila I Di Masukkan Angka 1 Maka Akan Tercetak masukkan biodata anda dan di masukkan 2 maka akan tercetak huruf perintah deret.dan di masukkan 3 maka akan tercetak perintah luas segitiga.
10. for a:=1 to 5 do
begin
for b:=1 to a do
begin
write(b,’ ‘);
end;
write(’1′);
writeln;
end;
for a:=5 downto 1 do
begin
for b:=1 to a do
begin
write(b,’ ‘);
end;
writeln;
end;
adalah sebuah looping di dalam looping di mana looping a di kerjakan bila looping b sudah selesai di kerjakan.
11. L:=(a*b)/2;
Adalah sebuah peroses pemberian nilai suatu variable. Di mana di minta variable l hasil kalih dari variable a ,b dan di bagi 2.perintah ini di gunakan untuk mencetak hasil luas segitiga.
12. Readln;
Untuk melihat isi program setelah program di jalankan
Hasil runnya adalah