[Top Pascal] 3 mathematische Aufgaben

[spirit]

da fällt mir auch ein stehgreif-mischalgo ein :P

var MyStrings: array[0..9] of string;

procedure Mixthem(nExchanges: integer);
var AStr: string;
    i, pos1, pos2: integer;
begin
  Randomize;
  for i := nExchanges downto 0 do
    begin
    pos1 := Random(9);
    pos2 := Random(9);
    AStr := MyStrings[pos1];
    MyStrings[pos1] := MyStrings[pos2];
    MyStrings[pos2] := AStr;
    end;
end;

Je höher die Exchanges desto "besser" gemischt. mit P=0.1^Exchanges bleibt die Reihenfolge gleich.

Kenne TopPascal nicht, wird aber dort so ähnlich aussehen. Es werden ja beinahe nur elementare Befehle verwendet.

erm und.. "shuffle algorithms" kann man ja fast als eigene Wissenschaft bezeichnen oder ?!

mfg spirit

[Number of the Beast]

[ZITAT]Original geschrieben von Reggaeman
[ZITAT]Original geschrieben von Number of the Beast
if n mod i (i=2,3,5,7,...) = 0 then
Primfaktor = n ;
n = n/i;
... bis n=1.
[/ZITAT]

muss das nicht

  if n mod i (i=2,3,5,7,...) = 0 then 
   Primfaktor = i ;
   n = n/i;
... bis n=1.

heissen?? [/ZITAT]

Ja, du hast natürlich Recht. Zwei Posts und ich habs trotzdem nicht geschafft einen fehlerfreien Code zu liefern... tztztz

[PunkFace]

Wie definiere ich ein Array??? Das bringt mir alles nichts, wenn ich die Basics nicht kenne und ich kenne diese nicht!

Und was meint NotB mit der "Schleife" vor dem Programmextrakt?
Ich hab keinen Blassen und sollte es der Person heute beibringen..

[GoodFella]

Array definieren:

VAR Variablenname : ARRAY[UntereGrenze..ObereGrenze] OF Variablentyp

Beispiel:

VAR Numbers : ARRAY[1..10] OF Integer;

[PunkFace]

Danke, aber im Array sollten ja die Primzahlen stehen, nicht 1...10

Und wie mach ich eine Bedingungsabfrage in Pascal? if n mod i ....da gits dann immer den Syntaxerror 30

[Number of the Beast]

Das 1..10 bedeutet nicht, dass die Zahlen 1 bis 10 im Array stehen. es sind sozusagen die Indizes des Arrays. Du kannst dem Array die Primzahlen auf folgende Weise zuweisen:
array[1]:= 2;
array[2]:= 3;
array[3]:= 5;
...
Noch eleganter wäre es natürlich mit einem dynamischem Array mit einer Funktion die Primzahlen berechnet und diese dann dem Array zuweist.

[johnwayne]

Zitat von Number of the Beast

3. Primfaktorzerlegung:

Schleife
  if n mod i (i=2,3,5,7,...) = 0 then 
   1. Primfaktor = 1;
   n = n/i;
... bis n=1.

Das Ganze musst du noch in Top Pascal umsetzten. Ist ja jetzt nicht mehr so schwer.

Mit diesem Wissen kannst du nun auch Aufgabe 1 lösen. Du teilst den Zähler und den Nenner einfach in die einzelnen Prifaktoren auf und schaust welche oben und unten doppelt vorkommen.

Bei Aufgabe 2 kann ich dir nicht helfen, da ich nicht weiß wie die Randomfunktion bei Top Pascal genau aussieht und ob es überhaupt eine gibt.

ich kann es leider nicht in toppascal umsetzten, kannst du mir das evtl machen??

lg john

[GoodFella]

6 Jahre ist der letzte Beitrag her, Mister.
Soso, du kannst es nicht in Toppascal umsetzen, was verstehst du denn nicht / wo liegen deine Probleme?

[johnwayne]

ich weis nicht wie man

n neu definieren kann

n:= n/2;
hier gibt es aber leider eine fehlermeldung

scheisse

[deepthought]

Zitat von johnwayne

ich weis nicht wie man

n neu definieren kann

n:= n/2;
hier gibt es aber leider eine fehlermeldung

scheisse

Und wie sieht die Fehlermeldung aus?