Kali ini saya akan kembali mengaplikasikan program Pascal dalam
menghitung GGL Induksi..
Berikut adalah isi program, flowchart dan juga contoh hasil dari main
program Pascal itu sendiri:
Program
GGl_induksi;
uses
wincrt;
var
pilihan1:string;
var
a,b,c:real;
Rm1
: real;
var
d,e,f,g:real;
Rm2
: real;
procedure
Rumus_1(Np: real; dFluks:real; dt:real;
var
Rm1:real);
begin
Np
:= 1000; dFluks := 35.76; dt := 60;
Rm1
:= -Np * (dFluks / dt);
end;
procedure
Rumus_2(Np: real; B:real; A:real; dt:real;
var
Rm2:real);
begin
Np
:= 1000; B := 40; A := 20; dt:=60;
Rm2
:= -Np * (A * B) / dt;
end;
begin
writeln('PROGRAM
MENGHITUNG GGL INDUKSI');
writeln('[1]
RUMUS 1');
writeln('[2]
RUMUS 2');
writeln('-------------------------------');
writeln('Pilih
1/2 : '); read(pilihan1);
writeln;
if
(pilihan1 = '1') then
begin
writeln('-======Program Procedure GGL INDUKSI
RUMUS 1======-');
writeln('masukan nilai Np : 1000 ');
writeln('masukan nilai Df : 35.76');
writeln('masukan nilai dt : 60');
readln;
Rumus_1(a,b,c,Rm1);
write('nilai E(Besaran GGL induksi) adalah :
', Rm1:2:2);
readln;
end
else
if
(pilihan1 = '2') then
begin
writeln('-======Program Procedure GGL INDUKSI
RUMUS 2======-');
writeln;
writeln('masukan nilai Np : 1000');
writeln('masukan nilai B : 40');
writeln('masukan nilai A : 20');
writeln('masukan nilai dt : 60');
readln;
Rumus_2(d,e,f,g,Rm2);
write('Nilai E(Besaran GGL induksi) adalah :
', Rm2:2:2);
readln;
end
else
begin
writeln('salah
input');
end;
readln;
end.
THANKS