Alexander

Aus ProgrammingWiki

Primfeld

Hier die Funktion "primfeld" diese zeigt dir alle Primzahlen in dem von dir vorgegebenen Zahlenbereich an!

procedure primfeld(a,b:integer); var i:integer; var istprim:boolean; begin istprim:=true; while(a<>b+1) do begin istprim:=true; for i:=2 to sqrt(a) do begin if(a mod(i) = 0) and (a<>i) or (a=1) then istprim:=false; end; if(istprim = true) and (a<>1) then writeln(a); a:=a+1; end; end;

primfeld(1,20);

ausführen

Würfelspiel(mit Array(Datenfeld))

Diese Funktion stellt das gewöhnliche Würfelspiel aus einer unserer Aufgaben dar...allerdings, realisiert durch einen Array!

function spiel(a:integer):integer; var zahl: array[1..7] of integer; var i:integer; begin for i:=1 to a do begin result:=random(6)+1; zahl[result]:= zahl[result] + 1; end; writeln('Die Zahl 1 wurde ',zahl[1],' mal gewürfelt'); writeln('Die Zahl 2 wurde ',zahl[2],' mal gewürfelt'); writeln('Die Zahl 3 wurde ',zahl[3],' mal gewürfelt'); writeln('Die Zahl 4 wurde ',zahl[4],' mal gewürfelt'); writeln('Die Zahl 5 wurde ',zahl[5],' mal gewürfelt'); writeln('Die Zahl 6 wurde ',zahl[6],' mal gewürfelt'); end;

spiel(1000);

ausführen

function test(text:string):integer; begin result:=length(text); end;

test('hallo');

ausführen

function getchar(wort:string; stelle:integer):char; begin result:=wort[stelle]; end;

writeln(getchar('Hallo',1));

ausführen