SIMPLE_PASCAL

  1. Buatlah flowchart untuk menghitung perkalian bilangan dengan menggunakan tanda tambah, perhitungkan kemungkinan bilangan uji, 0, dan negatif.

 

program dasar,


program dengan kemungkinan bilangan uji, 0, dan negatif

program kali;
var
   x,y,s:integer;
   tanda:integer;

begin
   tanda := 1;
   writeln;
   writeln;
   write('Isi bilangan yang mau dikalikan -=> :'); readln(x);
   write('Isi bilangan pengali            -=> :'); readln(y);
   if (y < 0) then
     begin
       tanda:= -1;
       y := y * tanda;
     end;
   s := 0;
   while (y > 0) do
   begin
     s := s + x;
     y := y - 1;
   end;
   writeln(' Hasil kali adalah     -=> : ', s * tanda);
   readln;
end.


  1. Buatlah flowchart untuk menghitung pembagian  bilangan dengan menggunakan tanda kurang, perhitungkan kemungkinan bilangan uji, 0, dan negatif.

program dasar 

 

program bagi;
var
   x, y, hb, sisa: integer;
begin
   write (' bil yang mau dibagi :'); readln(x);
   write (' bil pembagi         :'); readln(y);
   hb := 0;
   sisa := x;
   while (sisa >= y) do
   begin
      sisa := sisa - y;
      hb := hb + 1;
   end;
   if (sisa > 0) then  writeln (' hasil bagi = ',hb, '  sisa = ',sisa);
   if (sisa = 0) then  writeln (' hasil bagi = ',hb);
   readln;f
end.

 

  1. Buatlah flowchart untuk menghitung nilai X1, dan X2, untuk persamaan kwadrat ax2 + bx + c = 0, perhitungkan kemungkinan bilangan uji, 0, dan negatif, determinan = 0, determinan > 0, dan determinan < 0.

program abc;

var
   a, b, c, d, x1, x2: real;

begin
  writeln;
  writeln(' ax^2 + bx + c = 0');
  writeln;
  write  (' Isi nilai a  -=> '); readln(a);
  write  ('           b  -=> '); readln(b);
  write  ('           c  -=> '); readln(c);

  d := (b * b) - (4 * a * c);
  if (d = 0) then
  begin
    writeln ('akar kembar x1 = x2 = ',-b/(2*a):3:3);
  end;

  if (d > 0) then
  begin
    x1 := -b/(2*a) + sqrt(d)/(2*a);
    x2 := -b/(2*a) - sqrt(d)/(2*a);
    writeln ('x1 = ',x1:3:3);
    writeln ('x2 = ',x2:3:3);
  end;

  if (d < 0) then
  begin
    d:= d * -1;
    writeln ('x1 = ', -b/(2*a):3:3,' +i', sqrt(d)/(2*a):3:3);
    writeln ('x2 = ', -b/(2*a):3:3,' -i', sqrt(d)/(2*a):3:3);
  end;

  readln;
end.

Latihan 1

  1. Buatlah program dalam bahasa Pascal untuk menghitung total luas bidang diluar segi6 dan didalam lingkaran seperti pada gambar berikut ini dengan menggunakan

- a procedure

- b function

Parameter yang digunakan adalah jari-jari (r)

 

  1. Buatlah program dalam bahasa Pascal untuk menghitung total luas bidang diluar lingkaran dan didalam bujursangkar seperti pada gambar berikut dengan menggunakan

- a procedure

- b function

Parameter yang digunakan adalah jari-jari (r)

 

  1. Buatlah program dalam bahasa Pascal untuk menghitung volume diluar bola didalam kubus bila dalam kubus seperti pada gambar berikut ini dengan menggunakan

- a procedure

- b function

Parameter yang digunakan adalah jari-jari (r)


Latihan 2

  1.  Buat program untuk menghitung nilai kombinasi sbb

nCr = n! / r! * (n - r)!

  1.  Buatlah program untuk menghitung luas sector pada suatu lingkaran 

  2. . Buatlah program menghitung volume bola dalam kubus.

 

 

 

Contoh program menggunakan fungsi,

menghitung luas diluar lingkaran didalam bujur sangkar.

 

 

program fungsi_lbs;
function luas_lingkaran (var r:real):real;
begin
   luas_lingkaran := pi * r * r;
end;
function luas_bs (var s:real) : real;
begin
   luas_bs := s * s;
end;
var
   jari2, sisi: real;   luas_bujur_sangkar, luas_link, delta_luas : real;
begin
   writeln;
   write('Isi nilai panjang sisi -=>:'); readln(sisi);
   jari2 := sisi / 2;
   luas_bujur_sangkar := luas_bs(sisi);
   luas_link := luas_lingkaran(jari2);
   delta_luas := luas_bujur_sangkar - luas_link;
   write('Selisih luas adalah    -=>:', delta_luas:5:3);
   readln;
end.
26-11-2018
Buatlah program dalam bahasa Pascal untuk menghitung 
total luas bidang diluar lingkaran dan didalam bujursangkar 
dengan menggunakan Parameter jari-jari (r)
jawab:
program delta_l;
procedure ambil_nilai_r (var r : real);
begin
   write(' Isi nilai r -=>: '); readln(r);
end;
procedure luas_bs (r : real; var l_bs : real);
begin
  l_bs := sqr(2*r);
end;
procedure luas_link (r : real; var l_link : real);
begin
   l_link := pi * r * r;
end;
var jari2, luas_bjr_sangkar, luas_lingkaran : real;
    delta_luas : real;
begin
    ambil_nilai_r (jari2);
    luas_bs (jari2, luas_bjr_sangkar);
    luas_link (jari2, luas_lingkaran);
    writeln (' jari2: ',jari2:2:2,'  Luas bujur sangkar: ', luas_bjr_sangkar:2:2,
    '  Luas lingkaran : ',luas_lingkaran:2:2);
    delta_luas := luas_bjr_sangkar - luas_lingkaran;
    writeln ('Luas diluar lingkaran didalam bujur sangkar :', delta_luas:2:2);
    readln;
end.