Algoritma ; Procedure Rata-rata Bilangan

BILANGAN BULAT :


PROGRAM MENGHITUNG_NILAI_RATA_RATA;

USES WINCRT;

TYPE LARIK = ARRAY [1..100] OF INTEGER;


PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );

VAR

I : INTEGER;

BEGIN

FOR I:= 1 TO N DO

BEGIN

WRITE ('BILANGAN KE-',I,' = ');

READLN(BILANGAN[I]) ;

END;

END;


PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);

VAR

I, JUMLAH : INTEGER ;

RATA_RATA : REAL ;

BEGIN

JUMLAH := 0;

FOR I:= 1 TO N DO

JUMLAH := JUMLAH + BILANGAN[I];

RATA_RATA := JUMLAH/ N;

WRITELN;

WRITELN (' BANYAK BILANGAN : ',N:5);

WRITELN ('JUMLAH BILANGAN : ',JUMLAH:5);

WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:1);

END;

{MODUL UTAMA}

VAR

NILAI : LARIK ;

BANYAK : INTEGER ;

RATA_RATA : REAL;

BEGIN

WRITE (' BANYAKNYA BILANGAN : ');

READLN(BANYAK);

WRITELN;

INPUT_BILANGAN (BANYAK, NILAI);

HITUNG_RATA_RATA (BANYAK, NILAI);

END.


BILANGAN NEGATIF :


PROGRAM HITUNG_RATA_NEGATIF ;

USES WINCRT;

TYPE LARIK = ARRAY [1..100] OF INTEGER;

PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );

VAR

I : INTEGER;

BEGIN

FOR I:= 1 TO N DO

BEGIN

WRITE ('BILANGAN KE-',I,' = ');

READLN(BILANGAN[I]) ;

END;

END;


PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);

VAR

I, JUMLAH, CACAH : INTEGER ;

RATA_RATA : REAL ;

BEGIN

JUMLAH := 0;

CACAH := 0;

FOR I:= 1 TO N DO BEGIN

IF BILANGAN[I] < 0 THEN BEGIN

JUMLAH := JUMLAH + BILANGAN[I];

INC(CACAH);

END;

END;


RATA_RATA := JUMLAH/ CACAH ;

WRITELN;

WRITELN (' BANYAK BILANGAN : ',N:5);

WRITELN(' BANYAK BIL NEGATIF : ',CACAH);

WRITELN ('JUMLAH BILANGAN NEGATIF : ',JUMLAH:5);

WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);

END;

{MODUL UTAMA}

VAR

NILAI : LARIK ;

BANYAK : INTEGER ;

RATA_RATA : REAL;

BEGIN

WRITE (' BANYAKNYA BILANGAN : ');

READLN(BANYAK);

WRITELN;

INPUT_BILANGAN (BANYAK, NILAI);

HITUNG_RATA_RATA (BANYAK, NILAI);

END.


BILANGAN POSITIF :


PROGRAM MENGHITUNG_NILAI_RATA_RATA;

USES WINCRT;

TYPE LARIK = ARRAY [1..100] OF INTEGER;


PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );

VAR

I : INTEGER;

BEGIN

FOR I:= 1 TO N DO

BEGIN

WRITE ('BILANGAN KE-',I,' = ');

READLN(BILANGAN[I]) ;

END;

END;


PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);

VAR

I, JUMLAH, CACAH : INTEGER ;

RATA_RATA : REAL ;

BEGIN

JUMLAH := 0;

CACAH := 0;

FOR I:= 1 TO N DO BEGIN

IF BILANGAN[I] >= 1 THEN BEGIN

JUMLAH := JUMLAH + BILANGAN[I];

INC(CACAH);

END;

END;


RATA_RATA := JUMLAH/ CACAH ;

WRITELN;

WRITELN (' BANYAK BILANGAN : ',N:5);

WRITELN(' BANYAK BIL POSITIF : ',CACAH);

WRITELN ('JUMLAH BILANGAN POSITIF : ',JUMLAH:5);

WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);

END;

{MODUL UTAMA}

VAR

NILAI : LARIK ;

BANYAK : INTEGER ;

RATA_RATA : REAL;

BEGIN

WRITE (' BANYAKNYA BILANGAN : ');

READLN(BANYAK);

WRITELN;

INPUT_BILANGAN (BANYAK, NILAI);

HITUNG_RATA_RATA (BANYAK, NILAI);

END.

BILANGAN GENAP :


PROGRAM MENGHITUNG_NILAI_RATA_RATA;

USES WINCRT;

TYPE LARIK = ARRAY [1..100] OF INTEGER;


PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );

VAR

I : INTEGER;

BEGIN

FOR I:= 1 TO N DO

BEGIN

WRITE ('BILANGAN KE-',I,' = ');

READLN(BILANGAN[I]) ;

END;

END;


PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);

VAR

I, JUMLAH, CACAH : INTEGER ;

RATA_RATA : REAL ;

BEGIN

JUMLAH := 0;

CACAH := 0;

FOR I:= 1 TO N DO BEGIN

IF BILANGAN[I] MOD 2 = 0 THEN BEGIN

JUMLAH := JUMLAH + BILANGAN[I];

INC(CACAH);

END;

END;

RATA_RATA := JUMLAH/ CACAH ;

WRITELN;

WRITELN (' BANYAK BILANGAN : ',N:5);

WRITELN(' BANYAK BIL GENAP : ',CACAH);

WRITELN ('JUMLAH BILANGAN GENAP : ',JUMLAH:5);

WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);

END;

{MODUL UTAMA}

VAR

NILAI : LARIK ;

BANYAK : INTEGER ;

RATA_RATA : REAL;

BEGIN

WRITE (' BANYAKNYA BILANGAN : ');

READLN(BANYAK);

WRITELN;

INPUT_BILANGAN (BANYAK, NILAI);

HITUNG_RATA_RATA (BANYAK, NILAI);

END.


BILANGAN GANJIL :


PROGRAM MENGHITUNG_NILAI_RATA_RATA;

USES WINCRT;

TYPE LARIK = ARRAY [1..100] OF INTEGER;


PROCEDURE INPUT_BILANGAN ( N : INTEGER; VAR BILANGAN : LARIK );

VAR

I : INTEGER;

BEGIN

FOR I:= 1 TO N DO

BEGIN

WRITE ('BILANGAN KE-',I,' = ');

READLN(BILANGAN[I]) ;

END;

END;


PROCEDURE HITUNG_RATA_RATA (N : INTEGER; BILANGAN : LARIK);

VAR

I, JUMLAH, CACAH : INTEGER ;

RATA_RATA : REAL ;

BEGIN

JUMLAH := 0;

CACAH := 0;

FOR I:= 1 TO N DO BEGIN

IF BILANGAN[I] MOD 2 = 1 THEN BEGIN

JUMLAH := JUMLAH + BILANGAN[I];

INC(CACAH);

END;

END;

RATA_RATA := JUMLAH/ CACAH ;

WRITELN;

WRITELN (' BANYAK BILANGAN : ',N:5);

WRITELN(' BANYAK BIL GANJIL : ',CACAH);

WRITELN ('JUMLAH BILANGAN GANJIL : ',JUMLAH:5);

WRITELN ('RATA-RATA BILANGAN : ',RATA_RATA:5:2);

END;

{MODUL UTAMA}

VAR

NILAI : LARIK ;

BANYAK : INTEGER ;

RATA_RATA : REAL;

BEGIN

WRITE (' BANYAKNYA BILANGAN : ');

READLN(BANYAK);

WRITELN;

INPUT_BILANGAN (BANYAK, NILAI);

HITUNG_RATA_RATA (BANYAK, NILAI);

END.