Program Pascal Menu Case Of

Program Pascal Menu Case Of -Program Pascal menggunakan Case Of, yang menampilkan berbagai Menu, yaitu bilangan Faktorial, bilangan Ganjil, Deretan bintang/membuat bintang, membuat Kotak, dan terakhir menu Keluar.

Artikel : Kode warna sesuai selera

Pengerian Case Of, yaitu Case itu Kasus, maka cara untuk meyelesaikan beberapa kasus sekaligus dengan cara bisa menggunakan Menu untuk memilih kasus yang di inginkan.

Berikut Sitak Program Menu Case Of, yang berisikan blangan faktorial, bilangan ganjil, deretan bintang/ membuat bintang, dan terakhir membuat kotak, dan jangan Lupa menu untuk keluar.

Berikut Programnya :

uses crt;
var
pilih,n,i,a,bil,j,x,baris,kolom:integer;
f:real;

begin
writeln('Menu');
writeln('1. Fatktorial ');
writeln('2. Ganjil ');
writeln('3. Bintang ');
writeln('4. Kotak ');
writeln('5. Exit ');
write('Masukan Pilihan [1/2/3/4/5] = '); readln(pilih);
case pilih of
1 : begin
  clrscr;
   write('Faktorial : '); readln(n);
   i:=1;
   f:=1;
   writeln(n,'!');
   if(n>1) then
   begin
   repeat
   i:=i+1;
   f:=f*i;
   until i=n;
   a:=n;
   for i:=n downto 2 do
   begin
   write(a,' * ');
   a:=a-1;
   end;
   write(1,' = ',f:2:0)
   end;
   end;
2 : begin
  clrscr;
  write('masikan Bilangan : '); readln(bil);
  for i:=1 to bil do
  if(i mod 2 = 1) then
  write(i,' ');
  end;
3 : begin
  clrscr;
  write('masukan Jumlah Bintang : '); readln(n);
  for i:=n downto 0 do
  begin
  for j:=1 to i do
  write('*');
  writeln;
  end;
  end;
4 : begin
  clrscr;
  write('Masukan kolom : '); readln(kolom);
  write('Masukan baris : '); readln(baris);
  for x:=1 to kolom do
  begin
  write('x');
  end;
  writeln;
  for x:=1 to baris -2 do
  writeln('y','y':baris);
  for x:=1 to kolom do
  begin
  write('x');
  end;
  end;
5 : exit;
end;
   readkey;
   end.

Sekian Program Pascal Menu Case Of ,dan jangan lupa berlangganan Artikel dengan memasukan E-mail kalian.

Read Me : Cara Mengaktifkan dan Menonaktifkan JavaScript pada Browser

Share this

Jeni

Tag : Pascal