Minggu, 14 Februari 2016

program pencabangan

                                                                                                                   

                                                 

Assalamu Alaikum Wr.Wb
Saya akan membuat program pengabungan antara ,menentukan bilngan prima,ganjilatau genap,dan faktorial dalam program free pascal.
program percabangan;
Uses Crt;
Var
  j,i,k   : Integer;
  Inputan : Integer;
Procedure CetakBilPrima;
Begin
  clrscr;
  j :=1;
  Write('input bilangan : ');Readln(Inputan);
  While (j <=Inputan ) do Begin
    i := 0;
    k := 1;
    While (k <=j) do Begin
      if (j mod k= 0 ) Then i:= i +1;
      k :=k+1;
    End;
    If (i = 2) Then Write(j,'  ');
    j := j + 1;
  End;
End;
Procedure CetakGenapGanjil;
Begin
  Write(' Input Bilangan : ');Readln(Inputan);
  If (Inputan mod 2 =0 ) Then
  Write( Inputan ,' Adalah Bilangan Genap')
  Else Write(Inputan ,' Adalah Bilangan Ganjil');
End;
Procedure CetakBilFaktorial;
Begin
  j := 1;
  Write('              Input Bilangan : ');Readln(Inputan);
  for i := 1 to Inputan do j := j * i;
  Writeln('              Hasil Faktorial : ',j);
End;
Procedure Menu;
Begin
clrscr;
textcolor(red);
writeln('                       Universitas Andi Djemma');
writeln('                     ---------------------------');writeln;
textcolor(green);
writeln('Nama: Akbar');
writeln('Nim : 15.023.55.202.010');

  writeln('               _______________________________________________');textcolor(41);
  Writeln('              '#179'              Menu Program                     '#179'');textcolor(yellow);
  writeln('              '#179'-----------------------------------------------'#179'' );
  Writeln('              '#179'          1. Bilangan Prima                    '#179'');
  Writeln('              '#179'          2. Bilangan Ganjil & Genap           '#179'');
  Writeln('              '#179'          3. Bilangan Faktorial                '#179'');
  writeln('              '#179'          4. keluar dari program               '#179'');
  writeln('              '#192'-----------------------------------------------'#217'');readln;
  write  ('                       Masukkan Pilihan anda :  ');Readln(Inputan);
  case Inputan of
      1   : Begin
              CetakBilPrima;
              ReadKey;
            End;
      2   : Begin
            CetakGenapGanjil;
              ReadKey;
            End;
      3   : Begin
             CetakBilFaktorial;
              ReadKey;
            End;
      4   : Exit;
      Else  Begin
            Write('Tidak Ada Dalam Pilihan');Readkey;
            Menu;
            End;
  End;
  Menu;
End;
Begin
  Menu;
End.
Hasil program di atas:


                








Keterangan gambar:
sxxssxs.png
         
          Sesuaikan warna pada program yang ingin anda buat untuk text warna teserah dari anda warna apa yang di inginkan
 
                  Selamat mencoba

Reaksi:

0 komentar: