Tugas Teori Algoritma dan Pemrograman (bag.3)

9. Masukkan sebuah bilangan kemudian tentukan apakah bilangan yang diinput adalah bilangan ganjil
    atau bilangan genap. Gunakan metode pemilihan.

     Layout:

     Masukkan sebuah bilangan: 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.

Penyelesaian:

9. Program pascal untuk menentukan bilangan bulat yang diinput adalah bilangan ganjil atau genap:

1. uses crt;  
2. var lagi: char; x: longint; ket: string;  
3. begin  
4.   clrscr;  
5.   lagi:='Y';  
6.   while lagi='Y' do  
7.    begin  
8.      clrscr;   
9.      write('Masukkan sebuah bilangan bulat: ');readln(x);  
10.      if x mod 2= 0 then ket:='genap'  
11.       else ket:='ganjil';  
12.      writeln;   
13.      writeln('Bilangan yang diinput adalah bilangan ',ket);  
14.      write('Coba lagi (Y/N ): '); read(lagi);  
15.      end;  
16.   readln  
17. end.  

uses crt;
var lagi: char; x: longint; ket: string;
begin
  clrscr;
  lagi:='Y';
  while lagi='Y' do
   begin
     clrscr; 
     write('Masukkan sebuah bilangan bulat: ');readln(x);
     if x mod 2= 0 then ket:='genap'
      else ket:='ganjil';
     writeln; 
     writeln('Bilangan yang diinput adalah bilangan ',ket);
     write('Coba lagi (Y/N ): '); read(lagi);
     end;
  readln
end.

10. Program pascal untuk menghitung hasil proses aritmatika dari dua bilangan bulat yang diinput:

1. uses crt;  
2. var  b1, b2: longint;  
3. begin  
4.   clrscr;  
5.   write('Bilangan 1: '); read(b1);  
6.   write('Bilangan 2: ');readln(b2);  
7.   writeln(#10);  
8.   writeln('Hasil penjumlahan= ', b1+b2);  
9.   writeln('Hasil pengurangan= ', b1-b2);  
10.   writeln('Hasil perkalian  = ', b1*b2);  
11.   writeln('Hasil pembagian  = ', b1/b2 :0:0);  
12.   readln;  
13. end.  

uses crt;
var  b1, b2: longint;
begin
  clrscr;
  write('Bilangan 1: '); read(b1);
  write('Bilangan 2: ');readln(b2);
  writeln(#10);
  writeln('Hasil penjumlahan= ', b1+b2);
  writeln('Hasil pengurangan= ', b1-b2);
  writeln('Hasil perkalian  = ', b1*b2);
  writeln('Hasil pembagian  = ', b1/b2 :0:0);
  readln;
end.

11. Program pascal untuk menghitung luas lingkaran dengan menginput jari-jari lingkaran (r):

1. uses crt;  
2. var L,r: real;  
3. const pi=3.14;  
4. begin  
5.    clrscr;  
6.    write('Jari-jari lingkaran= '); readln(r);  
7.      L:= pi * sqr(r);   
8.    writeln('Luas lingkaran   = ', L:0:0);  
9.    readln  
10. end.  

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. Algortma untuk menghitung luas daerah yang diarsir pada gambar:

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, L_Total= pL x lL
3. Menghitung luas tengah, L_Tengah= pT x lT
4. Didapat luas yang diarsir, L_Arsir= L_Total-L_Tengah

      Listing Program:

1. uses crt;  
2. var pL, lL, pT, lT, L_total, L_tengah: integer;   
3. begin  
4.   clrscr;  
5.   pL:=18;  lL:=12;  pT:=10;  lT:=5;  
6.   L_total:= pL*lL;  
7.   L_tengah:= pL*lL;  
8.   writeln('Luas total     = ', L_total);  
9.   writeln('Luas tengah    = ', L_tengah);  
10.   writeln('Luas yg diarsir= ', L_total-L_tengah);  
11.   readln;   
12. end.