Menghitung Transformasi Star <> Delta Dengan PASCAL ( Function )

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).

FLOWCHART :

LISTING PROGRAM :

program menghitung_transformasi_star_delta; uses crt; function delta_ra(f_r1, f_r2, f_r3: real): real; var result: real; begin result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r3; delta_ra := result; end; function delta_rb(f_r1, f_r2, f_r3: real): real; var result: real; begin result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r2; delta_rb := result; end; function delta_rc(f_r1, f_r2, f_r3: real): real; var result: real; begin result := ((f_r1*f_r2)+(f_r2*f_r3)+(f_r3*f_r1)) / f_r1; delta_rc := result; end; function star_r1(f_ra, f_rb, f_rc: real): real; var result: real; begin result := (f_ra*f_rb) / (f_ra+f_rb+f_rc); star_r1 := result; end; function star_r2(f_ra, f_rb, f_rc: real): real; var result: real; begin result := (f_ra*f_rc) / (f_ra+f_rb+f_rc); star_r2 := result; end; function star_r3(f_ra, f_rb, f_rc: real): real; var result: real; begin result := (f_rb*f_rc) / (f_ra+f_rb+f_rc); star_r3 := result; 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; writeln('nilai Ra : ', delta_ra(r1,r2,r3):2:2, ' ohm'); writeln('nilai Rb : ', delta_rb(r1,r2,r3):2:2, ' ohm'); writeln('nilai Rc : ', delta_rc(r1,r2,r3):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; writeln('nilai R1 : ', star_r1(ra,rb,rc):2:2, ' ohm'); writeln('nilai R2 : ', star_r2(ra,rb,rc):2:2, ' ohm'); writeln('nilai R3 : ', star_r3(ra,rb,rc):2:2, ' ohm'); end else begin writeln('salah input'); end; readln; end.

TAMPILAN ANTARMUKA PROGRAM :