[Top Pascal] 3 mathematische Aufgaben

[PunkFace]

hi ho

Ich habe da 3 Aufgaben von der Tochter meines Chefs bekommen, die im Programm Top Pascal gelöst werden müssen. Hm, ich kenn mich darin nicht so gut aus und frage deshalb euch, ob ihr mir da weiterhelfen könnt. Ich liste jetzt mal die 3 Aufgaben auf, vielleicht fällt jemanden gerade was ein :

1. Brüche kürzen

Man muss einen Bruch eingeben können, welcher dann abgecheckt werden muss, ob er bereits gekürzt ist oder ob es eine ganze Zahl ist. Wenn ungekürzt, soll er gekürzt werden.

2. Mischen (random?)

Man muss 10 Namen eingeben können, welche dann gemischt ausgegeben werden müssen.

3. Primzahlenzerlegung

Man muss eine beliebige Zahl eingeben können, welche dann in ihren Primzahlen ausgegeben werden müssen. Z.B. 18 = 2 x 3 x 3


Danke jetzt schon für eure Hilfe

[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.

[johnwayne]

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?

[Bunny]

Moin!

1. Mit dem Euklidische Verfahren(Wenn u größer als v ist, ist der größte gemeinsame Teiler von u und v gleich dem größten gemeinsamen Teiler von v und u - v.) sollte es schneller gehen den größten gemeinsamen Teiler zu berechnen:

function ggT(u, v: integer): integer [blau]// Funktion berechnet den größten  gemeinsamen Teiler[/blau]
 var t: integer;
 begin
   repeat
     if u<v then begin t:=u; u:=v; v:=t; end;
     u:=u-v;  
   until u=0;
   ggT:=v;
 end;

2. Hmm, steh aber nicht wie und wie stark gemischt werden soll. Also, brauchst du nicht unbedingt eine Zufallsfunktion.

mfg Benjamin

[MrTweek]

2. : zb so:

for i:=1 to 9 do
  if(random(1)=0 then
  begin
    z[i]:=z[i]+z[i+1];
    z[i+1]:=z[i]-z[i+1];
    z[i]:=z[i]-z[i+1];
  end;

das in ner schleife n paarmal durchlaufen lassen, je öfter desto gemischter.
(kommt mir jez nich mit effizienz und geschwindigkeit und so )

[Bunny]

@Simon Moon:

Man muss 10 Namen eingeben können

1. Du mischst nur 9 Sätze.
2. Können heißt nicht müssen!

...

mfg Benjamin

[Number of the Beast]

Ich seh grad, dass ich enen kleinen Flücjtgskeitsfehler in meinem Code drin habe:

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

Jetzt müsste er stimmen.
Die Varable Primfaktor muss natürlich ein Array sein, in der alle Primfaktoren gespeichert werden können.

[MrTweek]

@Bunny, nein, mein algorythmus mischt 10 Datensätze, die Schleife geht nur bis 9, weil z[i] mit z[i+1] vertauscht wird.
Man muss das ganze aber mindestens 10 mal durchlaufen lassen, wenns ordentlich gemischt sein soll.

[Bunny]

Ok, mein Fehler

[PunkFace]

Array?
Wie kann ein User jetzt eine Zahl eingeben? Diese muss dann wohl als eine Variable gespeichert werden, oder? In Simons Beispiel wäre es dann "z"...stimmts? mensch, das ist eine Frau, der ich das erklären soll.... Hilft mir auf die Sprünge.

[deepthought]

Geht's etwas verständlicher? Redest du von Beispiel 2? Da sollen doch Namen eingegeben werden keine Zahlen.

[Lexy]

{Zufallszahlen müssen und sind immer zw. 1 und 10}

program Test;
var i, o:Integer;                  [Color=Dark-BLUE]//* Brauchen wir fürs Würfeln...[/Color]
    n: Array[1..10] of String;     [Color=Dark-BLUE]//* Variablen für die 10 Namen.[/COLOR]
    
procedure Name_lesen; 
Begin
  WriteLn('Bitte geben sie zehn Namen ein!');
  for i := 1 to 10 do             [Color=Dark-BLUE]//* Wiederhole Code 10 mal[/COLOR]
  begin
    Write('Name');
    Write(i);
    Write(': ');
    ReadLn(n[i]);                 [Color=Dark-BLUE]//* Name einlesen un in n1 bis n10 speichern[/COLOR]
  end;
end;

procedure Name_randomOut;
begin
  for i:=10 downto 1 do
  begin
    o:=uRandom1n(10);             [Color=Dark-BLUE]//* Zufallszahl in o speichern[/COLOR]
    WriteLn(n[o]);                [Color=Dark-BLUE]//* Name ausgeben[/COLOR]
  end;
end;

begin
  Name_Lesen;
  Name_randomOut;
  WriteLn('Use the Source, Luke!');
end.

Mein erstes TopPascal Prog!
Also PunkFace, das ist, um die 10 Namen einzulesen und
gemischt wieder auszugeben.

P.S. Tut mir leid, ich bin nicht so gut im Kommentare schreiben.

[deepthought]

@lexy: bei deiner ausgabe werden aber die gleichen namen wiederholt ausgegeben.

[Lexy]

Ja, die gleichen Namen werden ausgegeben, aber nicht in der gleichen Reinfolge.

[ZITAT]Original geschrieben von PunkFace
2. Mischen (random?)

Man muss 10 Namen eingeben können, welche dann gemischt ausgegeben werden müssen.
[/ZITAT]

Oder hab ich da was falsch verstanden?!?

[COLOR=DARK-BLUE]//* Ach so meinst du das! Ja, kann passieren, aber bei meinen drei Testläufen ist das nicht passiert...[/COLOR]