Turmrechenprogramm

[mkinzler]

Zitat:

Wenn ich den richtigen Quelltext hätte, dann würde ich für lange Zeit, vlt. für immer, von hier verschwinden.
Danke, MArtin

Das wäre ein weiterer Grund dir nicht den fertigen Code zu liefern

Wir wollen dich ja nicht los haben sondern wollwn nur das du versuchst zu verstehen was der Code macht.

[FreePascal]

Frage: Er kennt format nicht.
Muss ich format oben auch als Variable definieren
Gruß, Martin

[mkinzler]

Nein, dass ist eine Funktion, welche eine Ausgabe formatiert
Hast du SysUtils eingebunden?

[Satty67]

Zitat von FreePascal:

es nur eingefleischte Informatiker verstehen können.

Ich verstehe, dass Du genervt bist, aber das liegt nicht an den anderen. Denn die Hilfen sind eben nicht nur für eingefleischte Informatiker zu verstehen, sondern für jeden, der sich die Grundlagen einer Programmiersprache angeeignet hat.

Die Datentypen und Operatoren sind der erste Schritt, danach Verzweigungen und Schleifen, was man in einem Anfänger-Kurs lernt.

Das hier ist nun mal ein Forum und keine Supportseite, jeder gibt Hilfe, soweit er bereit ist. Wenn so erfahrene Programmierer wie mkinzler nicht jedesmal bei Null anfangen wollen, beim Erklären, kann ich das sehr gut verstehen.

Sorry für OT, aber Leute, die hier täglich Hilfe geben, müssen auch mal verteidigt werden, auch wenn Sie das ganz gut selber können

[FreePascal]

In meinem Quellcode steht nix von SysUtils
Wo muss ich das einbinden?
Es wäre wirklich einfacher mir den Quellcode richtig umzuschreiben, ich verspreche es, dass ich dann mehr in die Grundlagen hineinschnuppere
Gruß, Martin, der glaubt, dass es nicht so kompliziert gehen muss.

[Satty67]

SysUtils ist eine Unit und muss oben eingebunden werden

uses crt, sysutils; Wobei ich jetzt nicht weis, ob bei FreePascal so eine Unit mitgeliefert wird.

[FreePascal]

Super, danke, jetzt ist das Programm ausführbar, allerdings schaut das dann so aus:
Geben Sie die Startzahl ein!
5
0x1=0
0x2=0
0x3=0
0x4=0
0x5=0
0x6=0
0x7=0
0x8=0
0x9=0
0x9=0
0x8=0
0x7=0
0x6=0
0x5=0
0x4=0
0x3=0
0x2=0
0x1=0

Ende der Schleife!
Zählerstand am Ende der Schleife: 1

was muss ich noch umändern damit es richtig läuft???

Gruß, Martin

[Satty67]

Delphi-Quellcode:

clrscr;
writeln('Das hier ist ein Turmrechenprogramm. Bitte geben Sie Ihre Startzahl ein!');
readln(zahl);
zahl:=ergebnis;

Du liest Zahl von der Konsole ein und überschreibst Zahl danach gleich mit Ergebnis (also zahl:=ergebnis ersatzlos streichen)

[mkinzler]

Ersetze mal das Format g durch f und in der 2. Schleife das x durch /

[FreePascal]

Schaut besser aus, jedoch kommt immer 0 raus
Gruß, Martin