Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Marcel2906,
19. Aug 2011
Ich habe mein code nochmals überarbeitet.
Nun bekomme ich die Fehlermeldung:
zu folgendem abschnitt:
begin
repeat
erfolgreich := True;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Marcel2906,
19. Aug 2011
Ich hab es jetzt mal Versucht, aber ich habe vorher noch nie mit 'procedure' gearbeitet, deswegen klappt es auch wahrscheinlich nicht. Hier mein Code:
program HexToDez;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Marcel2906,
19. Aug 2011
dann bekomm ich die fehlermedlung:
kann ich zu einem repeat auch mehrere untils machen??
Da ich ja schon ein repeat und until in meinem code habe und du noch ein until hinzugefügt hast...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Marcel2906,
19. Aug 2011
Also beginne von vorne hab ich keine Idee zu, das andere würde ich so versuchen:
if c=g..z then
begin
writeln('Fehler')
//beginne von vorne
end;
Nur in diesem Fehlerfall soll er von vorne beginnen, so dass man wieder eine neue Zahl eingeben kann.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Marcel2906,
19. Aug 2011
Hey Leute,
ich habe ein Programm geschrieben, dass Hexadezimalzahlen in Dezimalzahlen umrechnet.
Aber ein wichtiges Element bekomme ich nicht hin.
Und zwar bräuchte ich ein Art Befehl, der sagt.
If c = g bis z then
writeln('Fehler')
beginne von vorne.