Program Transformasi Star <> Delta Menggunakan Procedure Pada 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).

FLOWCHART 

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

TAMPILAN ANTARMUKA PROGRAM