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

About imam_magribi

saya tinggal di kebagusan pasar minggu saya lulusan sd 04 smp 175 sman 109 dan saya sekarang sedang kuliah di universitas swasta di jakarta

Posted on March 14, 2011, in Uncategorized. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: