Pemrogram Bilangan Kompleks Dengan Pascal

Bahasa Pascal tidak memiliki fungsi khusus untuk melakukan perhitungan bilangan kompleks. Karena itu, kita harus membuatnya sendiri. Contoh Programan bilangan kompleks dengan pascal jarang ditemukan atau jarang dibagikan oleh orang yang bisa membantu pelajar dan mahasiswa, Diharapkan contoh program bilangan kompleks ini dapat membantu bagi anda yang sedang belajar dan membutuhkannya. 

Bilangan kompleks memiliki sifat-sifat aljabar seperti asosiatif, komutatif, dan distributif, dan dengan persamaan i ² = −1:          

           X = a + bi

           Y = c + di

    1.     Penjumlahan x dan y

         X + Y = (a + bi) + (c + di) = (a+c) + (b+d)i

    2.     Pengurangan x dan y

         X – Y = (a + bi) − (c + di) = (a−c) + (b−d)i

    3.     Perkalian x dan y

         X x Y = (a + bi)(c + di) = ac + bci + adi + bd i ² = (ac−bd) + (bc+ad)i

   4.     Pembagian x dan y

        X/Y   = ((ac +bd) + (bc – ad))i/ (c²  + d²)

Program Bil_Kompleks;
Uses crt;
{Penjumlahan Bilangan Kompleks}
Procedure  input(var a,b,c,d : real);
Begin
    writeln;writeln('Bentuk Persamaan bil. Kompleks');
    writeln('x = a + bj');
    writeln('y = c + dj');
    writeln('============================');
    Write('Input  bil real    a =');readln(a);
    Write('Input  bil khayal  b =');readln(b);
    Write('Input  bil real    c =');readln(c);
    Write('Input  bil khayal  d =');readln(d);
End;

Procedure Hitung(a,b,c,d : real; n :integer; var x,y : real);
var x1,x2,y1,y2 : real;
Begin
  writeln;
  if n=1 then
   Begin
   writeln('Penjumlahan Bil Kompleks');
   x := a + c;
   y := b + d;
   End
  else if n=2 then
   Begin
   writeln('Pengurangan Bil Kompleks');
   x := a - c;
   y := b - d;
   End
  else if n=3 then
  Begin
   writeln('Perkalian Bil Kompleks');
   x1 := a*c;x2 := b*d;
   x := x1-x2;
   y1:= b*c; y2:=a*d;
   y := y1+y2;
   End
   else if n=4 then
    Begin
      writeln('Pembagian Bil Kompleks');
      x1:= a*c;x2 := b*d;
      x := (x1-x2)/(sqr(c)+sqr(d));
      y1:= b*c; y2:=a*d;
      y := (y1+y2)/(sqr(c)+sqr(d));
    End;
End;

Procedure  Tambah(a,b : real);
var x,y,i : real; c:string[4];
Begin
     if b<0 p="" then="">         c:='- j'
    else
        c:='+ j';
        x:=abs(b);
        Write(a:5:2,' ',c,' ',x:5:2);
End;

{Program Utama}
var a,b,c,d,x,y : real;
n :integer;
ya: char;
Begin
    ya:='Y';
    while (ya='y') or (ya='Y') do
    Begin
    Clrscr;
    writeln('Menu Pilihan');
    writeln('=============');
    writeln('1. Penjumlahan');
    writeln('2. Pengurangan');
    writeln('3. Perkalian  ');
    writeln('4. Pembagian  ');
    write('Pilihan Anda ?? ');
    readln(n);
    Input(a,b,c,d);
    Hitung(a,b,c,d,n,x,y);
    Tambah(x,y);
    writeln;writeln;
    writeln('Ulangi (Y/T)');
    readln(ya);
    End;
End.

Output Program

Demikian contoh Pemrogram Bilangan Kompleks Dengan Pascal. Semoga bermanfaat.

God bless you all.