Topic B: S3

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

Topic B: S3

Berichtdoor Aushim » 05 dec 2007, 21:51

Hieronder vinden jullie een van de oplossingen van S2: Array Reversal.

Code: Selecteer alles

 MODULE S3;
<* NOOPTIMIZE + *>  (* For the Debugger *)

  FROM IO IMPORT WrStr, WrLn, RdKey, WrCard, WrInt, RdLn;

  CONST ARRAY_SIZE = 10;

  VAR
    i: CARDINAL;
    f,s: INTEGER;
    y_values: ARRAY[1..ARRAY_SIZE] OF INTEGER; (* definition of the array *)
BEGIN

   f := 1;
  (* Fill Array  HIER NIET AANKOMEN! *)
  FOR i:= 1 TO ARRAY_SIZE DO
    f :=  (f + (f)*4/15 + 1) MOD 40;
(*   f := f + (20-f) * ABS(f) / 7;  *) (* another function *)
    y_values[i] := f;
  END;


(* Berekenen van de omgekeerde van de array zonder nieuwe array te maken*)
  FOR i:= 1 TO ARRAY_SIZE DIV 2 DO
   s:=y_values[i];
   y_values[i]:=y_values[ARRAY_SIZE-i+1];
   y_values[ARRAY_SIZE-i+1]:=s;
  END;

(* Print de omgekeerde van de array *)
  FOR i:= 1 TO ARRAY_SIZE DO
    WrStr("The ");WrCard(i, 0);WrStr("th element =");WrInt(y_values[i], 0);WrLn;
  END;
  WrLn;

END S3.

Terug naar “Oefeningen gemaakt in de klas”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron