Topic B: S1

Aushim
Master in de forumwetenschappen
Master in de forumwetenschappen
Berichten: 2628
Lid geworden op: 23 nov 2007, 23:02
Locatie: Haren
Contacteer:

Topic B: S1

Berichtdoor Aushim » 04 dec 2007, 22:13

Hieronder vinden jullie een van de oplossingen van S1: Array with the powers of 2.

Code: Selecteer alles

MODULE S1;

    FROM IO IMPORT WrStr, WrLn, RdCard, WrCard, RdInt, WrInt;     (* import general procedures *)

    CONST ARRAY_SIZE = 20;
    VAR
      intArray: ARRAY[1..ARRAY_SIZE] OF INTEGER;            (* variable-declarations *)
      i:CARDINAL;
      a:INTEGER;
      r:INTEGER;
      g:INTEGER;

BEGIN
    (* Berekening van de machten van -2 *)
    a:=1;
     FOR i:= 1 TO ARRAY_SIZE DO
     a:=(-2)*a;
     intArray[i] := a;
    END;

    FOR i := 1 TO ARRAY_SIZE DO
      WrStr("Macht van -2 nummer"); WrCard(i, 3); WrInt(intArray[i],10); WrLn;
    END;

    (* Berekening van de gemiddelde *)
    WrLn;
    r:=0;
    FOR i:= 1 TO ARRAY_SIZE DO
    r:= r+ intArray[i];
    END;
    g:= r/ARRAY_SIZE;
    WrStr("Het gemiddelde is "); WrInt(g,0); WrLn;
END S1.

Terug naar “Oefeningen gemaakt in de klas”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron