Topic B: S2

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

Topic B: S2

Berichtdoor Aushim » 05 dec 2007, 21:16

Hieronder vinden jullie een van de oplossingen van S2: Curve vorm.

Code: Selecteer alles

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

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

  CONST ARRAY_SIZE = 10;

  VAR
    i: CARDINAL;
    f,t,p: 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;

(* Het vinden van de maximumwaarde *)
  t:=y_values[1];
  FOR i:= 1 TO ARRAY_SIZE DO
  p:=y_values[i];
    IF p>t THEN t:=p
    END;
  END;

(* Het printen van de waarden 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;

(* Het printen van de maximumwaarden van de ARRAY *)
  WrStr("De grooste waarde van de array is ");WrInt(t, 0);WrLn;
  WrLn;

(* Het printen van de stijgende waarde van de array*)
  i:=1;
  WrStr("De stijdende elementen van de array zijn de volgende :");WrLn;
  REPEAT
  WrInt(y_values[i],5);
  i:=1+i;
  UNTIL (i>ARRAY_SIZE) OR (y_values[i]<y_values[i-1]);

END S2.

Terug naar “Oefeningen gemaakt in de klas”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron