Programm Hilfe

[DeddyH]

Delphi-Quellcode:

repeat
  ArbeiteHeftig;
until Abbruchbedingung;

Die 2 Wörter mit A am Anfang musst Du nur noch durch sinnvollen Code ersetzen und fertig.

[Luckie]

@TiGü: Bitte achte auf deine Wortwahl. Dass kann man auch etwas höflicher ausdrücken. Und wenn dir nicht mehr zu dem Thema einfällt, dann schreib einfach nichts. Aber so geht das nicht. :warn:

[Furtbichler]

Ich glaub, der boxer123 will euch verhohnepiepeln.

[TiGü]

Zitat:

Zitat von Luckie (Beitrag 1133064)

Aber so geht das nicht. :warn:

Schon gehört? Gutmenschentum ist sowas von zweitausendzehner Jahre. :twisted:

Man muss auch mal aussprechen/schreiben was eh alle denken!
Das ist doch eh ein Forentroll, merkst du das nicht?

[Sherlock]

DeddyH: Deine Engelsgelduld möchte ich gern haben!

Sherlock

[Luckie]

Zitat:

Zitat von TiGü (Beitrag 1133079)

Zitat:

Zitat von Luckie (Beitrag 1133064)

Aber so geht das nicht. :warn:

Schon gehört? Gutmenschentum ist sowas von zweitausendzehner Jahre. :twisted:

Na, dann hoffe ich mal, dass du nicht mal auf die Hilfe und Gutmütigkeit andere Menschen angewiesen bist. Und persönlich istmir deine Einstellung äußerst unsympathisch. ich werde dich daran erinnern, wenn du hier mal Hilfe suchst.

Zitat:

Man muss auch mal aussprechen/schreiben was eh alle denken!
Das ist doch eh ein Forentroll, merkst du das nicht?

aber nicht so1 In meiner Funktion als Moderator muss ich eben auch auf den Ton achten. Und wenn es dich nervt, dann guck doch einfach nicht in den Thread rein und lass es gut sein. Es zwingt dich niemand hier zu lesen und zu antworten.

[DeddyH]

Zitat:

Zitat von Sherlock (Beitrag 1133100)

DeddyH: Deine Engelsgelduld möchte ich gern haben!

Ich bin selbst erstaunt, obwohl auch meine Geduld langsam am Ende ist. Es ist schließlich nicht unsere Aufgabe, hier Grundlagenwissen zu vermitteln, der Lehrer wird schließlich dafür bezahlt, oder sehe ich das falsch?

[himitsu]

Es geht ja nicht nur ums Grundlagenwissen.
OK, wenn das fehlt, dann isses blöd, aber das Problem haben auch ganz viele Andere und mit der Zeit lernt man das schon. (mn muß ja auch erstmal rausbekommen wo man das Wissen findet, abgesehn von F1, welches man dennoch ab und zu mal ausprobieren sollte)

Das einzige Problem ist hier eigentlich nur, der etwas nervig fehlende Versuch es selber mal auszuprobieren. (wo man eine IDE herbkommt wurde ja schon oft genug erwähnt)
"geht es so?", anstatt es mal auszuprobieren ... wenn es geht, dann isses gut, wenn nicht, dann kann man gerne fragen, wenn man es nicht rausbekommt.

So, das ist eigentlich auch der Grund, warum ich nicht mehr auf die neuen Fragen antworte ... solange sich dieses nicht ändert.
(reingucken tu ich schon ab und zu nochmal ... für den Fall, daß es sich mal ändert)

[TiGü]

Zitat:

Zitat von Luckie (Beitrag 1133102)

Na, dann hoffe ich mal, dass du nicht mal auf die Hilfe und Gutmütigkeit andere Menschen angewiesen bist. Und persönlich istmir deine Einstellung äußerst unsympathisch. ich werde dich daran erinnern, wenn du hier mal Hilfe suchst.

siehe PN!

[Furtbichler]

Zitat:

Zitat von TiGü (Beitrag 1133240)

siehe PN!

Der Sack Reis, der sich dafür interessiert, ist gerade in China umgefallen.

[Luckie]

Ach Jungs, macht es mir doch nicht so schwer. Er wollte eben nur darauf hinweisen, dass er mir eine PN geschickt und er die Diskussion per PN fortsetzen will. Auch ein Zeichen an euch, da jetzt nicht noch weiter drüber zu diskutieren.

[xan553]

wenn du

Delphi-Quellcode:

zahl := zahl + 1;

in eine schleife einbaust, dann wird der wert von "zahl" so oft erhöht bis die bedienungen der schleife erfüllt sind also zähst du mit dem code wie oft die schleife/ in deinem fall die berechnung durchgeführt wird.

MfG

[boxer123]

wie soll ich dann bei

Delphi-Quellcode:

until doppelt;

[himitsu]

Was?

[guinnes]

Zitat:

Zitat von boxer123 (Beitrag 1133447)

wie soll ich dann bei

Delphi-Quellcode:

until doppelt;

Geht das auch mal im ganzen Satz ?
Was willst du uns damit sagen ?
Und vor allem : was sollen wir darauf antworten ?
Ich hätte da einige Antworten :
1. 42
2. Ja
3. Nein, auf keinen Fall
4. Ohmm

Du kannst dir daraus was aussuchen, bei deiner Frage ist alles richtig

[boxer123]

wie soll ich die abbruchbedingung formulieren, ich versuche es die ganze zeit ( habe delphi);

[guinnes]

Zitat:

Zitat von boxer123 (Beitrag 1133457)

wie soll ich die abbruchbedingung formulieren, ich versuche es die ganze zeit ( habe delphi);

Der Boxer hat das "," gefunden, Halleluja !!

[himitsu]

Jetzt fehlt nur noch die Shift-Taste. :stupid:


Was soll denn die Abbruchbedingung machen?
Mit "doppelt" kann ich jedenfalls nichts anfangen. ( Was soll doppelt sein? )

[boxer123]

wie soll ich die formulieren, kann mir einer ein tipp geben

Delphi-Quellcode:

until (abbruchbedinung)

[DeddyH]

Wann willst Du denn aus der Schleife raus? Wenn ...
Das "..." gehört in das until.

[boxer123]

ich will raus bis er gezählt hat wann 6174 raus kommt

[DeddyH]

Und wenn nicht 6174 rauskommt?

[boxer123]

dann soll nicht 6174 rauskommen wie lange er daf+r gebraucht das soll da hin

[DeddyH]

:?:

[Bummi]

Wenn die Eingabe den Bedingungen entspricht kommt das schon raus
http://en.wikipedia.org/wiki/6174_(number)

[DeddyH]

Wenn ich 0 eingebe, kommt das garantiert nicht heraus. Und von den beschriebenen Bedingungen war nie die Rede.

[boxer123]

ja und wie soll ich das anders formulieren, dass er nur die Anzahl ausgibt

[DeddyH]

Was hat denn jetzt die Ausgabe mit der Abbruchbedingung zu tun?

[boxer123]

Delphi-Quellcode:

repeat
zahl3:=zahl3 + 1;
arbeite;
until differenz=6174;

So habe ich mir es vorgestellt, aber es geht nicht

[DeddyH]

Dann machst Du wohl was falsch.

[edit] Ein Beispiel für die generelle Logik:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Zahl, Zaehler: integer;
begin
  Zahl := 10000;
  Zaehler := 0;
  repeat
    Zahl := Zahl div 10;
    Zaehler := Zaehler + 1;
  until Zahl < 10;
  ShowMessage('Duchläufe: ' + IntToStr(Zaehler));
end;

[/edit]

[boxer123]

die frage ist was ich falsch mache

[DeddyH]

Woher soll ich das wissen? Aus den paar (immer noch unformatierten!) Zeilen Code kann ich das beim besten Willen nicht erkennen.

[boxer123]

ja soll ich ganzen code reinlegen ?

[DeddyH]

Der "arbeite"-Teil genügt völlig, aber dann mit nachvollziehbaren Einrückungen, sonst lese ich ihn nicht.

[boxer123]

Wenn ich das programm so laufen lasse kommt immer 2 raus

Delphi-Quellcode:

zahltext:= edit1.text ;
for i:= 1 to 4 do
 begin
  a[ i ] :=copy (zahltext,i,1) ;
  b[ i ] :=copy (zahltext,i,1) ;
 end;
 zahl3 := 1;
 repeat
  doppelt := true;
  for i:= 1 to 3 do
   for j:=i+1 to 4 do
    if a[ i ] <= a[ j ] then
     begin
      park:=a[ i ] ;
       a[ i ] := a[ j ] ;
       a[ j ] := park ;
      end;
    zahl3 := zahl3 + 1;
  until doppelt;
  zahl3 := 1;
  repeat
    doppelt := true;
    for i:= 1 to 3 do
      for j:= i+1 to 4 do
        if b[ i ] >= b[ j ] then
          begin
            park := b[ i ] ;
            b[ i ] := b[ j ] ;
            b[ j ] := park ;
          end;
      zahl3:= zahl3 + 1;
    until doppelt;
zahltexteins := ' ' ;
zahltextzwei := ' ' ;
for i:=1 to 4 do
 begin
  zahltexteins:= zahltexteins + a[ i ] ;
  zahltextzwei:= zahltextzwei + b[ i ] ;
 end;
zahl1:= strtoint (zahltexteins) ;
zahl2:= strtoint (zahltextzwei) ;
differenz:= zahl1 - zahl2 ;
edit2.text:= IntToStr (zahl3);
end;;
end;

EDITTTTTT

[DeddyH]

*OMG* Du solltest zuerst sortieren und dann erst in einer Schleife die jeweilige Differenz ermitteln. Außerdem solltest Du einmal nachschauen, welche Bedeutung Du Zahl3 zugedacht hast. Welche Zahl musst Du also in der Abbruchbedingung auswerten? Bestimmt nicht Zahl3. Und bgzl. der Formatierung: schon besser als vorher, trotzdem schau Dir doch mal an, wie die anderen das machen.

[edit] Sry, stimmt so nicht ganz, in der Schleife muss schon neu sortiert werden, Denkfehler meinerseits. Aber Du sortierst den falschen String, nämlich immer wieder denselben. [/edit]

[DeddyH]

So, ich habe Deinen Code minimal angepasst, bei mir funktioniert es jetzt.

[boxer123]

könntest du mir vielleicht sagen was ich falsch mache

[DeddyH]

Zum Vergleich:

Delphi-Quellcode:

  zahl3 := 0;  //zahl3 vorbelegen, sonst steht irgendwas drin
  zahltext := Edit1.text; //hier einmalig auf das Edit zugreifen
  repeat
    (* viel Code
       ... *)
    differenz := zahl1 - zahl2;
    zahltext := IntToStr(differenz); //hier neu zuweisen
  until differenz = 6174;  //differenz auswerten, nicht den Zähler
  edit2.text := IntToStr(zahl3);

[boxer123]

es klappt