Vollständige Version anzeigen : [Delphi] Anfängerübungen


DasOpfer
14.12.2006, 18:41

Übung 1:

So, ich habe hier erstmal eine leichte Aufgabe für alle, die sich ein wenig in Delphi einarbeiten wollen.

Also das Ziel ist nun erstmal ein bisschen mit Varaiblen umgehen zu können.
Dazu werden wir nun ein kleines Programm schreiben, bei dem Ihr folgende Variablentypen braucht:


* String
* Integer
* Real



Ihr ertsellt euch zunächst ein neues Projekt mit leerem Formular und setzt dort folgende Komponenten drauf:


* 4 Labels (TLabel)
* 4 Editfelder (TEdit)
* 1 Button (TButton)


Diese Platziert Ihr dann so, dass es sinnvoll aufgeteilt ist.
Mein Beispiel sieht so aus:

Bild=down!

Das Programm soll folgendermaßen funktionieren:
In das Erste Editfeld soll ein Name eingegeben werden.
In das Zweite und Dritte Editfeld sollen Gnzzahlige Werte eingegeben werden (z;B. 14)

Im 4;Editfeld wird nach einem Klick auf den Button das Ergebnis der Division (/) von der Ersten durch die Zweite Zahl ausgegeben werden.
Die Label werden alle beschriftet und im Label, welches zum 4. Editfeld gehört soll der Name dann stehen, der im ersten Editfeld eingeben wurde.

Also folgendermaßen:

Bild=down!

So das sind meine Tipps:

Die Zahlen sind vom Typ Integer (Ganzzahl).
Das Ergebnis ist vom Typ Real (Kommazahl).
Der Name ist vom Typ String (Zeichenkette / Wort)

Die Beschriftung des Labels erfolgt im Quelltext über:

[LabelName];Caption := StringVariable;
bzw;:
[LabelName];Caption := 'Beschriftung';

Einlesen von Ganzzahlen aus einem EditFeld funktioniert mit
StrToInt (String To Int ... also Wort Zu Zahl)

Die Ausgabe erfolgt mit Hilfe von
FloatToStr (Float To String ... also Fließkommazahl Zu Wort).



Die ;exe findet ihr HIER (;;;dakirsche-online~de/df/Aufg1/aufg1;exe)

Übung 2:

Ok..;nun zur Zweiten Aufgabe:

Beschreibung
Es soll ein Programm geschrieben werden, welches nach Eingabe einer Zahl den zugehörigen Wochentag ausgibt.
Es werden nur Zahlen von 1 bis 7 umgewandelt. Bei anderen Zahlen wird eine Meldung ausgegeben, dass es keinen Tag mit der entsprechenden Zahl gib.

Ziel der Übung
Ziel der Übung ist es, den Umgang mit einer IF-Schleife zu Üben.
Eine IF-Schleife ist eine Abfrage, die bei einem bestimmten Ereignis etwas bestimmtes ausführt.
Ein Beispiel:

procedure TForm1;Button1Click(Sender: TObject);
var Zahl1, Zahl2 : Integer;
begin
//Zuerst wird die Zahl1 aus dem Edit1 eingelesen
Zahl1 := StrToInt(Edit1;Text);
//Nun kommt die Abfrage
if (Zahl1 <3) then Zahl2 := 1
else if (Zahl1 =3 then Zahl2 := 2
else Zahl2 := 3;
end;

Hier wird folgendes Abgefragt:

Wenn Zahl1 kleiner als 3 ist, dann mache Zahl2 gleich 1.
Sonst, wenn Zahl1 gleich 3 ist, dann setze Zahl2 auf 2.
Triff von diesen Optionen keines zu, dann setze Zahl2 auf
3.


Eine IF-Schleife besteht immer aus folgender Struktur:

if (Bedingung1) then Aktion1
else if (Bedingung2) then Aktion2
else Aktion3



Ich kann beliebig viele else if Abfragen reinbringen. Wichtig ist nur, dass die Erste nur eine if-Abfrage ist und es nur maximal eine else-Abfrage am Ende gibt.

Aufgabenstellung
Programmiert ein einfaches Programm mit einer If-Abfrage.
Dazu benötigt Ihr ein leeres Formular mit folgenden Komponenten:


* 2 Labels (TLabel)
* 2 Editfelder (TEdit)
* 1 Button (TButton)


Diese solltet ihr wieder einigermaßen sinnvoll verteilen.
Mein Beispiel sieht so aus:

Bild=down!

Wenn der Button geklickt wird soll folgendes ablaufen:


* Die Zahl wird aus dem Editfeld in eine Integervariable eingelesen
* Duch eine Verkettung von if-Abfragen wird dann geprüft, welcher Tag es ist und dieser dann in eine Stringvariable geschrieben
* Die Stringvariable wird zum Schluss im zweiten Editfeld ausgegeben.



Hinweis:
Wer das ganz schnell hinbekommen hat kann dies auch noch andersrum versuchen.
Also einen weiteren Button hinzufügen und wenn jemand dann z;B. 'Montag' in das Editfeld eingibt soll als Ergebnis die '1' ausgegeben werden

Benötigte Variablen


* 1 Variable vom Typ I***** (Ganzzahl)
* 1 Variable vom Typ String (Zeichenkette / Wort)



Screenshots der Funktionen:

Bild=down!
;;0;xup~in/exec/ximg;php?fid=19570502 (;;0;xup~in/exec/ximg;php?fid=16690865/)

Das Programm zum Funktionstest:
Download Aufgabe2;exe (;;;dakirsche-online~de/df/Aufg2/Aufgabe2;exe)


Viel Spass beim Üben!

Hardware Preisvergleich | Amazon Blitzangebote!

Videos zum Thema
Video Loading...
Ähnliche Themen zu [Delphi] Anfängerübungen
  • [Delphi] Abiturklausur Info GK Delphi 2007
    Guten Tag! Wir verzweifeln derzeit in Info an der Abiturklausur für den Grundkurs des vergangenen Jahres in Delphi! Ich würd mich freuen, wenn jemand die Lösung im Internet finden würde ( Ich habe schon gesucht - vergebens :x) oder diese Klausur selbst bewältigen musste und mir somit eini [...]

  • [Delphi] Statement zu Delphi 2007 Win32
    Hi, hier könnt ihr, falls ihr Druck ablassen wollt, oder ähnliches euer Statement zu Delphi 2007 ablassen... was ihr von der Entwicklungsoberfläche oder Sostigem haltet... :cool: Dazu kann ich nur sagen: "Einfach klasse!!!" [...]

  • [Delphi] Quicksort - BetaTester (kein Delphi installed)
    Jo, schönen guten Abend ^^ Also ich soll grad für nen Kumpel mit delphi Quicksort proggen. Da ich aber nur C++ proggen kann, hab ich mir das ganze nach bestem Wissen einiger Foren (^^) zamgesucht. -;- So, ich als totaler Delphi-Synthax noob, brauche nun mal bitte jemanden, der Delphi installed h [...]

  • [Delphi] Delphi 2005 nach Delphi 7?
    Hey hab folgendes problem, ich hab mir das Delphi 2005 Personal geholt und das Problem ist jetzt wir programmieren im info unterricht mit Delphi 7 und wenn ich jetzt aufgaben zuhause mache kann man diese dann auch mit Delphi 7 inner schule öffnen? Danke schon mal im vorraus!!! spakn [...]



raid-rush.ws | Imprint & Contact pr