Ich brauche Hilfe bei einem Lazarus Programm. Kann mir jemand weiterhelfen?

Hallo,

Ich muss für den Unterricht ein Programm mit Lazarus erstellen, bei welchem die größte von 3 Zahlen ausgegeben wird. Diese Zahlen kann ich mir selbst aussuchen. Ich habe schon einiges herumprobiert, jedoch hat es nicht geklappt. Weiß jemand weiter?

4 Antworten

triopasi

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

03.11.2016, 17:55

Du sollst auf 3 Zahlen dir größte raussuchen? Denk mal nach... wie machst du das von Hand? Und genau das tippst du jetzt in den Code....

Woher ich das weiß:Studium / Ausbildung – Informatikstudium

HansQuarkWurf

Beitragsersteller

03.11.2016, 18:08

Ich habe den Quellltext als Antwort gepostet.

triopasi

03.11.2016, 18:10

@HansQuarkWurf

Formatier deinen Code mal bitte ordentlich, das ist ja grauenhaft.

Zudem: Überdenke mal wie du die Prüfungen machst... da fehlt definitiv was...

HansQuarkWurf

Beitragsersteller

03.11.2016, 17:57

Ich bin soweit, dass ich jeweils 3 mal 2 Zahlen miteinander vergleiche und doch stimmt etwas nicht. Das Programm funktioniert nur wenn die größte Zahl nicht die erste ist. Deswegen bin kich sehr verwirrt.

triopasi

03.11.2016, 17:59

@HansQuarkWurf

1. Ohne Code kann dir keiner sagen, was an deinem Code falsch is...

2. Dann hast du iwas vergessen... siehe 1.

Dory1

03.11.2016, 18:10

uses Math;

procedure TForm1.Button1Click(Sender:TObject);
var
  zahlen: Array[0..2] of Float;
begin
  zahlen[0] := strtofloat(edit1.text);
  zahlen[1] := strtofloat(edit2.text);
  zahlen[2] := strtofloat(edit3.text);
  edit4.text := floattostr(MaxValue(zahlen));
end.

Hab hier leider gerade keinen ObjectPascal-Compiler zur Hand aber das sollte doch funktionieren. Vergiss bitte die manuelle Prüfung mit if/else. Quasi jede Programmiersprache bietet hierfür entsprechende Funktionen.

HansQuarkWurf

Beitragsersteller

03.11.2016, 18:46

Ich habe das ausprobiert und es funktioniert. Jetzt habe ich noch eine Frage aus reinem Interesse: Wofür steht bei den Variablen das of Float? Vielen Dank nochmals.

Dory1

03.11.2016, 18:49

@HansQuarkWurf

Float steht für Kommazahl - ein Array aus Zahlen mit (möglicherweise) Nachkommastellen. Wenn du nur Ganzzahlen erlauben willst musst du den Datentyp Integer wählen und strtoint anstatt strtofloat verwenden.

HansQuarkWurf

Beitragsersteller

03.11.2016, 19:15

@Dory1

Verstehe.

Dory1

03.11.2016, 17:46

http://www.freepascal.org/docs-html/rtl/math/maxvalue.html

Maxvalue returns the largest value in the data array with integer or float values

uses Math;

...

MaxValue(zahlen_array);

HansQuarkWurf

Beitragsersteller

03.11.2016, 17:52

Tut mir wirklich leid, aber das verstehe ich leider nicht wirklich, weil wir das in der Schule noch nicht hatten. Aber trotzdem Danke für deine Hilfsbereitschaft.

HansQuarkWurf

03.11.2016, 18:06

@triopasi Ich weiß, dass ist nicht sehr professionell, aber wiegesagt haben wir noch nicht soviel dazu gelernt. Aber vielleicht kannst du mir ja trotzdem helfen...

Ähnliche Beiträge

Wie programmiere ich ein Primzahlenüberprüfer mit Lazarus?

Hallo,

wie erstelle ich auf Lazarus ein Programm, welches deine eingegebene Zahl überprüft, ob es eine Primzahl ist oder nicht - mit der Verwendung von dem Modulo (mod)?

Habt ihr Lösungsansätze/Lösungen?

...zum Beitrag

Einfaches Programm mit Lazarus

Suche eine Idee was für ein Programm ich im Unterricht mit Lazarus (oder Delphi) erstellen kann. Bedingung sind, dass mindestens eine Verzweigung und eine Schleife mit dabei ist. Bei den Programmen die wir bisher erstellt haben, handelte es sich ausschließlich um Programme um etwas zu berechnen (Schnittpunkte Funktionen, Quadratsumme etc ).

Eine Antwort wäre sehr lieb, wenn möglich mit Beschreibung für das Verständnis. Muss dafür zudem noch ein Struktogram erstellen.

...zum Beitrag

Lazarus: Wie selektiere ich ein Formular?

In der Schule erstellen wir zur Zeit ein Programm, welches auf Knopfdruck ein neues Formular erstellen, wo drin ein Windpark verwaltet werden kann. Jedoch habe ich das Problem das die Windräder immer im zu letzt erstellten Formblatt erzeugt werden. Meine Frage ist wie kann ich den Buuton so programmieren, dass ein Windrad im dazugehörigen Formular erstelllt wird.( Siehe Bilder)

Quelltext: Bilder

...zum Beitrag

C# programm mit 3 zahlen, min und max soll ausgegebe werde

hallo leute,

ich soll für die schule ein c# Programm programmieren, und komme absolut nicht weiter...habe auch noch nicht so viel programmier kenntnisse. die aufgabenstellug lautet wie folgt:

Ein Benutzer kann 3 positive ganze zahlen ( integer-wert) eingeben. Danach soll kleinste und die größte zahl ausgegeben werden.

ich soll also ein programm programmieren welches wo ich 3 zahlen eingeben kann und danach min = x ; max = y oder so steht. wie ich die 3 zahlen eingese weis ich aber ich habe einfach keine ahnung wie ich das mache das danach die größte und die kleinste zahl steht von den drei zahlen steht. achja und wir sollen nur 3mal if verwenden

wäre echt cool wenn mir da irgendjemand helfen kann ich komme echt absolut nicht weiter danke schonmal im vorraus

...zum Beitrag

Lazarus; Abbruch bzw Fehlermeldung bei ungültiger Eingabe ausgeben. Wie?

Hi. Ich bin grad dabei, bissl mit Lazarus herumzuspielen. Ich habe nun das Problem, dass ich nicht weiß, wie ich wenn man z.B. in eine Edit-Komponente nichts oder eine Zahl die kleiner ist als 2 eingibt, ich eine Fehlermeldung ausgeben lassen kann bzw das Programm sich selbstständig schließen lassen kann.

Ich weiß, dass ich zum beenden den Befehl Application.terminate brauche, aber wie mache ich das mit der bedingung?

Ich hoffe auf qualitative Antworten :) Grüße

...zum Beitrag

Fehlermeldung in Lazarus erstellen?

Hi Ich habe ein Frage bezüglich einer aufgabe in einer Informatik Aufgabe:

Bei der Eingabe des Schlüssels durch den Benutzer können natürlich Eingabefehler auftreten,

z.B. ein

Buchstabe taucht mehrfach auf oder die Länge passt nicht. Daher empfiehlt es sich, dem

Benutzer

die

Möglichkeit zu geben, seinen Schlüssel prüfen zu lassen. Genau das sollst du nun angehen! Auf der nächsten Seite findest du eine Abbildung, die ein entsprechendes Fenster (Formular) darstellt.

Durch Betätigen der Schaltfläche ‚Prüfen‘ wird der Schlüssel auf Korrektheit geprüft und in jedem Fall eine Information ausgegeben. Erweitere dein Formular zunächst um die neuen Komponenten (ein Button und ein Panel). Wie muss die zugehörige Ereignisbehandlungsroutine im Quelltext nun aufgebaut sein?

Schreibe sie anhand der folgenden

Anleitung und teste dein erweitertes

Programm....

kann mir da irgendjemand unter die Arme greifen?

Lg Roman

...zum Beitrag

Lazarus bzw. Programmiersprache "Pascal" problem beim erstellen eines Taschenrechners?

Hallo.

Ich bin gerade dabei einen Taschenrechner auf Lazarus mit der Programmiersprache Pascal zu programmieren.
Dennoch hab ich bei einer Sache ein Problem (bin noch Anfänger in diesem Bereich).
Und zwar schaffe ich es nicht, dass es ausgerechnet wird.
Also ich hab es erstmal mit einem label probiert.
Da schaff ich (komisch gesagt) nicht die opperatoren (+,-,*,/) von den Zahlen zu "Filtern".
Also so dass erkannt wird was davon die zahl ist und was der opperator damit das automatisch ausgerechnet wird.

2.Variante ist, ich hab 3 edits. Ein Edit für die erste zahl und eins für die zweite und eins für den opperator aber da hab ich das problem mit der virtuellen tastatur (welche dabei sein muss), da ich nicht weiß wie man da einstellt (auch nicht vom nachdenken her) dass man in das 2. edit feld schreibt wenn man die 2.zahl schreiben will. z.b. dass sobald man auf die edit fenster klickt, dass dann jede zahl die eingegeben wird nur da angezeigt wird.

Hoffe es ist einigermaßen verständlich.

Kurze zusammenfassung:
1. wie bringt man einen Taschenrechner mit Lazarus mit nur einem label wo alles reinkommt zum rechnen
2.Wie macht man es so, dass bei einer virtuellen tastatur, sobald man auf ein edit fenster klickt , alles was man klickt in dem ausgewählten edit fenster landet?

danke im Vorraus

...zum Beitrag

Wie kann ich eine TXT-Datei erstellen in Lazarus?

Zurzeit arbeite ich an einem Programm, welches unter Anderem Dateien erstellen und in diese anschließend schreiben können soll, aber die Dateien werden nicht einmal erstellt.

assign(f, getCurrentDir + 'TextFile.txt');

rewrite(f);

close(f);

f ist als Text in Var angegeben

Der Fehler, der dann kommt, ist "File not assigned"

Was mache ich falsch?

...zum Beitrag

Lazarus Sounddateien abspielen?

Hallo,

ich habe das Problem, dass ich gerne Audiodateien in meinem Lazarus Programm abspielen möchte. Ich finde aber in der Komponentenpalette leider nicht den Sound Player "TMediaPlayer", welchen ich für das Abspielen der Audiodateien brauche. Kennt sich da jemand besser mit aus oder kann mir weiterhelfen?

Mit freundlichen Grüßen

...zum Beitrag

Kennt ihr euch mit Lazarus aus?

Wir sollen ein komplexes Programm erstellen. Es geht um ein Würfelspiel, dass aus 3 Problemen besteht: 1. Festlegung des Startkapitals und 2. den Vorgang des Würfelns und 3 der Verabschiedung wo Gewinne verteilt werden.
In der 1. Runde sind die Zahlen der Augensumme aus 2 Würfeln 7 und 11 für Gewinne und 2,3,12 sind verloren und bei den anderen Augensummen ist das Spiel noch offen.
Weiß jmd wie man sowas mit Lazarus programmiert?

...zum Beitrag

Lazarus - wie kann man eine kleine EXE Datei erstellen?

Guten Tag,

ich habe eine kleines Programm zum Testen auf Lazarus geschrieben.
Meine Frage lautet nun: Wie kann ich erreichen, dass die kompilierte EXE-Datei möglichst klein ist? Die Datei ist zur Zeit circa 23 MB groß.
Es werden anscheinend in der EXE-Datei viele Informationen gespeichert die für das Ausführen des Programmes aber überhaupt nicht benötigt werden.

Das Programm ist so klein (vom Quelltext her), dass es eigentlich deutlich weniger als 1 MB groß sein sollte.

...zum Beitrag

Wie kann man mithilfe einer Schleife nur gerade Zahlen ausgeben in C?

Gib eine Zahl ein, das Programm soll dann gucken ob es eine gerade oder ungerade Zahl ist, dann sollen alle geraden Zahlen bis zur eingebenen Zahl ausgegeben werden.

z.B.
Eingabe: 8

Ausgabe: 2,4,6,8

oder

Eingabe: 11

Ausgabe: 2,4,6,8,10

...zum Beitrag

Wie programmiert man Zahlen in Wörter in Pascal?

Hallo,

ich muss ein Programm mit Pascal programmieren, indem Zahlen in Wörter ausgegeben werden müssen (z.B. 24 in vierundzwanzig)

Die Begrenzung liegt bei 999999.

Ich hab leider keinen Ansatz und brauche deswegen Hilfe.

...zum Beitrag

Delphi/Lazarus Berrechnungen etc. beim Start der Anwendung ausführen?

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen