10.2. Učitati članove niza.  Ispisati parne članove niza.

Opis programa: Parni indeksi su 2, 4, 6, ... tj. djeljivi sa 2. Provjera parnosti se izvodi u liniji 15 (IF i MOD 2 = 0 THEN )

Tekstualni algoritam:

1.  broj članova niza n=5
2.  dimenzionisati niz
3.  za i = 1 do n radi
     3.1. upis i-tog člana niza
4.  za i = 1 do n radi
     4.1. ako je i-ti član niza paran (i MOD 2 = 0) ispisuje se na ekran

Tabela 10.6. Niz - paran indeks

Listing programa

Opis

PROGRAM NIZ_IND_PAR;

Naslov programa

CONST

Deklarisanje

  n = 5;

Broj članova niza

VAR

Promjenljive

 i : INTEGER;

Indeks

 X : ARRAY [1..n] OF INTEGER;

Niz

BEGIN

 

  WRITELN('Parni indeks');

Naslov

  FOR i := 1 TO n DO  {ulaz}

 

    BEGIN

 

      WRITE(i,' --> ');

 

      READLN(X[i]);

Upis članova niza

    END;

Čekanje

  FOR i := 1 TO n DO  {izlaz}

Petlja

    IF i MOD 2 = 0 THEN

Provjera parnosti indeksa

      WRITELN('X[',i,']= ',X[i]);

Ispis na ekran

END.

Kraj programa

 

Listing programa:

PROGRAM P10111002;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Parni indeks');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 1 TO n DO  {izlaz}
    IF i MOD 2 = 0 THEN
      WRITELN('X[',i,']= ',X[i]);
END.

Ispis na ekranu:

Index