Tugas Teori Algoritma dan Pemrograman (end)

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                 : Olis AB. Yusuf

      Nim                    : 21015269

      Program studi  : Sistem Informasi

      Tahun lahir        : 1991

      Umur                 :20

      Keterangan      : Remaja

Penyelesaian:

13. 1) Listing Program:

1. uses crt;  
2. var i, j: byte;  
3. begin  
4.   clrscr;   
5.   for i:= 1 to 4 do  
6.    begin  
7.      for j:= 1 to 4 do  
8.      write(j:4); writeln(#10);  
9.    end;  
10.   readln;  
11. end.  

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.

     2) Listing Program:

1. uses crt;  
2. var A, i, j: byte;  
3. begin  
4.   clrscr;  
5.   A:=2;  
6.   for i:= 1 to 3 do  
7.    begin  
8.      for j:= 1 to 3 do  
9.      write(A:4);  
10.      A:=A-1;  
11.      writeln(#10);  
12.    end;  
13.    readln  
14. end.  

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.

     3) Listing program

1. uses crt;  
2. var i, j: byte;  
3. begin  
4.   clrscr;  
5.   for i:= 1 to 3 do  
6.    begin  
7.      for j:= 3 downto 1 do  
8.      write(j:4);  
9.      writeln(#10);  
10.    end;  
11.   readln  
12. end.  

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.

     4) Listing Program:

1. uses crt;  
2. var i, j: byte;  
3. begin  
4.   clrscr;  
5.   for i:= 1 to 4 do  
6.    begin  
7.      for j:= 1 to i do  
8.      write(j:4);  
9.      writeln(#10);  
10.    end;  
11.   readln  
12. end.  

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.

     5) Listing Program

1. uses crt;  
2. var i, j: byte;  
3. begin  
4.   clrscr;  
5.   for i:= 1 to 4 do  
6.    begin  
7.      for j:= 4 downto i do  
8.      write(j:4);  
9.      writeln(#10);  
10.    end;  
11.    readln  
12. end.  

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.

     6) Listing Program:

1. uses crt;  
2. var A, i, j: byte;  
3. begin  
4.   A:=1;  
5.   for i:= 1 to 4 do  
6.    begin  
7.      for j:=1 to i do  
8.       begin  
9.         write(A:4);  
10.         A:=A+2;  
11.       end;  
12.       writeln(#10);  
13.    end;  
14.    readln  
15. end.  

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, di mana 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

       Listing Program:

1. uses crt;  
2. var x: array[1..5] of integer;  
3.     n,min,temp,i,j: integer;  
4. begin  
5.   clrscr;  
6.   writeln('Program pengurutan bilangan');  
7.   writeln('____________________________');  
8.   writeln;  
9.   for n:=1 to 5 do  
10.    begin  
11.     write('Input bilangan ',n,': ');readln(x[n]);  
12.    end;  
13.    n:=5;  
14.    for i:=1 to n-1 do  
15.     begin  
16.       min:=i;  
17.       for j:=i+1 to n do  
18.        begin  
19.          if x[j] <= x[min] then  
20.          min:=j;  
21.        end;  
22.          temp:=x[i];  
23.          x[i]:=x[min];  
24.          x[min]:=temp;  
25.     end;  
26.    writeln(#10);  
27.    writeln('Hasil pengurutan adalah:');  
28.    writeln;  
29.    for n:=1 to 5 do  
30.    write(x[n]:4);  
31.    readln  
32. end.  

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 untuk mengisi biodata mahasiswa serta menampilkan umur dan keterangan umur

      secara otomatis:

1. uses crt;  
2. var lahir, umur: integer;  
3.     ket: string;  
4. begin  
5.   write('NIM          : ');readln;  
6.   write('Nama         : ');readln;  
7.   write('Program Studi: ');readln;  
8.   write('Tahun Lahir  : ');readln(lahir);  
9.   writeln(#10);  
10.    umur:=2010-lahir;  
11.     if umur<=5 then ket:='balita'  
12.       else if umur<=13 then ket:='anak-anak'  
13.         else if umur<=25 then ket:='remaja'  
14.           else if umur<=40 then ket:='dewasa'  
15.             else ket:='orang tua';  
16.   writeln('Umur      : ', umur);  
17.   writeln('Keterangan: ', ket);  
18.   readln  
19. end.  

uses crt;
var lahir, umur: integer;
    ket: string;
begin
  write('NIM          : ');readln;
  write('Nama         : ');readln;
  write('Program Studi: ');readln;
  write('Tahun Lahir  : ');readln(lahir);
  writeln(#10);
   umur:=2010-lahir;
    if umur<=5 then ket:='balita'
      else if umur<=13 then ket:='anak-anak'
        else if umur<=25 then ket:='remaja'
          else if umur<=40 then ket:='dewasa'
            else ket:='orang tua';
  writeln('Umur      : ', umur);
  writeln('Keterangan: ', ket);
  readln
end.