Problem bei Delphi

Hobby-Programmierer · Verfasst: Di 18.10.11 17:23

Hallo Boxer,
du solltest erstmal eine allgemein verständliche Einführung geben.
1. Woher kommen die Zahlen?
2. Welche Delphi Version wird genutzt?

Dann solltest du die einen Zettel und eine Stift nehmen und aufschreiben wie du das 'händisch' lösen würdest.
Dann und nur dann kannst du da rangehen um eine logik zu entwickeln die auch ein Computer versteht. Und dann können wir auch helfen ....

Horschdware · Verfasst: Di 18.10.11 17:24

Das beschreibt lediglich die Ausgabe.
Aber es ist noch immer nicht klar, WAS gerechnet werden soll.

Dein Beispiel am Anfang zeigt nur ein paar Zahlen ohne erkennbares Muster, nach dem gerechnet wird.
Solange du hier den Algorithmus nicht beschreibst wird das nichts.

Überleg doch mal, wie du auf diese Beispielzahlen gekommen bist. Du musst das ja irgendwie händisch gelöst haben. Versuche dann diese Schritte in klare Worte zu fassen.

_________________
Delphi: XE - OS: Windows 7 Professional x64

Hobby-Programmierer · Verfasst: Di 18.10.11 17:52

Die Aufgabe lautet wahrscheinlich:
Bilde aus der dargestellten Zahl [Zahlenkolonne] die grösste und die kleinste mögliche Zahl. Dann subtrahiere die kleinere von der grösseren.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Bitte ich kriege eine Note kann mir das jemand über Teamviewer machen

Dude566 · Verfasst: Di 18.10.11 18:43

Hat schon vielen geholfen: www.christian-stelzm...rtikel/crashkurs.htm

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

guinnes · Beiträge: 182 Erhaltene Danke: 14

Dude566 hat folgendes geschrieben :

Hat schon vielen geholfen: www.christian-stelzm...rtikel/crashkurs.htm

Aber da steht nicht die Lösung drin. Danach muß man immer noch selber denken !

boxer123 · Beiträge: 68 Erhaltene Danke: 2

So

Dude566 · Verfasst: Di 18.10.11 18:49

Die kriegt er dann selbst hin, wenn er die Grundlagen kann, oder sollte das sarkastisch gemeint sein?

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

guinnes · Beiträge: 182 Erhaltene Danke: 14

boxer123 hat folgendes geschrieben :

bitte ich bezahle auch der jetzt mit tv kommt bitte man

Ich glaube nicht, daß du soviel Geld hast. Ich stelle mir grade vor, ich kriege einen Kollegen wie dich. Dann lieber keinen

Horschdware · Verfasst: Di 18.10.11 18:50

Wir sollen dir für Entgeld deine Hausaufgaben machen?
Sicherlich nicht.

Leute mit "bitte mann...." anreden: Möp. Zonk.

Ich klinke mich hier aus, da du offensichtlich kein weiteres Interesse mehr an einer Lösung hast. Ciao

_________________
Delphi: XE - OS: Windows 7 Professional x64

guinnes · Beiträge: 182 Erhaltene Danke: 14

Dude566 hat folgendes geschrieben :

Die kriegt er dann selbst hin, wenn er die Grundlagen kann, oder sollte das sarkastisch gemeint sein?

Klar, in 2 Jahren

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Was fehlt da

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl[1..4]:=0;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;
for i:= 1 to 3 do
for j:=i+1 to 4 do
if zahl[i]>=zahl[j]:=zahl[j]];zahl[j]:=park;
zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;
end;
edit2.text:=inttostr(zahl[1..4]);

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Martok · Verfasst: Di 18.10.11 18:52

Hallo,

wir helfen gerne (auch) bei Hausaufgaben, aber da muss der Fragesteller (also du

) schon etwas mehr initiative zeigen. Bzw. überhaupt welche, dazu würde ja schon gehören mal die Fragestellung richtig zu beschreiben.

Wenn du das wirklich so möchtest, kannst du gerne einen Thread in der Job-Börse erstellen. Dann kannst du aber von "begrenzter" Resonanz ausgehen.

Grüße,
Martok

PS:

Bitte verwende für Quellcode die entsprechenden [delphi]-Tags, dann wird er "schöner" dargestellt als im Fließtext. Beispiel:

markieren

Quelltext

1:	<span class="inlineSyntax"><span class="codecomment">{PROTECTTAGeaa3f728dd1e8b132a085600ba023c4c}</span></span>

Wird:

markieren

Delphi-Quelltext

1:	var Test: integer;

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

boxer123 · Beiträge: 68 Erhaltene Danke: 2

OK, also das Programm soll so aussehen.

Nehmen wir mal eine 4 stellige Zahl : 5456

Das Programm soll diese Ziffern nach der Größe sortieren : 6554
Und nach der kleinsten Zahl: 4556

So und jetzt soll das Programm von diesen beiden Zahlen die Differenz bilden das wäre : 1998

Und diesen Alghorithmus soll er solange machen bis er erkennt das immer wieder die gleiche Zahl kommt. Und diese Zahl die immer gleich kommt soll er im edit 2 fenster ausgeben.

Horschdware · Verfasst: Di 18.10.11 19:01

Dann stimmt aber dein Beispiel im Eingangspost nicht.

_________________
Delphi: XE - OS: Windows 7 Professional x64

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Wieso ? Denn ich habe die Zahl : 6957 . Nach der Größe geordnet und nach der kleinsten die Differenz gebildet und es kam: 3996 und jetzt macht das Programm das gleiche mit 3996 und so weiter

6957 /9675-5679=3996
3996 /9963-6399=3564
3564 /6543-3456=3087
3087 /8730-0378=8352
8352 /8532-2358=6174
6174 /7641-1467=6174

guinnes · Beiträge: 182 Erhaltene Danke: 14

Und ? Das hatten wir schon vermutet. Was ändert das ? Wir sollen dir eine gute Note besorgen. Und warum ?

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Ich Frage nur. Ich versuche es auch selber, aber ich schaffe es nicht und deshalb brauche ich Hilfe

guinnes hat folgendes geschrieben :

Und ? Das hatten wir schon vermutet. Was ändert das ? Wir sollen dir eine gute Note besorgen. Und warum ?

guinnes · Beiträge: 182 Erhaltene Danke: 14

Zitat:

3996 /9963-6399=3564

Wie passen die Zahlen in dein Schema ?
3699 wäre richtig

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

boxer123 hat folgendes geschrieben :

Ich Frage nur. Ich versuche es auch selber, aber ich schaffe es nicht und deshalb brauche ich Hilfe

Es ist gut, dass Du es selber versuchst. :zustimm:

Wichtig ist aber, dass Du ein paar Spielregeln beachtest, wenn Du möchtest, dass wir Dir helfen. Zum einen solltest Du Deine Beiträge verständlich formulieren und z.B. auf Formalien wie die Delphi-Tags achten. Zum anderen ist es sehr wichtig, bei einem Quelltext, der nicht funktinoiert, dazu zu schreiben, was den nicht geht. Das kann eine Fehlermeldung sein, die Delphi Dir ausspuckt, es kann aber auch sein, dass Du schreibst, was der Quelltext eigentlich machen soll und was er stattdessen tut.

Wenn Du diese Regeln beherzigst, läuft das hier wahrscheinlich schon mal glatter. Und ganz wichtig: Eigeninitiative zeigen, dann helfen wir gerne!

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme