Topic A: S3

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

Topic A: S3

Berichtdoor Aushim » 04 dec 2007, 21:54

Hieronder vinden jullie een van de oplossingen van S3: Division & Modulo

Code: Selecteer alles

MODULE S3;

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

    VAR x, y, i:CARDINAL;            (* variable-declarations *)

BEGIN
    WrStr("Geef mij een getal?");
    WrLn;
    x := RdCard();
    WrStr("Geef mij een getal waarmee je het vorige wil delen?");
    WrLn;
    y := RdCard();

    i:=0;
    REPEAT
    x:=x-y;
    i:=1+i;
    UNTIL x<y;

WrStr("De deling is ");
WrCard(i,0);
WrLn;
WrStr("De rest is ");
WrCard(x,0);
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