WS1 Teilnehmer18

Aus ProgrammingWiki

Also los - Probeseite Gaussumme:

function gausssumme(n: integer): double; var i : integer; summe: double; begin summe:=0; for i:=1 to n do summe:=summe+i; result:=summe; end;

writeln(gausssumme(100));

ausführen

Und jetzt alleine - Fakultät:

function faku(n: integer): double; var i : integer; prod: double; begin prod:=1; for i:=1 to n do prod:=prod*i; result:=prod; end;

writeln(faku(8));

ausführen

Und jetzt mal grafisch

var laenge: real; procedure pflanze(l: real; n: integer); begin if n=1 then turtle_forward(l) else begin turtle_forward(l/3); turtle_left(90); pflanze(l/3,n-1); turtle_right(90); pflanze(l/3,n-1); turtle_right(90); pflanze(l/3,n-1); turtle_left(90); turtle_forward(l/3); end; end;

selectcanvas(1); canvas_clear(); //Zeichenfläche löschen laenge:=300; turtle_move((600-laenge)/2, 300); //Turtle ausrichten turtle_right(90); pflanze(laenge,7);

ausführen