program pascal-luas persegi panjang

   Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar dibawah ini

1. Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
2. Menghitung luas total, Ltotal= pL x lL
3. Menghitung luas tengah, Ltengah= pT x lT
4. Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

      Program pascal:

uses crt;

var pL, lL, pT, lT, Ltotal , Ltengah: integer;

begin

    clrscr;

    pL:=18;  lL:=12;  pT:=10;  lT:=5;

    Ltotal:= pL*lL;

    Ltengah:= pT*lT;

    writeln('Luas total       = ', Ltotal);

    writeln('Luas tengah      = ', Ltengah);

    writeln('Luas yang diarsir= ', Ltotal-Ltengah);

    readln;

end.

Program pascal - aritmatika

Masukan bilangan 1, setelah itu masukan bilangan 2, kemudian lakukan proses penjumlahan, perkalian pengurangan, dan pembagian. Hasil dari ke empat operasi aritmatika tersebut ditampilkan

Layout :

Bilangan 1       : 6

Bilangan 2       : 3

Hasil Penjumlahan      : 9

Hasil Pengurangan      : 3

Hasil Perkalian            : 18

Hasil Pembagian         : 2

Jawab:

uses crt;

var A,B:integer;

begin

    clrscr;

    Write('Bilangan 1: ');Readln(A);

    Write('Bilangan 2: ');Readln(B);

    Writeln('Hasil Penjumlahan= ',A+B);

    Writeln('Hasil Pengurangan= ',A-B);

    Writeln('Hasil Perkalian  = ',A*B);

    Writeln('Hasil Pembagian  = ',A/B:0:0);

    Readln;

end.

Algoritma-Pascal Luas Lingkaran

Masukan nilai jari-jari sebuah lingkaran. Kemudian program akan menampilkan

hasil luas lingkaran.

Layout       : 
Jari-jari lingkaran   : 7
Luar Lingkaran adalah 154

Jawab :

1.      1. Masukan nilai jari-jari yang menyatakan r

2.      2. Menetapkan nilai phi yaitu phi = 3.14

3.      3. Menghitung luas lingkaran yang menyatakan L yaitu L = phi * r * r

4.      4. Cetak hasil luas lingkaran (L) 
    uses crt;
    const phi=3.14;
    var L,r: real; 
    begin 
      writeln('Program Menghitung Luas Lingkaran');
      write('Masukan jari-jari Lingkaran:');
      Readln(r); 
      L:=phi*r*r;
      writeln('Luas Lingkaran adalah:',round(L));
      Readln; 
    end.

algoritma Mencari Bilangan Ganjil atau Genap

Masukan sebuah bilangan kemudian tentukan apakah bilangan yang diinput termasuk bilangan ganjil, bilangan genap. Gunakan metode pemilihan 

Layout :

Masukan sebuah bilangan             :  3  à enter

BIlangan yang anda input adalah bilangan ganjil

Jawab :

1.                1. Beri Nilai A

2.                2..Cetak Nilai A

2.1  Jika A mod 2 = 0, maka A bilangan genap

2.2  Jika tidak, maka A bilangan ganjil

       uses crt;

       var A: integer;

       begin

         clrscr;

         write('masukan bilangan:');

         Readln(A);

         if (A mod 2)= 0 then

         write(A,' ','adalah bilangan genap')

         else

         write(A,' ','adalah bilangan ganjil');

         Readln;

       end.     

Bilangan kelipatan 3 dan 5

Menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 s/d 30 
Jawab:

• Untuk i:= 1 sampai 30 lakukan:
• jika i mod 3= 0 maka cetak i
• selain itu jika i mod 5= 0 maka cetak i.

     

uses crt;

var i: integer;

begin 

  clrscr;

  for i:= 1 to 30 do

  begin 
  if i mod 3 = 0 then write(i:4)                                   else 
  if i mod 5 = 0 then write(i:4);

  end;

  readln;

end.

Menampilkan bilangan prima dari angka 1 s/d 20

Jawab :

1. bilangan prima hanya akan habis bila dibagi 1 dan bilangan itu sendiri.
2. sehingga pasti akan ada sisa hasil bagi (mod) jika dibagi bilangan lebih dari 1 (kecuali 2) sampai bilangan sebelum bilangan itu (x-1).
3. mencetak 2 terlebih dahulu ke layar.
4. mengeset status bilangan prima menjadi true.
5. beri nilai  =1 (menandakan bilangan prima).
6. melakukan pengecekan mulai dari 2 sampai x-1.
7. jika x habis dibagi bilangan yang ada antara 2 sampai x-1, berarti x bukan bilangan prima. Variabel prima yang awalnya true berubah jadi false dan pengecekan tidak perlu dilanjutkan (break).
8. jika dari bilangan antara 2 sampai x-1 tak satupun yang habis dibagi, maka variabel prima yang dideklarasikan sebagai true tidak berubah nilai (tetap true). Sehingga bilangan tersebut adalah bilangan prima dan akan ditampilkan ke layar.
9. tambahkan nilai x dengan 1 dan ulangi dari langkah ke-5 sampai nilai x= 20

    uses crt;

    var x,y:  integer;

    prima: boolean;

    begin

      clrscr;

      write('2':4);

      for x := 3 to 20 do

      begin

      prima:=true;

      for y := 2 to x-1 do

      begin

      if (x mod y) = 0 then

      begin

      prima := false;

      break;

      end;

      end;

      if prima then write(x:4);

      end;

    Readln;

    end.

Bilangan Genap dari angka 1 s/d 50

Menampilkan bilangan genap dari angka 1 s/d 50 

Jawab:

-                         1. Beri Nilai A = 1

-                         2. Untuk I = 1 samapi 50 lakukan

2.1 Cetak Nilai A

2.2  Jika A mod 2 = 0 , maka nilai A = bilangan genap

uses crt;

var I,A: integer;

begin

A:=1;

 clrscr;

 for I:= 1 to 50 do

begin

if I mod 2= 0 then

write(I:5);

end;

  Readln;

end.