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
