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


FLOW CHART :

SOURCE CODE :

program menghitung_transformasi_star_delta; uses crt; var ra, rb, rc, r1, r2, r3: real; pilihan1, pilihan2: string; begin clrscr; write('apakah anda ingin menghitung transformasi star-delta ? (y/t)'); readln(pilihan1); if (pilihan1 = 'y') then begin write('masukkan nilai R1 : '); readln(r1); write('masukkan nilai R2 : '); readln(r2); write('masukkan nilai R3 : '); readln(r3); writeln; ra := ((r1*r2)+(r2*r3)+(r3*r1))/r3; rb := ((r1*r2)+(r2*r3)+(r3*r1))/r2; rc := ((r1*r2)+(r2*r3)+(r3*r1))/r1; writeln('nilai Ra : ', ra:2:3, ' ohm'); writeln('nilai Rb : ', rb:2:3, ' ohm'); writeln('nilai Rc : ', rc:2:3, ' ohm'); end else if (pilihan1 = 't') then begin write('apakah anda ingin menghitung transformasi delta-star ? (y/t)'); readln(pilihan2); if (pilihan2 = 'y') then begin write('masukkan nilai Ra : '); readln(ra); write('masukkan nilai Rb : '); readln(rb); write('masukkan nilai Rc : '); readln(rc); writeln; r1 := (ra*rb) / (ra+rb+rc); r2 := (ra*rc) / (ra+rb+rc); r3 := (rb*rc) / (ra+rb+rc); writeln('nilai R1 : ', r1:2:3, ' ohm'); writeln('nilai R2 : ', r2:2:3, ' ohm'); writeln('nilai R3 : ', r3:2:3, ' ohm'); end else if (pilihan2 = 't') then begin writeln('anda tidak memilih pilihan'); end else begin writeln('salah input'); end; end else begin writeln('salah input'); end; readln; end.