Teori Algoritma & Pemrograman (Bag.3)

NIM        : 21015029
NAMA    : RIZKI LAMOLA
KELAS   : 1-MISI-02


Buatlah Algoritma kemudian terjemahkan ke dalam bahasa pemrograman pascal 


9. Masukkan sebuah bilangan kemudian tentukan apakah bilangan yang diinput adalah
    bilangan ganjil atau bilangan genap. Gunakan metode pemilihan.
     Layout:
     Masukkan sebuah bilangan: <misal> 3 --> ENTER
     Bilangan yang anda input adalah bilangan ganjil
10. Masukkan bilangan 1, setelah itu bilangan 2, kemudian lakukan proses penjumlahan,
     perkalian, pengurangan, dan pembagian. Hasil dari keempat proses aritmatika tersebut
     ditampilkan.
      Layout:
      Bilangan 1:  6
      Bilangan 2:  3
      Hasil penjumlahan  = 9
      Hasil pengurangan = 3
      Hasil perkalian      = 18
      Hasil pembagial     = 2

11. Masukkan nilai jari-jari sebuah lingkaran. Kemudian program akan menampilkan
hasil perhiutungan luas lingkaran.

       Layout:
       Jari-jari lingkaran: 7
       Luas lingkaran adalah: 154
12. Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar berikut.

13. Buat tampilan program di bawah 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

14.  Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang
       diinput. Gunakan metode urutan, pemilihan dan pengulangan.

       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

15. Buat program sederhana menggunakan metode pemilihan untuk
      menampilkan keterangan umur di mana:

Umur	Keterangan
0-5	Balita
6-13	Anak-anak
14-25	Remaja
26-40	Dewasa
> 41	Orang Tua

      Dengan memasukkan nama, nim, program studi, dan tahun lahir, maka
      akan ditampilkan umur dan keterangan umur.
      Layoutnya:
      Nama                  :Rizki Lamola
      Nim                    : 21015029
      Program studi    : Sistem Informasi
      Tahun lahir         : 1992


      Umur                 :18
      Keterangan        : Remaja

Penyelesaian:

9. Program pascal:

9.1.program

9.2a.layout_utk_hasil_ganjil

9.2b.layout_utk_hasil_genap

10. Program pascal:

10.1.program

10.2.layout

11.  Program pascal untuk menghitung luas lingkaran dengan menginput jari-jari

       lingkaran (r):

   

uses crt;
var L,r: real;
const pi=3.14;
begin
   clrscr;
   write('Jari-jari lingkaran= '); readln(r);
     L:= pi * sqr(r); 
   writeln('Luas lingkaran   = ', L:0:0);
   readln
end.

12. Algortmanya:

1. pL= 18, lL= 12, pT= 10, lT= 5
2. L_Total= pL x lL
3. L_Tengah= pT x lT
4. L_Arsir= L_Total-L_Tengah

      ket:  - panjang luar (pL)
              - lebar luar (lL)
              - panjang tengah (pT)
              - lebar tengah (lT)

12.1.program

12.2.layout

13. bagian 1.

uses crt;
var i, j: byte;
begin
  clrscr; 
  for i:= 1 to 4 do
   begin
     for j:= 1 to 4 do
     write(j:4); writeln(#10);
   end;
  readln;
end. 

      bagian  2. 

uses crt;   
var A, i, j: byte;  
begin
   clrscr;
   A:=2;
   for i:= 1 to 3 do    
    begin
       for j:= 1 to 3 do   
       write(A:4);  
       A:=A-1;
       writeln(#10);
    end; 
   readln    
end.

      bagian  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(#10);
   end;
  readln
end. 

      bagian 4

uses crt;
var i, j: byte;
begin
  clrscr;
  for i:= 1 to 4 do
   begin
     for j:= 1 to i do
     write(j:4);
     writeln(#10);
   end;
  readln
end.

       bagian 5

uses crt;
var i, j: byte;
begin
  clrscr;
  for i:= 1 to 4 do
   begin
     for j:= 4 downto i do
     write(j:4);
     writeln(#10);
   end;
   readln
end.

      bagian 6

uses crt;
var A, i, j: byte;
begin
  A:=1;
  for i:= 1 to 4 do
   begin
     for j:=1 to i do
      begin
        write(A:4);
        A:=A+2;
      end;
      writeln(#10);
   end;
   readln
end.

14. Program pengurutan data yang diinput secara acak.

      Menggunakan metode  selection sort

      Jika min menyatakan indeks elemen terkecil dari  elemen ke i

      sampai elemen ke n. Dimana n merupakan jumlah data yang akan

      diurutkan. Algoritma untuk mencari elemen terkecil adalah:

      for i:= 1 to n-1 do 

    {cari elemen terkecil}

   min:= i {min adlh index elemen terkecil}

   for j:= i+1 to n do

     if x[j] <= x[min] then

     min:= j eif
   efor

     {menukar elemen terkecil dengan

      elemen i}

       temp:= x[min]

       x[min]:= x[i]

       x[i]:= temp

   efor

                  Program pascal:

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(#10);
   writeln('Hasil pengurutan adalah:');
   writeln;
   for n:=1 to 5 do
   write(x[n]:4);
   readln
end.

15. Program pascal:

15.1.program

 15.2.layout