MENGHITUNG DAYA EKIVALEN PADA RUMAH TIGA BEBAN TEGANGAN 220V

MENGHITUNG DAYA EKIVALEN PADA RUMAH TIGA BEBAN TEGANGAN 220V
KODINGAN

CODING PROGRAM :


PROGRAM MENGHITUNG_DAYA_EKIVALEN_PADA_INSTALASI_RUMAH_3_BEBAN;
VAR
EP,ES,COSQ:INTEGER;
WRITELN<DIKETAHUI SIGMAP =1290 & SIGMAS = 1285 . DITANYA COS Q?>;
WRITE<'MASUKAN NILAI SIGMAP ='>;READLN<EP>;
WRITE<'MASUKAN NILAI SIGMAS ='>;READLN<ES>;
COSQ := EP DIV ES;
WRITELN<'HASIL BENAR'>
ELSE IF COSQ > 1 THEN
WRITELN<'HASIL SALAH'>
ELSE IF COSQ < 1 THEN
WRITELN<'HASIL SALAH'>;
READLN;
END.

SCREENSHOOT :

 PROGRAM

 HASIL BENAR

HASIL SALAH

flowchart

SEKIAN DARI PENJELASAN PROGRAM DI ATAS TERIMAKASIH....