Struktogramme

[Gina25]

Hallo, ich habe ein Problem. Wir haben für die Schule Übungen mit Struktogrammen bekommen, welche wir in Lazarus programmieren sollen. Allerdings kommt bei einem Struktogramm immer ein Fehler angezeigt, und ich verstehe nicht, wie ich diesen lösen kann. Ich würde mich über Hilfe sehr freuen.

Das Struktogramm:

Das Struktogramm

Meine Lösung:

Meine Lösung

Mein Formular

cats8.jpg (83.76 KiB) 1864 mal betrachtet

Die Fehlermeldung:

Die Fehlermeldung

Schonmal im Vorraus Danke für die Hilfe

[knight]

Wem willst du denn das Ergebnis von StrToInt zuweisen?

knight

[MAC]

Willkommen hier im Lazarusforum.
Ich könnte dir jetzt einfach die Hausaufgabe machen, was ich allerdings nicht mache. Ich verweise dich erstmal auf ein Tutorial, bzw eine Gute seite, weil es dort gute einführungen in Lazarus gibt.
Mein Tipp les dir mal die Tutorials "Mein erstes Delphi Programm" und "Ein kleiner Rechner durch". evt zuvor "Wie fang ich an" grob überfliegen.
Hier die Seite: http://www.delphi-treff.de/tutorials/grundlagen/" onclick="window.open(this.href);return false;
Die Seite ist eigentlich für Delphi konzipiert. Der Quellext sollte sofort in Lazarus klappen...
Danach postest du nochmal den überarbeiteten Quelltext. Und kleine Fehler behebe ich dann.

[af0815]

Mit einem Label Zeigt man etwas an. Wenn man etwas eingeben will (durch den Benutzer) so verwendet man meistens eine Edit Komponente.

Die meisten Komponeneten die man auf einem Formular plazieren kann, speichern die Information als String (Zeichenkette = Aneinandereihung von Buchstaben). Um Zahlen die als String gespeichert in ein wirkliche Numerische Form zu bekommen, verwendet man 'StrToInt(string)'. StrToInt konvertiert den angegeben String in einen Integer Wert (ganzahlig OHNE Kommastellen).

[creed steiger]

Deklarier sauber deine Variablen,mach deine Vergleiche und die Ausgabe auf die Labels erst ganz zum Schluss.
Mit dem Struktogramm ist doch schon alles gegeben.

Eingabe- und Ausgabevariablen vorher überlegen und festlegen ist wohl nichtmehr modern .

[mse]

Nur zum Vergleich, mit MSEide+MSEgui ginge das unter Verzicht auf Zwischenvariablen so:

Code: Alles auswählen

type
 tmainfo = class(tmainform)
   a: tintegeredit;
   b: tintegeredit;
   c: tintegeredit;
   m: tintegerdisp;
   procedure ondataenteredexe(const sender: TObject);
 end;
 
var
 mainfo: tmainfo;
 
implementation
uses
 main_mfm;
 
procedure tmainfo.ondataenteredexe(const sender: TObject);
begin
 m.value:= a.value;
 if b.value > m.value then begin
  m.value:= b.value;
 end;
 if c.value > m.value then begin
  m.value:= c.value;
 end;
end;

co4.png (3.21 KiB) 1826 mal betrachtet

Gerade für Programmieranfänger ist das gefummel mit IntToStr und StrToInt mühsam und verwirrend.