PMG/Kurs 1214/eigene Übungen/Alexander

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
'''''
== Primfeld ==
'''''
Hier die Funktion "primfeld" diese zeigt dir alle Primzahlen in dem von dir vorgegebenen Zahlenbereich an!

<code id="51b740785e21d">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;</code>

<run id="51b73f797e41d">primfeld(1,20);</run>

'''''
== Würfelspiel(mit Array(Datenfeld)) ==
'''''
Diese Funktion stellt das gewöhnliche Würfelspiel aus einer unserer Aufgaben dar...allerdings, realisiert durch einen Array!
<code id="51b740785e2a1">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;</code>

<run id="51b740785e31e">spiel(1000);</run>

<code id="51b749a9a37d4">function test(text:string):integer;
begin
result:=length(text);
end;</code>

<run id="51b749a9a3870">test('hallo');</run>
<code id="51b75db625f73">
function getchar(wort:string; stelle:integer):char;
begin
result:=wort[stelle];
end;</code>
<run id="51b75db626018">writeln(getchar('Hallo',1));</run>