Program pascal - perulangan bilangan

Buat tampilan program dibawah ini dengan menggunakan metode perulangan  
               
       1 2 3 4                         2 2 2                            3 2 1
       1 2 3 4                         1 1 1                            3 2 1

       1 2 3 4                         0 0 0                            3 2 1
       1 2 3 4

       1                                  4 3 2 1                         1         

       1 2                               4 3 2                            3   5  
       1 2 3                            4 3                               7   9   11

       1 2 3 4                         4                                  13 15 17 19

           

Jawab:

1.         uses crt;                         

   var I,J :integer;

   begin

   clrscr;

     for I:=1 to 4 do

     begin

     for J:= 1 to 4 do

     write(J:4);

     writeln;

     end;

     readln;

   end.

2.    uses crt;

   var A, I,J: integer;

   begin

     clrscr;

     A:=2;

     for I:= 1 to 3 do

     begin

     for J:= 1 to 3 do

     write(A:4);

     A:=A-1; writeln;

     End;

     Readln;

end.

3. uses crt; var i, j: byte;

      begin

         clrscr;

         for i:= 1 to 3 do

         begin

         for j:= 3 downto 1 do

         write(j:4); writeln;

         end;

         readln;

        end.

4. uses crt;

   var i, j: integer;

   begin

     clrscr;

     for i:= 1 to 4 do

     begin

     for j:= 1 to i do

     write(j:4); writeln;

     end;

     readln;

   end.

1.  5. uses crt;

   var A, i,j:integer;

   begin

     clrscr;

     for i:= 4 downto 1 do

     begin

     A:=4;

     for j:= 1 to i do

     begin

     write(A:4);

     A:=A-1;

     end;

     writeln;

     end;

     readln;

   end.

6. uses crt;

   var A, i, j: byte;

   begin

     clrscr;

     A:= 1;

     for i:= 1 to 4 do

     begin

     for j:= 1 to i do

     begin

     write(A:4);

     A:= A+2;

     end;

     writeln;

     end;

     readln;

   end.

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.