Listing Program pascal mesin dc shunt

program fungsi1;

uses crt;

function Eg (Ia,Ra,vt,eg:integer):integer;

Function Vt (Ia,Ra,vt,eg:integer):integer;

begin

        Eg=(Ia*Ra)+vt;

        Vt=(Ia*Ra)+em;

        end;

var

ia,ra,vt,em:integer;

begin

clrscr;

        writeln('Program Mehitung mesin dc shunt');

        writeln;

        write('Masukan arus= ');readln(ia);

        write('Masukan hambatan= ');readln(ra);

        write(‘masukan tegangan total=’);readln(vt);

        write(‘masukan GGL=’);readln(eg);

        writeln(' generator DC (Ia,Ra,vt,eg:integer):integer; = ',ge(Ia,Ra,vt,eg));

        writeln(‘Motor DC (Ia,Ra,vt,eg:integer):integer;=’,vt(Ia*Ra.em,vt));

        readln;

        end.

Flow chart

Penjelasan :

Pada awal program awali start masukan rumus f’(eg , vt) dan akan memilih salah satu dari rumus eg = (Ia*Ra)+vt atau vt =(Ia*ra)+em dan program end atau program tersebut selesai.