transformasi star delta menggunakan pascal

Aplikasi yang saya buat ini bertujuan untuk menghitung transformasi delta-star.Terdapat 2 pilihan cara perhitungan yaitu perhitungan pertama membutuhkan input R1, R2, R3 dengan rumus untuk mencari star-delta yaitu Ra = (R1*R2 + R2*R3 + R1*R3)/R3 ; Rb = (R1*R2 + R2*R3 + R1*R3)/R2 ; Rc = (R1*R2 + R2*R3 + R1*R3)/R1. Untuk perhitungan kedua membutuhkan input Ra, Rb, Rc dengan rumus untuk mencari delta-star yaitu R1 = Ra*Rb / (Ra + Rb + Rc) ; R2 = Ra*Rc  / (Ra + Rb + Rc) ; R3 = Rb*Rc  / (Ra + Rb + Rc).

LISTNING PROGRAM

program menghitung_transformasi_star_delta;

uses crt;

procedure delta_ra(f_r1, f_r2, f_r3: real; var result: real);

begin

   result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r3;

end;

procedure delta_rb(f_r1, f_r2, f_r3: real; var result: real);

begin

   result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r2;

end;

procedure delta_rc(f_r1, f_r2, f_r3: real; var result: real);

begin

   result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r1;

end;

procedure star_r1(f_ra, f_rb, f_rc: real; var result: real);

begin

   result := (f_ra*f_rb) / (f_ra+f_rb+f_rc);

end;

procedure star_r2(f_ra, f_rb, f_rc: real; var result: real);

begin

   result := (f_ra*f_rc) / (f_ra+f_rb+f_rc);

end;

procedure star_r3(f_ra, f_rb, f_rc: real; var result: real);

begin

   result := (f_rb*f_rc) / (f_ra+f_rb+f_rc);

end;

var

   ra, rb, rc, r1, r2, r3: real;

   pilihan1: string;

begin

   clrscr;

   writeln('1. perhitungan transformasi star-delta');

   writeln('2. perhitungan transformasi delta-star');

   write('masukkan pilihan :');

   readln(pilihan1);

   if (pilihan1 = '1') then

      begin

      write('masukkan nilai R1 : ');

      readln(r1);

      write('masukkan nilai R2 : ');

      readln(r2);

      write('masukkan nilai R3 : ');

      readln(r3);

      writeln;

      delta_ra(r1, r2, r3, ra);

      delta_rb(r1, r2, r3, rb);

      delta_rc(r1, r2, r3, rc);

      writeln('nilai Ra : ', ra:2:2, ' ohm');

      writeln('nilai Rb : ', rb:2:2, ' ohm');

      writeln('nilai Rc : ', rc:2:2, ' ohm');

      end

   else if (pilihan1 = '2') then

      begin

      write('masukkan nilai Ra : ');

      readln(ra);

      write('masukkan nilai Rb : ');

      readln(rb);

      write('masukkan nilai Rc : ');

      readln(rc);

      writeln;

      star_r1(ra, rb, rc, r1);

      star_r2(ra, rb, rc, r2);

      star_r3(ra, rb, rc, r3);

      writeln('nilai R1 : ', r1:2:2, ' ohm');

      writeln('nilai R2 : ', r2:2:2, ' ohm');

      writeln('nilai R3 : ', r3:2:2, ' ohm');

      end

   else

      begin

      writeln('salah input');

      end;

   readln;

   end.

flowchart

 

output