Abfahrts- und Ankunftszeit ...

[TEYTO]

Grüß euch,
ich habe 2 Aufgaben mit denen ich irgend wie nicht klarkomme.. ich hoffe ihr könnt mir helfen.

Die Aufgaben lauten:

1)
Ein eingelesener Sekundenbetrag ist in Stunden, Minuten und Sekunden auszudrücken:

Eingabe: 4548 s

Ausgabe: 4548 s = 1:15:48 h


Mein ERGEBNIS:

Code:

var
Sekunden, Stunden, Minuten, Restsekunden : Integer;
begin
  Sekunden := StrToInt (EdSekunden.Text);
  Stunden := Sekunden div 3600
  EdStunden.Text := IntToStr (Stunden);
  Minuten := ((Sekunden mod 3600) div 60);
  EdMinuten.Text := IntToStr (Minuten);
  Restsekunden := ((Sekunden mod 60) mod 60);
  EdRestsekunden.Text := IntToStr (Restsekunden);

Die Aufgabe habe ich glaube ich richtig gemacht, hat auch alles funktioniert. Werd gleich quellcode etc.. hochladen..


b) Aufgabe : Berechne Sie die Fahrzeit eines Zuges, wenn Abfahrts- und Ankunftszeit (in Stunden und Minuten desselben Tages) eingegeben werden.


Das ist die erste Aufgabe ( 1 b ) die ich nicht so verstehe. Was muss ich jetzt genau eingeben?



Nun die zweite Aufgabe:


2) Berechnen Sie für ein eingegebenes n€N* :

n! = 1 x 2 x 3 x...x n (gelesen: "n Fakultät" )


Zur Erinnerung: N* = { 1,2,3,.. } ist die Menge der positiven natürlichen Zahlen.



Die Aufgabe verstehe ich von Grund auf nicht, ich weiss überhaupt nicht was ich machen soll..
Ich hoffe ihr könnt mir bei 1b und 2 helfen..

[glkgereon]

also

2 fragen -> 2 threads

und herzlich willkommen in der dp!

zur fakultät:
for-schleife ;)

[fkerber]

Hi!

Zu 1b)
Was auf jeden Fall geht:
Den bei 1a gemachten Weg rückgängig, dann hast du 2 Sekundenwerte. Diese voneinander abziehen und dann wieder 1a) machen.


Ciao Frederic

[fiasko]

Hallo,

Zitat:

Zitat von TEYTO

Code:

Restsekunden := ((Sekunden mod 60) mod 60);

Wieso machst du denn 2x mod 60? Nach dem ersten mal Modulus bist du bereits in Z60, durch ein weiteres mal Modulo 60 zu rechnen ändert sich daran nix.

Ansonsten müßte es stimmen.

Zitat:

Zitat von TEYTO

b) Aufgabe : Berechne Sie die Fahrzeit eines Zuges, wenn Abfahrts- und Ankunftszeit (in Stunden und Minuten desselben Tages) eingegeben werden.


Das ist die erste Aufgabe ( 1 b ) die ich nicht so verstehe. Was muss ich jetzt genau eingeben?

Du weißt wenn der Zug losfährt und wenn er ankommt. Die Zeit die dazwischen verstreicht ist die Fahrtdauer - die sollst du ausrechnen.

Zitat:

Zitat von TEYTO

2) Berechnen Sie für ein eingegebenes n€N* :

n! = 1 x 2 x 3 x...x n (gelesen: "n Fakultät" )

Die Aufgabe verstehe ich von Grund auf nicht, ich weiss überhaupt nicht was ich machen soll..

Steht doch da, du sollst für eine natürliche Zahl n die der Benutzer eingibt die Fakultät berechen, die Berechnungsvorschrift ist dir sogar auch gegeben.

Beispiel: 10!=10*9*8*7*6*5*4*3*2*1=3628800

[TEYTO]

Danke für die schnellen Antworten.

@ glkgereon

Sry, wusste ich nicht.


@ fkerber

Habe ich so ganz verstanden :/ Könntest du den code eventuell posten oder bisschen mehr erklären? ^^



@ fiasko

Mit der Fakultät verstehe ich das nicht so ganz ... :wall:

[fiasko]

Zitat:

Zitat von TEYTO

Sry, wusste ich nicht.

:dp: :mrgreen:

Zitat:

Zitat von TEYTO

Habe ich so ganz verstanden :/ Könntest du den code eventuell posten oder bisschen mehr erklären? ^^

Du mußt aus einer hh:mm:ss angabe die Sekunden berechnen, dann die Differenz und das wieder als hh:mm:ss ausgeben.

Zitat:

Zitat von TEYTO

Mit der Fakultät verstehe ich das nicht so ganz ...

da steht doch da wie man die berechnet, noch ein paar Beispiele:

Code:

1! = 1               =   1
2! = 1*2             =   2
3! = 1*2*3           =   6
4! = 1*2*3*4         =  24
5! = 1*2*3*4*5       = 120
n! = 1*2*3*4*5*...*n = ...

also jetzt muß es klar sein, ansonsten mußt du mal mit deinem Mathelehrer reden ;-)

[TEYTO]

Hehe, danke :>

Die Fakultät verstehe ich, was ich nicht verstehe ist, es in delphi zu proggen.. hört sich dumm an ist aber so :cyclops:

[Kernel32.DLL]

Zitat:

Zitat von TEYTO

Hehe, danke :>

Die Fakultät verstehe ich, was ich nicht verstehe ist, es in delphi zu proggen.. hört sich dumm an ist aber so :cyclops:

was? wie man eine Fakultät in Delphi berechnet?

[TEYTO]

Jo, ohh ohh das hört sich aber nicht gut an, sieht aus als ob ich gleich "haue" kriege :duck:

[Kernel32.DLL]

Zitat:

Zitat von TEYTO

Jo, ohh ohh das hört sich aber nicht gut an, sieht aus als ob ich gleich "haue" kriege :duck:

keine Angst, ich haue nicht, ich schlage nur *dresch*

warte, ich bastel ma kurz wat....

[Kernel32.DLL]

Delphi-Quellcode:

 
procedure TForm1.Button1Click(Sender: TObject);
var
z, i,fakult: integer;
begin
 z := 1;
 fakult := 4;
 for i := 0 to (fakult - 1) do
 begin
  z := z + (z * i);
 end;
 form1.Caption := z;
end;

so einfach is dat... (obwohls noch einfacher geht... just quick'n'dirty)

ach ja... ohne Garantie... :mrgreen:

[xineohp]

moin,

nur das dieser Code nicht die Fakultät berechnet!!!

Delphi-Quellcode:

z:=1;
for i:=1 to fakultaet do
z := z*i;

[Kernel32.DLL]

Zitat:

Zitat von xineohp

moin,

nur das dieser Code nicht die Fakultät berechnet!!!

Delphi-Quellcode:

z:=1;
for i:=1 to fakultaet do
z := z*i;

^Das^ stimmt aber nicht mit dem

Zitat:

1! = 1 = 1
2! = 1*2 = 2
3! = 1*2*3 = 6
4! = 1*2*3*4 = 24
5! = 1*2*3*4*5 = 120
n! = 1*2*3*4*5*...*n = ...

überein.

[xineohp]

und warum bitte nicht?

Delphi-Quellcode:

For i:=1 to 5 do z:= z*i;

ergibt:

Code:

z:=1;
i=1:  z = z*1 = 1;
i=2   z = z*2 = 1*2;
i=3   z = z*3 = 1*2*3;
i=4   z = z*4 = 1*2*3*4;
i=5   z = z*5 = 1*2*3*4*5;

ist genau das was verlangt wurde ...

[Kernel32.DLL]

:wall: :wall: :wall: Ich VOLLIDIOT!

Natürlich geht deine Variante... Is' nur einfacher als meine...

Er sachte ja nicht, dass es einfach sein müsste...

Und ich glaube, ich leg mich jetzt schlafen...

P.S.: Mein Vorschlag geht auch...

[xineohp]

ups, ich musste entgegen meiner ersten Annahme erkennen, dass deine Methode tatsächlich das richtige Ergebnis produziert ... allerdings etwas kryptisch :stupid:

deiner Version lässt sich zu folgendem umformen,

Code:

z + (z*i) = z*(i+1)

was in Kombination mit der Tatsache, dass du von 0 bis Fakultaet-1 zählst, genau meine funktion ergibt :zwinker:

[Kernel32.DLL]

[OT]
*nichts mehr auf die reihe bekomm' und auf dem direkten weg in die Heia sei*
[/OT]

[TEYTO]

und welches von euch beiden soll ich nehmen? :mrgreen:

[TEYTO]

Habe mal die Aufgabe 1 a hochgeladen. Da kommt mir ein unerklärlicher Fehler, habe des mal geupped.

In der Schule gings noch, aber hier habe ich Probleme...

[fkerber]

Hi!

Sagst du uns auch bitte, was für ein Fehler?


Edit:
Falls du den meinst:
[Error] Unit1.pas(42): Missing operator or semicolon

Da fehlt in der vorhergehenden Zeile ein Semikolon - aber das sagt er dir ja :roll:



Ciao Frederic

[TEYTO]

Ich habe des doch extra geupped, damit ihr des sehen könnt...

"operator oder semikolon fehlt" ... kannst dir das ja herunterladen und angucken was ich da falsch gemacht habe ; )


Ja, aber wo? ich sehe da keinen Fehler in der Zeile...

[fkerber]

Hi!

Wie ich gesagt habe:
In der vorhergehenden Zeile ganz am Ende.


Ciao Frederic

[TEYTO]

Ich blinnnder -.-

danke dir : >, so nun mit der 1 b, was muss ich da genau machen bzw. verändern?

[fkerber]

Hi!

Nehmen wir an:
Startzeit: 01:00:00
Endzeit: 02:00:00

Dann heißt das je eigentlich:
Startzeit: 1 Stunde, 0 Minuten, 0 Sekunden
Endzeite 2 Stunden, 0 Minuten, 0 Sekunden

Jetzt alles in Sekunden:
sStartzeit = sekunden+minuten*60+Stunden * 3600;
sEndzeit = sekunden+minuten*60+Stunden * 3600;

Dann voneinander abziehen
Fahrzeit = sEndzeit-sStartzeit;

Dann wieder umrechen, wie in 1a, du hast nämlich nun einen Zeitwert in Sekunden (hier 3600)


Viel Erfolg.


Ciao Frederic

[Nicodius]

Zitat:

Ich blinnnder -.-

Zitat:

Ich VOLLIDIOT

na na na heut gehts ja Rund :mrgreen:

[TEYTO]

@ fkerber


Ich habs bisschen anders gemacht, aber funzt 1a und ist vieeeel einfacher : P



Mit der fakultät, kann mir das einer machen. Ich versuche das die ganze Zeit aber es klappt einfach nicht..

[fkerber]

Hi!

a) Dann zeig uns doch bitte wie.
b) Was hast du denn bisher für die Fakultät?


Ciao Frederic

[TEYTO]

ah, sehr gut, ich habs doch hinbekommen mit hilfe eines kollegen..

Danke nochmal an euch, wart alle sehr nett..., DANKE FÜR DIE HILFE NOCHMAL

[fkerber]

Hi!

Dann zeig uns doch bitte trotzdem den funktionierenden Code, dann habe andere auch etwas davon.


Ciao Frederic

[Kernel32.DLL]

Zitat:

Zitat von TEYTO

Mit der fakultät, kann mir das einer machen. Ich versuche das die ganze Zeit aber es klappt einfach nicht..

Wieso, xineohp und meine Lösung sind doch einfach zu verstehen??
Meine ist sogar schon 'ne fertige Prozedur!

[Edit]Scheint sich ja erledigt zu haben...[/edit]