Pascal

Program Perkenalan;

uses wincrt;

begin

     writeln(‘Selamat Datang di Turbo Pascal 1,5 (for Windows)’);

     writeln(‘Selamat Belajar Algoritma dan Pemrograman’);

     writeln(‘AMIK AL MA-SOEM’);

end.

 

Program Tambah;

uses wincrt;

var

   a,b,c : integer;

begin

     write(‘Nilai a : ‘); readln(a);

     write(‘Nilai b : ‘); readln(b);

     c:=a+b;

     writeln(‘Nilai c : ‘,c);

     readln;

end.

 

Nama                              : Susan

Golongan                      : 1

Gaji                                 : 10.000 + 50.000

                                          : 60.000

 

Program Gaji_1;

uses wincrt;

var

   nama, gol       : char;

   gaji            : longint;

begin

     write(‘Nama : ‘); readln(nama);

     write(‘Golongan : ‘); readln(gol);

     gaji := 50000 + 10000;

     writeln(‘gaji : ‘,gaji);

     readln;

end.

 

Masukan sebuah bilangan :

Masukan sebuah nama :

Bilangan yang anda masukan :

Nama yang anda masukan :

 

Program Bilangan1;

uses wincrt;

var

   nama,bilangan :string;

begin

     write(‘Masukan sebuah bilangan : ‘); readln(bilangan);

     write(‘Masukan sebuah nama : ‘); readln(nama);

     writeln(‘Bilangan yang dimasukan adalah : ‘,bilangan);

     writeln(‘Nama yang anda ketikkan adalah : ‘,nama);

     readln;

end.

 

 

     Diketahui                        : 2 buah titik   P1(x1,y2)   P2(x2,y2)

Ditanyakan                   : Titik tengah dari P1 dan P2

Rumus            x3 = x1+x2/2       y3 =  y1+y2/2

 

Program Koordinat;

uses wincrt;

var

   x1,x2,y1,y2: integer;

   x3,y3: real;

begin

     write(‘x1 : ‘); readln(x1);

     write(‘y1 : ‘); readln(y1);

     write(‘x2 : ‘); readln(x2);

     write(‘y2 : ‘); readln(y2);

     writeln(‘Koordinat P1(‘,x1,’,’,y1,’)’);

     writeln(‘Koordinat P2(‘,x2,’,’,y2,’)’);

     x3:=(x1+y1)/2;

     y3:=(x2+y2)/2;

     writeln(‘Koordinat P3(‘,x3:1:0,’,’,y3:1:0,’)’);

     readln;

end.

 

 

Salesman mendapat komisi 10 % dari hasil penjualan

Nama Salesman         : Tono

Nilai Penjualan           : Rp. 100.000

Komisi                           : Rp. 10.000

 

Program Komisi1;

uses wincrt;

var

   nama_sales      : char;

   nilai_jual      : longint;

   komisi : real;

begin

     write(‘Nama Salesman   : ‘); readln(nama_sales);

     write(‘Nilai Penjualan : Rp. ‘); readln(nilai_jual);

     komisi := 0.10 * nilai_jual;

     writeln(‘Komisi          : Rp. ‘,komisi:2:0);

     readln;

end.

A = 5 , B = 2

Hasil

A = 2 ,  B = 5

 

Program abc;

uses wincrt;

var

   a,b,c : integer;

begin

     write(‘a : ‘); readln(a);

     write(‘b : ‘); readln(b);

     c:=a;

     a:=b;

     b:=c;

     writeln(‘a : ‘,a);

     writeln(‘b : ‘,b);

     readln;

end.

 

 

X = ( ½ * k ) + 2

 

Program Rumus_X;

uses wincrt;

var

   x,k : real;

begin

     write(‘Nilai K : ‘); readln(k);

     x:=(0.5*k)+2;

     writeln(‘Nilai X : ‘,x:2:4);

     readln;

end.

 

 

D = B2 – 4 * A * C

 

Program Rumus_D;

uses wincrt;

var

a,b,c : integer;

d     : real;

begin

     write(‘Nilai A : ‘); readln(a);

     write(‘Nilai B : ‘); readln(b); 

     write(‘Nilai C : ‘); readln(c);

     d:=sqr(b)-(4*a*c);       

     writeln(‘Nilai D : ‘,d:2:2);

     readln;

End.

 

 

Program Rumus_x2;

uses wincrt;

var

   a,b,d,x  : real;

begin

     write(‘Nilai A : ‘); readln(a);

     write(‘Nilai B : ‘); readln(b); 

     write(‘Nilai D : ‘); readln(d);

     x:=(-b+sqrt(d))/(2*a);

     writeln(‘Nilai X1 : ‘,x:2:2); readln(x);

     readln;

end.

 

Tentukan program untuk bilangan ganjil

                        3 mod 1 = 1

4 mod 2 = 0

5 mod 2 = 1, Bilangan 3 adalah ganjil

Hasil = >      Input Bilangan = 3

                        Bilangan 3 adalah bilangan ganjil

 

Program Bil2;

uses wincrt;

var

   x : integer;

begin

      write(‘Input Bilangan : ‘); readln(x);

      if  x mod 2 = 1 Then

          write(‘Bilangan ‘,x,’ adalah bilangan ganjil’)

      else

          write(‘Bilangan ‘,x,’ adalah bilangan genap’);

      readln;

end.                          

 

 

 

 

Jam Kerja

Upah

<= 48

Jk*5000

>48

Jk*5000+(jk-48)*6000

Output : Nama Karyawan                     : Shinta

Jumlah Jam Kerja                : 50

Upah                                           : Rp. 250.000

 

Program Jam_kerja;

uses wincrt;

var

   nama     : char;

   jk, upah : longint;

begin

     write(‘Nama Karyawan    : ‘); readln(nama);

     write(‘Jumlah Jam Kerja : ‘); readln(jk);

     if jk<=48 then

        upah:=jk*5000;

        if jk>48 then

           upah:=48*5000+(jk-48)*6000;

     writeln(‘Upah yang diterima : Rp. ‘,upah);

     readln;

end.

 

Program Luas1 ;

uses wincrt;

Var

   pil        : byte;

   r,l,t,luas : real;

   ulang      : char;

begin

     ulang:=’Y’;

     while upcase(ulang)<>’T’ do

     begin

          clrscr;

          writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);

          writeln(‘1. Menghitung Luas Lngkaran’);

          writeln(‘2. Menghitung Luas Segitiga’);

          writeln(‘3. Menghitung Luas Bujur Sangkar’);

          writeln(‘0. Selesai’);

          writeln(‘=====================================’);

          write(‘Masukkan Pilihan Anda (0-3) ! ‘);

          readln(pil);

          writeln(‘=====================================’);

          if pil=1 then

             begin

                  write(‘Jari – jari Lingkaran : ‘);

                  readln(r);

                  luas:=pi*r*r;

                  writeln(‘Luas Lingkaran      : ‘,luas:2:2);

                  readln;

             end;

          if pil=2 then

             begin

                  write(‘Panjang sisi alas : ‘); readln(l);

                  write(‘Tinggi Segitiga   : ‘); readln(t);

                  luas:=0.5*l*t;

                  writeln(‘ Luas Segitiga  : ‘,luas:2:2);

                  readln;

             end;

          if pil=3 then

             begin

                  write(‘Panjang Bujur Sangkar : ‘);

                  readln(l);

                  write(‘Luas Bujur SAngkar    : ‘);

                  readln(t);

                  luas:=l*t;

                  writeln(‘Luas Bujur Sangkar  : ‘,luas:2:2);

                  readln;

             end;

             writeln(‘====================================’);

             write(‘Apakah Anda akan mengulang (Y/T) ? ‘);

             readln(ulang);

     end;

end.

 

 

Jam Kerja

Upah

<= 48

Jk*5000

>48

Jk*5000+(jk-48)*6000

Output : Nama Karyawan                     : Shinta

Jumlah Jam Kerja                : 50

Upah                                           : Rp. 250.000

 

Program Jam_kerja2;

uses wincrt;

var

   nama     : char;

   jk, upah : longint;

begin

     write(‘Nama Karyawan    : ‘); readln(nama);

     write(‘Jumlah Jam Kerja : ‘); readln(jk);

     if jk<=48 then

        upah:=jk*5000

     else

         upah:=48*5000+(jk-48)*6000;

     writeln(‘Upah yang diterima : Rp. ‘,upah);

     readln;

end.

 

Program Luas2 ;

uses wincrt;

Var

   pil        : byte;

   r,l,t,luas : real;

   ulang      : char;

begin

     ulang:=’Y’;

     while upcase(ulang)<>’T’ do

     begin

          clrscr;

          writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);

          writeln(‘1. Menghitung Luas Lngkaran’);

          writeln(‘2. Menghitung Luas Segitiga’);

          writeln(‘3. Menghitung Luas Bujur Sangkar’);

          writeln(‘0. Selesai’);

          writeln(‘=====================================’);

          write(‘Masukkan Pilihan Anda (0-3) ! ‘);

          readln(pil);

          writeln(‘=====================================’);

          if pil=1 then

             begin

                  write(‘Jari – jari Lingkaran : ‘);

                  readln(r);

                  luas:=pi*r*r;

                  writeln(‘Luas Lingkaran      : ‘,luas:2:2);

                  readln;

             end

          else if pil=2 then

             begin

                  write(‘Panjang sisi alas : ‘); readln(l);

                  write(‘Tinggi Segitiga   : ‘); readln(t);

                  luas:=0.5*l*t;

                  writeln(‘Luas Segitiga   : ‘,luas:2:2);

                  readln;

             end

          else if pil=3 then

             begin

                  write(‘Panjang Bujur Sangkar : ‘);

                  readln(l);

                  write(‘Luas Bujur SAngkar    : ‘);

                  readln(t);

                  luas:=l*t;

                  writeln(‘Luas Bujur Sangkar  : ‘,luas:2:2);

                  readln;

             end;

             writeln(‘====================================’);

             write(‘Apakah Anda akan mengulang (Y/T) ? ‘);

             readln(ulang);

     end;

end.

 

Program Gapok;

uses wincrt;

var

   nama, status : string;

   jml_anak     : integer;

   tunj_anak    : real;

   gol          : integer;

   gapok        : real;

   gaji         : real;

begin

     write(‘Nama          : ‘); readln(nama);

     write(‘Status (N/TN) : ‘); read(status);

     write(‘Jumlah Anak   : ‘);

     readln(jml_anak);

     write(‘Gol    : ‘); readln(gol);

     if status = ‘N’ then

     begin

          if gol = 1 then

          begin

              tunj_anak:=10000;

              gapok:=100000;

          end

          else;

         if gol = 2 then

          begin

              tunj_anak:=20000;

              gapok:=200000;

          end

          else;

          begin

              tunj_anak:=30000;

              gapok:=300000;

         end;

     end;

     if status = ‘TN’ then

     begin

         if gol = 1 then

         gapok:=100000

          else

          if gol = 2 then

          gapok:=200000

          else

          gapok:=300000;

     end;                                             

     gaji:=(tunj_anak*jml_anak)+gapok;

     writeln(‘gaji   : Rp. ‘,gaji:8:0);

     readln;

end.

 

Program Nilai1;

uses wincrt;

var

   nilai : integer;

begin

     write(‘Masukkan Sebuah Nilai : ‘); readln(nilai);

     case nilai of

          81..100 : writeln(‘Nilai Sangat Baik’);

          61..80  : writeln(‘Nilai Baik’);

          42..60  : writeln(‘Nilai Cukup’);

          21..40  : writeln(‘Nilai Kurang’);

     else

          writeln(‘Nilai Sangat Kurang’);

     end;

     readln;

end.

 

Tentukan Gaji

                  Nama : susi

                  status : nikah/1

                  Gol : 1

                  Gaji : Rp.110.000.00

 

Nikah

Gol

Tunjangan anak

Gaji pokok

 

1

10.000

100.0000

 

2

20.000

200.0000

 

3

30.000

300.000

 

Program Gaji2;

uses wincrt;

var

   nama, status : string;

   jml_anak     : integer;

   tunj_anak    : real;

   gol          : integer;

   gapok        : real;

   gaji         : real;

begin

     write(‘Nama   : ‘); readln(nama);

     write(‘Status : ‘); read(status);

     write(‘Jumlah Anak : ‘);

     readln(jml_anak);

     write(‘Gol    : ‘); readln(gol);

     if status=’Nikah’ Then

        case gol of

        1: begin

               tunj_anak:=10000;

               gapok:=100000;

          end;

        2: begin

               tunj_anak:=20000;

               gapok:=200000;

           end;

 

       3: begin

               tunj_anak:=30000;

               gapok:=300000;

          end;

       end

       else

           begin

                case gol of

                1: gapok:=100000;

                2: gapok:=200000;

                3: gapok:=300000;

           end;

       end;

     gaji:=(tunj_anak*jml_anak)+gapok;

     writeln(‘gaji   : Rp. ‘,gaji:8:0);

     readln;

end.

 

Output : 

                        Nama Karyawan              :

Masukkan Golongan      :

Status Pernikahan            :

Jumlah Anak                     :

 

Gol

Gaji pokok

Tunjangan Nikah

Tunjangan Anak max = 2

1

600.000

20 % * Gapok

Jum Anak * 5% * Gapok

2

700.000

20 % * Gapok

Jum Anak * 5% * Gapok

3

800.000

20 % * Gapok

Jum Anak * 5% * Gapok

4

1.000000

20 % * Gapok

Jum Anak * 5% * Gapok

 

Program Gaji3;

uses wincrt;

var

   gol,stat          : char;

   gatot,gapok,TA,TI : real;

   JA                : integer;

   nama              : String;

begin

     clrscr;

     write(‘Nama Karyawan     : ‘);readln(nama);

     write(‘Masukkan Golongan : ‘); readln(gol);

     case gol of

     ‘1’: gapok:=600000;

     ‘2’: gapok:=700000;

     ‘3’: gapok:=800000;

     ‘4’: gapok:=1000000;

     end;

 

     write(‘Status pernikahan : ‘);

     readln(stat);

     case stat of

     ‘N’: begin

               TI:=0.2*gapok;

               write(‘Jumlah anak       : ‘);

               readln(JA);

               if JA<=2 then

                   TA:=JA*0.05*gapok

               else

                   TA:=2*0.05*gapok;

          end;

     end;

     gatot:=gapok+TA+TI;

     writeln(‘Gaji Total : Rp . ‘,gatot:2:2);

     readln;

end.

 

 

Buatlah program kalkulator

Untuk perhitungan operasi + , – , * . /

 

Program Kalkulator;

uses wincrt;

var

   a,b,c       : real;

   hitung      : char;

begin

    write(‘A      : ‘); readln(a);

    write(‘B      : ‘); readln(b);

    write(‘Hitung : ‘); readln(hitung);

    case hitung of

         ‘+’: begin

              c:=a+b;

              end;

         ‘-‘: begin

              c:=a-b;

              end;

         ‘*’: begin

              c:=a*b;

              end;

         ‘/’: begin

              c:=a/b;

              end;

    end;

    writeln(‘Hasil : ‘,a:0:0,’ ‘,hitung,’ ‘,b:0:0,’ = ‘,c:0:2);

    readln;

end.

 

 

      Jumlah Uang               : Rp. 35000

      Rp. 20000                      : 1

      Rp. 10000                      : 1

      Rp.   5000                      : 1

 

Program Uang1;

uses wincrt;

const

     a= 20000;

     b= 10000;

     c= 15000;

     d= 5000;

     e= 0;

var

   x1,x2,x3 : real;

   n,x      : longint;

begin

     write(‘Jumlah Uang : Rp. ‘); readln(n);

     x:=n mod a;

     case x of

          e:          begin

                      x1:=n/a;

                      x2:=e;

                      x3:=e;

                      end;

          b:          begin

                      x1:=(n-b)/a;

                      x2:=(n mod a)/b;

                      x3:=e;

                      end;

          c:          begin

                      x1:=(n-c)/a;

                      x2:=((n mod a)-d)/b;

                      x3:=((n mod a)-b)/d;

                      end;

          d:          begin

                      x1:=(n-d)/a;

                      x2:=e;

                      x3:=(n mod a)/d;

                      end;

     end;

     writeln(‘Rp. 20.000 : ‘,x1:0:0);

     writeln(‘Rp. 10.000 : ‘,x2:0:0);

     writeln(‘Rp.  5.000 : ‘,x3:0:0);

     readln;

end.

 

Output :                                <<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>>

1. Menghitung Luas Lingkaran

2. Menghitung Luas Segitiga

3. Menghitung Luas Bujur Sangkar

0. Selesai

====================================

Masukkan Pilihan Anda                        !  3

====================================

Panjang Bujur Sangkar                                                 : 6

Lebar Bujur Sangkar                             : 5

Luas Bujur Sangkar                               : 30.00

====================================

Apakah Anda akan mengulang program (Y/T)  ?

Program keluar bila menekan T

 

Program Luas1 ;

uses wincrt;

Var

   pil        : byte;

   r,l,t,luas : real;

   ulang      : char;

begin

     ulang:=’Y’;

     while upcase(ulang)<>’T’ do

     begin

          clrscr;

          writeln(‘<<<<<<<<<<<<<< Pilihan >>>>>>>>>>>>>>’);

          writeln(‘1. Menghitung Luas Lngkaran’);

          writeln(‘2. Menghitung Luas Segitiga’);

          writeln(‘3. Menghitung Luas Bujur Sangkar’);

          writeln(‘0. Selesai’);

          writeln(‘=====================================’);

          write(‘Masukkan Pilihan Anda (0-3) ! ‘);

          readln(pil);

          writeln(‘=====================================’);

          case pil of

          1: begin

                  write(‘Jari – jari Lingkaran : ‘);

                  readln(r);

                  luas:=pi*r*r;

                  writeln(‘Luas Lingkaran      : ‘,luas:2:2);

             end;

          2: begin

                  write(‘Panjang sisi alas : ‘); readln(l);

                  write(‘Tinggi Segitiga   : ‘); readln(t);

                  luas:=0.5*l*t;

                  writeln(‘Luas Segitiga   : ‘,luas:2:2);

             end;

          3: begin

                  write(‘Panjang Bujur Sangkar : ‘);

                  readln(l);

                  write(‘Luas Bujur SAngkar    : ‘);

                  readln(t);

                  luas:=l*t;

                  writeln(‘Luas Bujur Sangkar  : ‘,luas:2:2);

             end;

          end;

          writeln(‘=====================================’);

          write(‘Apakah Anda akan mengulang (Y/T) ? ‘);

          readln(ulang);

     end;

end.

 

 

Output :

*

**

***

****

*****

****

***

**

*

 

Program Bintang ;

uses wincrt;

var

   i,j,n : integer;

begin

     clrscr;

     write(‘Jumlah Bintang : ‘); readln(n);

     for i:=1 to n do

         begin

              for j:=1 to i do write(‘*’);

              writeln;

              if i=n then

              begin

                   for i:=(n-1) downto 1 do

                   begin

                        for j:=1 to i do

                        write(‘*’);

                        writeln;

                   end;

                   readln;

              end;

         end;

end.

———————————————-

      a                a*a           a*a*a     1/a

———————————————-

           1               1               1           1.000

           2                4               8          0.500

           3                9              27          0.333

           4              16            64         0.250

           5              25            125        0.200

———————————————-

 

Program Hitung ;

uses wincrt;

var

    a,b,c,d : Integer;

    bagi : Real;

begin

      Writeln(‘——————————–‘);

      Writeln(‘  a    a*a    a*a*a    1/a ‘);

      Writeln(‘——————————–‘);

      for a := 1 to 5 do

      begin

            b:= a*a;

            c:=a*a*a;

            bagi := 1/a;

            Writeln(a:3,b:8,c:8,bagi:8:3);

      end;

      Writeln (‘——————————–‘);

      readln;

end.

 

 

Program Hitung2 ;

uses wincrt;

var

    a,b,c,d : Integer;

    bagi : Real;

begin

      Writeln(‘——————————–‘);

      Writeln(‘  a    a*a    a*a*a      1/a ‘);

      Writeln(‘——————————–‘);

      for a := 10 downto 1 do

      begin

            b:= a*a;

            c:=a*a*a;

            bagi := 1/a;

            Writeln(a:3,b:8,c:8,bagi:10:3);

      end;

      Writeln (‘——————————–‘);

      readln;

end.

 

 

Program Hitung3 ;

uses wincrt;

var

    fah,cel : real;

    x       : integer;

begin

      Writeln(‘——————————‘);

      Writeln(‘   Celcius      Fahrenheit    ‘);

      Writeln(‘——————————‘);

      cel:=0;

      for x := 1 to 10 do

      begin

            fah:=(1.8*cel)+32;

            writeln(cel:8:2,fah:15:2);

            cel:=cel+0.25;

      end;

      Writeln (‘—————————–‘);

      readln

end.

 

 

Output                                  1 1     1 2     1 3     1 4     1 5

2 1     2 2     2 3     2 4     2 5

3 1     3 2     3 3     3 4     3 5

4 1     4 2     4 3     4 4     4 5

5 1     5 2     5 3     5 4     5 5

Program Angka ;

uses wincrt;

Var

   a,b : Integer;

Begin

      For a:=1 To 5 Do 

      Begin

            For b:=1 To 5 Do Write (a :4,b:2);

            Writeln;

      End;

End.

 

 

 

Program Angka2;

uses wincrt;

Var

   a,b : Integer;

Begin

      For a:=5 downto 1 Do 

      Begin

            For b:=5 downto 1 Do Write (a :4,b:2);

            Writeln;

      End;

End.

 

Output :        1  2  3  4  5  6  7  8  9  10 10  9  8  7  6  5  4  3  2  1

 

Program Angka3;

uses wincrt;

var

   i: integer;

begin

     for i:=1 to 10 do

     write(i:3);

     if i>=10 then

        for i:=10 downto 1 do

        write(i:3);

     readln;

end.

 

Output:

1

121

12321

1234321

123454321

 

Program angka;

uses wincrt;

var

   i,j,n : integer;

begin

     clrscr;

     write(‘Masukkan Sebuah  : ‘); readln(n);

     for i:=1 to n do

         begin

              for j:=1 to i do

              write(j);

              if j>=i then

              begin

                   for j:=(i-1) downto 1 do

                   write(j);

                   writeln;

              end;

              readln;

         end;

end.

 

Output:

 

1  2   3   4   5

2  4   6   8   10

3  6   9   12  15

4  8   12  16  20

5  10  15  20  25

 

Program angka;

uses wincrt;

var

   i,x,n : integer;

begin

     clrscr;

     write(‘Masukkan Bilangan : ‘); readln(n);

     writeln;

     for i:=1 to n do

     begin

          for x:=1 to n do

          begin

               write(i*x:5);

          end;

          writeln;

          readln;

     end;

end.

 

Output:                    1

                                    2

                                    3

                                    4

                                    5

 

Program angka4;

uses wincrt;

var

   i: integer;

begin

     i:=1;

     while i<=5 do

     begin

          writeln(i);

          i:=i+1;

          readln;

     end;

     readln;

end.

       Proses 1 + 2 + 3 = 6

       Output

       Jumlah Total = 6

 

Program Jumlah1;

uses wincrt;

var

   n,i,jum : integer;

   rata    : real;

begin

     write(‘Banyaknya Data : ‘); read(n);

     begin

          jum:=0;

          i:=1;

          while i<=n do

          begin

               jum:=jum+i;

               write(i:3);

               i:=i+1;

          end;

          rata:=jum/n;

          writeln;

          writeln(‘Jumlah Total   : ‘,jum);

          writeln(‘Rata – rata    : ‘,rata:2:2);

          readln;

     end;

end.

 

Output

                  Anak Ayam Turun 10, Mati 1 Tinggal 9

                  Anak Ayam Turun 1, Mati 1 Tinggal Induknya

 

Program Ayam ;

uses wincrt;

var

  k : integer;

begin

   write(‘Turun : ‘); readln(k);

   while k>1 do

   begin

     writeln(‘Anak ayam turun ‘,k,’ mati 1 tinggal ‘,k-1:1);

     k:=k-1;

   end;

   if k=1 then

      writeln(‘Anak ayam turun ‘,k,’ mati 1 tinggal Induknya’);

   readln

end.

 

 

Output

                  Masukkan Data ? 2

                  Data Ke – 1             : 2

                  Data Ke – 2             : 3

                  Total                         : 5

 

Program Data ;

uses wincrt;

var

   k,i,n,total : integer;

begin

     write(‘Masukkan Jumlah data : ‘); readln(n);

     i:=1;

     total:=0;

     while i<=n do

     begin

          write(‘Data Ke ‘,i,’ ? ‘);

          readln(k);

          i:=i+1;

          total:=total+k;

     end;

     writeln(‘Total : ‘,total);

     readln;

end.

 

 

Output

                  Masukan Jumlah Data ? 2

                  Data Ke – 1 : 3

                  Data Ke – 2 : 3

                  ===================

                  Jumlah Data          : 2

                  Jumlah Total         : 6

                  Rata – Rata            : 3

                  ===================

                  Masukkan Data Kembali (Y/T) ? Y

                  Jika Y, Program diulang kembali

 

Program Data2;

uses wincrt;

var

   i,n,nilai,total : integer;

   rata            : real;

   ulang           : char;

begin

     clrscr;

     ulang:=’Y’;

     while upcase(ulang)=’Y’ do

     begin

          clrscr;

          write(‘Masukkan Jumlah data : ‘); readln(n);

          i:=1;

          total:=0;

          while i<=n do

          begin

               write(‘Data Ke – ‘,i,’ ? ‘);

               readln(nilai);

               i:=i+1;

               total:=total+nilai;

          end;

          rata:=total/n;

     writeln(‘==================’);

     writeln(‘Jumlah Data  : ‘,n);

     writeln(‘Jumlah total : ‘,total);

     writeln(‘Rata – rata  : ‘,rata:2:2);

     writeln(‘==================’);

     write(‘Masukkan data kembali (Y/T) ? ‘);

     readln(ulang);

     end;

end.

 

Output                      Menu Masakan

1.         Baso

2.         Tahu

3.         Kue

4.         Exit

                  Pilihan Anda ? 1

                  Anda Memilih Makan Baso

                  Ulangi (Y/T) ? T

                  Jika T, Anda Keluar dari Program

 

Program Masakan ;

uses wincrt;

var

   pilih : byte;

   ulang : char;

 

begin

     clrscr;

     ulang:=’Y’;

     while ulang<>’T’ do

     begin

          clrscr;

          writeln(‘Menu Masakan’);

          writeln(‘1. Baso’);

          writeln(‘2. Tahu’);

          writeln(‘3. Kue’);

          writeln(‘4. Exit’);

          write(‘Pilihan Anda ? ‘);

          readln(pilih);

          writeln(‘==================================’);

          case pilih of

                   1: writeln(‘Anda memilih makan Baso’);

                   2: writeln(‘Anda memilih makan Tahu’);

         3: writeln(‘Anda memilih makan Kue’);

          end;

          writeln(‘==================================’);

          write(‘Apakan anda akan mengulang (Y/T) ? ‘);

          readln(ulang);

     end;

end.

 

Output :        5 ! : 1 x 2 x 3 x 4 x 5: 120

3 ! : 1 x 2 x 3  : 6

 

Program Faktorial ;

uses wincrt;

var

   i,n,tot : integer;

begin

     write(‘Masukkan Bilangan : ‘); readln(n);

     i:=1;

     tot:=1;

     while i<=n do

     begin

          tot:=tot*i;

          i:=i+1;

     end;

     writeln(n,’! : ‘,tot);

     readln;

end.

 

      Nilai Awal                    : 10

      Selisih                             : 3

      Diulang                          : 4 Kali

 

Program Angka5 ;

uses wincrt;

var

   i,n,ulang,a : integer;

begin

     write(‘Nilai Awal : ‘); readln(n);

     write(‘Selisih    : ‘); readln(i);

     write(‘Diulang    : ‘); readln(ulang);

     a:=1;

     while a<=ulang do

     begin

          write(n:3);

          a:=a+1;

          n:=n+i;

     end;

     readln;

end.

 

 

Output :        23 : 2 x 2 x 2 : 8

52 : 5 x 5 : 25

 

Program Pangkat ;

uses wincrt;

var

   i,n,x,tot : integer;

 

begin

     write(‘Bilangan : ‘); readln(n);

     Write(‘Pangkat  : ‘); readln(x);

     i:=1;

     tot:=1;

     while i<=x do

     begin

          tot:=tot*n;

          i:=i+1;

     end;

     writeln(n,’^’,x,’ : ‘,tot);

     readln;

end.

 

 

Deret Fibonanci :  1   1   2   3   5 

 

Program Fibonanci ;

uses wincrt;

var

   i,n,x,a,tot : integer;

begin

     write(‘Nilai Awal : ‘); readln(n);

     write(‘diulang    : ‘); readln(x);

     i:=1;

     a:=1;

     tot:=0;

     while i<=x do

     begin

          write(n:3);

          n:=n+tot;

          tot:=tot+a;

          a:=n-tot;

          i:=i+1;

     end;

end.

 

 

                        Nilai Data ke 1 ? 5

                        Nilai Data ke 2 ? 6

                        Nilai Data ke 3 ? 99999

                        =================================

                        Total Nilai    :

                        Jumlah Data :

                        Rata- rata      :

                        =================================

                        Apakah akan megulang program (Y/T) ?

 

Program Nilai ;

uses wincrt;

Var

   nilai,total,rata : real;

   i : integer;

   ulang : char;

begin

     ulang:=’Y’;

     while ulang=’Y’ do

     begin

          clrscr;

          i:=0;

          total:=0;

          nilai:=0;

          while nilai<>99999 do

          begin

               i:=i+1;

               write(‘Nilai data ke ‘,i,’ ? ‘);

               readln(nilai);

               total:=total+nilai;

          end;

          total:=total-99999.0;

          i:=i-1;

          rata:=total/i;

          writeln(‘======================================’);

          writeln(‘Total Nilai : ‘,total:2:2);

          writeln(‘Jumah Data  : ‘,1:3);

          writeln(‘Rata rata   : ‘,rata:2:2);

          writeln(‘======================================’);

          write(‘Apakah akan mengulang program (Y/T) ? ‘);

          readln(ulang);

     end;

end.

Output                                  Banyak Data  : 5

                                                1   2   3   4   5

                                                Jumlah Data  : 15

                                                Rata – rata     : 3.00

 

Program Angka6 ;

uses wincrt;

var

n,i,jum : integer;

rata    : real;

begin

     clrscr;

     write(‘Banyak Data : ‘); readln(n);

     jum:=0;

     i:=0;

     repeat

           i:=i+1;

           write(i:3);

           jum:=jum+i;

           rata:=jum/i;

     until i>=n;

     writeln;

     writeln(‘Jumlah Data : ‘,jum);

     writeln(‘Rata – rata : ‘,rata:2:2);

     readln;

end.

 

 

Output :

 

 

 

 

 

 

 

 

 

Program Sisi ;

uses wincrt;

var

   a,b,c : real;

begin

     writeln(‘================================’);

     writeln(‘sisi A      sisi B      sisi C  ‘);

     writeln(‘================================’);

     a:=1;

     repeat

           b:=0;

           repeat

                 c:=sqr(a*a+b*b);

                 writeln(a:5:2,b:12:2,c:15:2);

                 b:=b+5;

           until b>15;

           a:=a+1;

     until a>3;

     writeln(‘================================’);

end.

 

 

                        Banyak Data  : 5

                        ========================

                           1   2   3   4   5

                        ========================

                        Jumlah Data  : 15

                        Rata – rata      : 3.00

                        ========================

                        Ingin menghitung lagi (Y/T) ?

Program berhenti bila manekan ‘T’

 

Program Data3 ;

uses wincrt;

var

   n,i,jum : integer;

   rata    : real;

   ulang   : char;

begin

     repeat

           clrscr;

           write(‘Banyak Data : ‘); readln(n);

           jum:=0;

           i:=1;

           writeln(‘==============================’);

           repeat

                 jum:=jum+i;

                 write(i:3);

                 i:=i+1;

           until i>n;

           writeln;

           writeln(‘==============================’);

           rata:=jum/n;

           writeln(‘Jumlah Data : ‘,jum);

           writeln(‘Rata – rata : ‘,rata:2:2);

           writeln(‘==============================’);

           write(‘Ingin menghitung lagi (Y/T) ? ‘);

           readln(ulang);

     until ulang=’T’

end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: