03.10.2013 Aufrufe

Algorithmus Beispiel: Verschlüsseln eines Textes mit Grafik Beispiel ...

Algorithmus Beispiel: Verschlüsseln eines Textes mit Grafik Beispiel ...

Algorithmus Beispiel: Verschlüsseln eines Textes mit Grafik Beispiel ...

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

E:\Kerstin_Schule2013\Klasse9\DELPHI\Lehrbrief2013.docx LKG St. Annen<br />

Übung 5<br />

Erarbeiten Sie in DELPHI ein Programm zur Erstellung einfacher Rechenoperationen entsprechend<br />

dem nachstehenden Muster!<br />

Nach Eingabe der drei Zahlen, sollen auf Klick deren Mittelwert <strong>mit</strong> zwei Nachkommastellen und<br />

deren Produkt berechnet und ausgegeben werden.<br />

Schriftart: Arial<br />

Schriftgröße: 20<br />

rot, kursiv, unterstrichen<br />

Schriftart: Arial<br />

Schriftgröße: 20<br />

rot, kursiv, unterstrichen<br />

- Projekt speichern unter H\incoming\DELPHI\Übung4<br />

- Gestalten Sie das Formular zunächst entsprechend der<br />

Vorlage! (edit Objekte durchnummerieren)<br />

- Weisen Sie dem Button ein Ereigniss zu!<br />

- In der Prozedur berechnen Sie das Ergebnis und geben es in<br />

den edit- Feldern aus<br />

- Variablen, z.B. gp, mwst, ep sind entsprechend des<br />

Datentyps zu deklarieren:<br />

var Form1: TForm1;<br />

gp,mwst,endpreis:real;<br />

- StrToIFloat(edit1.text) wandelt die Eingabe des <strong>Textes</strong> in eine<br />

Dezimalzahl – FloatToStr umgekehrt<br />

- 8 -<br />

Zur Darstellung <strong>eines</strong> Wertes im Euro- Format nutzt<br />

man die Formatierung (Lehrbrief Seite 6) und die<br />

Funktion FloatToStrF(….), z.B.<br />

edit4.Text:=floattostrF(ra15,ffCurrency,10,2);<br />

Berechnen Sie zusätzlich über „OnKlick-Buttons“ die<br />

angegebenen Rabattbeträge!<br />

Speichern<br />

Notieren Sie Ihren Namen in das Programm<br />

Drucken Sie den Quelltext aus<br />

zahl.jpg

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!