berbeda dari yang biasanya yang menggunakan pascal dari DOS kali ini saya membuat program Rumus Rangkaian Listrik Pararel Pada Pascal persi Windows, berikut adalah programnya semoga bermanfaat dan untuk rekan-rekan yang menggunkan pascal versi DOS tak perlu cemas, karena hanya perlu merubah tulisan " uses wincrt" menjadi " uses crt " berikut adalah code programnya :
PROGRAM HAMBATAN_PARAREL;
USES WINCRT;
VAR
R :ARRAY[1..100] OF INTEGER;
N,I :BYTE;
RAWAL,RTOTAL : REAL;
BEGIN
CLRSCR;
WRITE ('BERAPA JUMLAH R YANG DIBUTUHKAN (MAKSIMUM 100):');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('MASUKKAN NILAI R',I,':'); READLN(R[I]);
END;
FOR I := 1 TO N DO
RAWAL := RAWAL + (1/R[I]);
RTOTAL := RAWAL;
WRITELN ('NILAI ANDA :',RTOTAL:8:2,' Ohm');
READKEY;
END.
USES WINCRT;
VAR
R :ARRAY[1..100] OF INTEGER;
N,I :BYTE;
RAWAL,RTOTAL : REAL;
BEGIN
CLRSCR;
WRITE ('BERAPA JUMLAH R YANG DIBUTUHKAN (MAKSIMUM 100):');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('MASUKKAN NILAI R',I,':'); READLN(R[I]);
END;
FOR I := 1 TO N DO
RAWAL := RAWAL + (1/R[I]);
RTOTAL := RAWAL;
WRITELN ('NILAI ANDA :',RTOTAL:8:2,' Ohm');
READKEY;
END.