Lineare Programmstruktur (=Sequenz)

Lineare Programmstruktur (=Sequenz)
Bei einer linearen Programmstruktur werden die Verarbeitungs befehle genau einmal und der Reihe nach abgearbeitet.
Sie bestehen meist aus einem Eingabeteil, einem Verarbeitungsteil
mit einer oder mehreren Formeln und einem Ausgabeteil.
Beispiel:
procedure TFoKreis.BtBerechneClick(Sender: TObject);
begin
r := StrToInt(EdRadius.Text); E
A := pi * sqr(r);
V
u := 2*pi*r;
LbA.Caption:=FloatToStr(u);
Lbu.Caption:=FloatToStr(A);
A
end;
Um den Algorithmus zur Lösung einer Aufgabe grafisch darzustellen
werden in der Informatik Struktogramme genutzt.
vgl.Tafelwerk S. 64
für lineare Programmteile:
Anweisung 1
Anweisung 2
.......
Anweisung n
In Delphi sind die eingegebenen Zahlen in eine Editkomponente
als Text zu verstehen. Sie müssen darum zur Verarbeitung
umgewandelt werden
Umwandlungsfunktionen (Auswahl):
StrToInt ........String in ganze Zahl
StrToFloat ....String in Dezimalzahl
FloatToStr......Dezimalzahl in String
FloatToStrF ...Dezimalzahl in formatierten String umwandeln
IntToStr ..........ganze Zahl in String
Beispiel: Berechnungen am Kreis
Problemstellung:
Es ist ein Programm zu erstellen welches,
die Fläche und den Umfang eines Kreises
nach der Eingabe vom Radius berechnet
und ausgibt!
Problemanalyse:
Eingabe :
Radius
Verarbeitung:
A = π · r²
u=2·π·r
Ausgabe: Kreisfläche
Kreisumfang
Überlegungen über zu vereinbarende Variablen und Konstanten:
hier z.B.:
Eingabe:
Variable radius Datentyp real
Verarbeitung/Ausgabe:
Variablen A und u Datentyp real
Kreisprogramm
Zusammenstellung der Programmoberfläche:
Komponenten und Ereignisse festlegen
Ereignisprotokoll:
Formular 1:
Objekt
Name
Eigenschaft
Formular1
FoKreis
Caption: Kreisberechnung
Anzeigefläche1
LbRadius
Caption: Radius:
Eingabefeld1
EdRadius
Text: 0
Anzeigefläche2
LbFlaeche
Caption: Fläche:
Anzeigefläche3
Anzeigefeld4
Anzeigefeld5
Schaltfläche1
Schaltfläche2
LbUmfang
LbA
Lbu
BtRechnen
BtEnde
Caption: Umfang
Caption: 0
Caption: 0
Caption: Berechne
Caption: Ende
Struktogramm für den Button BtRechnen:
r = Wert aus EdRadius
A = r² · π
u=2·π·r
Ausgabe: in LbA Wert A anzeigen
Ausgabe: in Lbu Wert u anzeigen
Das Struktogramm formuliert die Anweisungen nicht in DelphiSchreibweise!
Programmieren der Ereignisbehandlungsmethode:
- Doppelklicken auf Objekt leere Delphi- Routine
- Eingeben des Quellcodes unter Beachtung der
Syntax
Beispiel: Berechnung der Hypotenuse
Problemstellung:
Es ist ein Programm zu erstellen welches,
nach der Eingabe der beiden Katheten
eines rechtwinkligen Dreiecks die
Hypotenuse berechnet und ausgibt!
Problemanalyse:
Eingabe :
Katheten a und b
Verarbeitung:
c = √ a² + b²
Ausgabe:
Hypotenuse c
Überlegungen über zu vereinbarende Variablen und Konstanten:
hier z.B.:
Eingabe:
Variablen Kathetea, Katheteb Datentyp: integer
Verarbeitung/Ausgabe: Variable Hypo Datentyp real
Aufgaben:
1. Entwerfen Sie ein Formular und darauf basierend ein
Ereignisprotokoll für alle benötigten Komponenten!
Objekt
Name
Eigenschaft
2. Geben Sie das Struktogramm der Ereignisbehandlungsroutine an!
c := SQRT(a*a b*b);
oder weiter verbessert
c := SQRT(SQR(a) +SQR(b));
3. Erstellen Sie das Formular! (Speichern nicht vergessen!)
4. Programmieren Sie die den Quelltext! (Speichern!)
5. Testen, korrigieren und verbessern Sie das Projekt!

Download Report