uses crt;
var
e,f,g,h,i,j,k,l,m: real;
pilihan1: string;
function Rumus_1(Np,dFluks,dt: Real): Real;
var
Rm1: Real;
begin
Rm1 := -Np*(dFluks/dt);
Rumus_1 := Rm1;
end;
function Rumus_2(Np,B,A,dt: Real): Real;
var
Rm2: Real;
begin
Rm2 := -Np*(A*B)/dt;
Rumus_2 := Rm2;
end;
begin
clrscr;
writeln('Rumus GGL');
writeln('1. Rumus 1 |');
writeln('2. Rumus 2 |');
writeln('-------------');
writeln('Pilih 1/2 : '); readln(pilihan1);
writeln;
if (pilihan1 = '1') then
begin
writeln('Diketahui NIlai Np: 1000,dFluks : 35.76, dt : 60');
writeln;
writeln('masukan nilai Np : 1000');
writeln('masukan nilai Df : 35.76');
writeln('masukan nilai dt : 60');
f := 1000; g := 35.76; h := 60;
e := Rumus_1(f,g,h);
writeln('Maka Nilai E(Besaran GGL induksi ialah: ',f,'(',g,'/',h,') =',e);
readln;
end
else if (pilihan1 = '2') then
begin
writeln('Diketahui Nilai N : 1000, A(Luas Daerah) : 40, B(Induksi Magnet) : 20 , dt : 60 ');
writeln;
writeln('masukan nilai N : 1000');
writeln('masukan nilai B : 40');
writeln('masukan nilai A : 20');
writeln('masukan nilai dt : 60');
j := 1000; k := 40; l := 20; m := 60;
i := Rumus_2(j,k,l,m);
write('Maka Nilai E Ialah: ',j,'*((',k,'*',l,')/',m,' = ',i);
readln;
end
else
begin
writeln('salah input');
end;
readln;
end.
- Flowchart
- Program saat dijalankan