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.

metode urutan angka

Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang dinput. Gunakan metode urutan,    pemilihan dan perulangan.

Layout :

Angka 1          : 8

Angka 2          : 17

Angka 3          : 5

Angka 4          : 7

Angka 5          : 18

Hasil urutan sebagai berikut:

5          7          8          17        18

Jawab:

a. urutan
if  N1 >  N2  maka tukarkanlah

8

17

5

7

18

5

17

8

7

18

5

8

17

7

18

5

7

17

8

18

5

7

8

17

18

b. pemilihan dan perulangan

uses crt;
var x: array[1..5] of integer;
    n,min,temp,i,j: integer;
begin
  clrscr;
  writeln('Program pengurutan bilangan');
  writeln('____________________________');
  writeln;
  for n:=1 to 5 do
   begin
    write('Input bilangan ',n,': ');readln(x[n]);
   end;
   n:=5;
   for i:=1 to n-1 do
    begin
      min:=i;
      for j:=i+1 to n do
       begin
         if x[j] < x[min] then
         min:=j;
       end;
         temp:=x[i];
         x[i]:=x[min];
         x[min]:=temp;
    end;
   writeln('Hasil pengurutan adalah:');
   writeln;
   for n:=1 to 5 do
   write(x[n]:4);
   readln
end.  

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 - 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.