Pascal

Aus ProgrammingWiki

Inhaltsverzeichnis 1 An welchem Datum war Ostern in den vergangenen Jahren? 2 Fibonacci 3 Canvas Example 4 Turtle Example 5 Sound Example 6 Eingabe/Ausgabe

An welchem Datum war Ostern in den vergangenen Jahren?

var year: integer; function EasterSunday(year: Integer): String; var a,b,c,d,f,g : Real; e: Integer; begin if year < 100 then year := year + 1900; a := year mod 19; b := year mod 4; c := year mod 7; f := 19*a + 24; d := f - (trunc(f/30) * 30); g := (5 + 2*b + 4*c + 6*d); e := floor((g - (floor(g/7) * 7)) + d + 22); if e <= 31 then Result := IntToStr(e) + '.' + '03.' + IntToStr(year) else begin if e - 31 >= 26 then e:=19 else e:= e - 31; Result := IntToStr(e) + '.' + '04.' + IntToStr(year) end; end;

year := random(1000)+1900; writeln('In year '+intToStr(year)+' was eastern sunday on '+EasterSunday(year));

ausführen

Fibonacci

function fib(n: integer): integer; var tmp: integer; begin if n=1 then result := 1 else if n=2 then result := 1 else begin tmp := fib(n-1); result := tmp + fib(n-2); end; end;

writeln(intToStr(fib(8)));

ausführen

Canvas Example

var i:integer; j:integer;

selectCanvas(1); canvas_clear(); for i:=0 to 5 do begin for j:= 0 to 5 do begin canvas_setColor((255-42*i),(255-42*j),0); canvas_fillRect(j*25,i*25,25,25); canvas_setColor(0,0,0); canvas_text(j*25+7,i*25+16,'x',16); end; end;

ausführen

Turtle Example

var isUp:Boolean;

selectCanvas(2); canvas_clear(); // Zeichenfläche löschen turtle_move(200,100); // Turtle in die Mitte stellen isUp := false; for i := 0 to 17 do begin turtle_penColor(i*10+50,0,250-10*i); turtle_penWidth(10); turtle_forward(20); turtle_right(20); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end;

ausführen

var Bob:Integer; Eva:Integer; step:Integer;

selectCanvas(3); Bob := createTurtle(3); Eva := createTurtle(3); canvas_clear(); // Zeichenfläche löschen selectTurtle(Bob); turtle_penColor(255,0,0); turtle_move(300,200); selectTurtle(Eva); turtle_penColor(0,255,0); turtle_move(50,50); for step := 0 to 500 do begin // Bewegung von Eva selectTurtle(Eva); turtle_setAngleTo(Bob); turtle_forward(2); // Bewegung von Bob selectTurtle(Bob); turtle_forward(random(8)); if step mod 2 = 0 then turtle_right(random(90)) else turtle_left(random(90)); end;

ausführen

Sound Example

selectSound(1); // Piano MIDI for i := 0 to 10 do sound_play(50+i*2,100);

ausführen

var Lied:String; key:integer; dauer:integer; c:Char; k:Char;

Lied := 'E-4 E-4 E-2 E-4 E-4 E-2 E-4 G-4 C-4 '+ 'D-4 E-1 F-4 F-4 F-4 F-4 F-4 E-4 E-4 '+ 'E-8 E-8 E-4 D-4 D-4 E-4 D-2 G-2'; selectSound(19); // 19. MIDI organ for i := 1 to length(Lied) do begin if i mod 4 = 1 then begin c := Lied[i]; k := Lied[i+2]; if c = 'C' then key := 60; if c = 'D' then key := 62; if c = 'E' then key := 64; if c = 'F' then key := 65; if c = 'G' then key := 67; if c = 'A' then key := 69; if c = 'H' then key := 71; if k = '1' then dauer := 1000 div 1; if k = '2' then dauer := 1000 div 2; if k = '4' then dauer := 1000 div 4; if k = '8' then dauer := 1000 div 8; sound_play(key,dauer); end; end;

ausführen

Eingabe/Ausgabe

var eingabe:String;

eingabe := inputDialog('Gib deinen Namen ein:'); showMessage('Hallo '+eingabe+'!');

ausführen