Einführung in das Programmieren mit DELPHI  

3. Verzweigungen

Die Berechnung der Dreiecksfläche nach Heron (Aufgabe 2 in Kapitel 2) ist nicht möglich, wenn die eingegebenen Seiten kein Dreieck bilden.
In diesem Fall wollen wir, dass das Programm an eine andere Stelle im Programm verzweigt und einen entsprechenden Text ausgibt.

Ein Block kann eine einzelne Anweisung sein oder mehrere Anweisungen,
die mit BEGIN und END zu einer Anweisung verbunden wurden.

Die Dreiecksfläche bestimmt man nach der Formel         wobei s der halbe Umfang ist.

Dabei wird zunächst der Term unter der Wurzel berechnet und entschieden ob sein Wert größer gleich Null ist,
oder kleiner als Null, d.h. ob es eine Lösung gibt oder keine.

User Interface (UI):

Programmcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,s: real;
begin
     a := StrToFloat(Edit1.Text);
     b := StrToFloat(Edit2.Text);
     c := StrToFloat(Edit3.Text);
     s := (a+b+c)/2;
     d := s*(s-a)*(s-b)*(s-c);
     if d>=0 then
        Edit4.Text := FloatToStr( sqrt(d) )
     else
        Edit4.Text := 'Kein Dreieck';
end;

Aufgaben :

  1. Eine quadratische Gleichung der Form   x2 + px + q = 0   hat die Lösungen  
    Dabei gibt es keine Lösung, wenn die Diskriminante (Term unter der Wurzel) negativ ist und nur eine Lösung, wenn sie Null ist.

  2. Aus drei Seiten kann man nur ein Dreieck bilden, wenn jede Seite kleiner ist als die Summe der beiden anderen Seiten.
    Ein Programm soll prüfen, ob  a, b und c  ein Dreieck bilden.

  3. Für Briefsendungen im Inland gelten folgende Tarife:

    Standardbrief                                      0,55 EUR
    Höchstmaße      L × B × H = 235 × 125 ×  5 mm
    Mindestmaße     L × B       = 140 × 90 mm
    Gewicht bis 20 g

    Kompaktbrief                                      0,90 EUR
    Höchstmaße      L × B × H = 235 × 125 × 10 mm
    Mindestmaße     L × B       = 100 × 70 mm
    Gewicht bis 50 g

    Großbrief                                            1,45 EUR
    Höchstmaße      L × B × H = 353 × 250 × 20 mm
    Mindestmaße     L × B       = 100 × 70 mm
    Gewicht bis 500 g

    Maxibrief                                            2,20 EUR
    Höchstmaße      L × B × H = 353 × 250 × 50 mm
    Mindestmaße     L × B       = 100 × 70 mm
    Gewicht bis 1000 g

    Schreiben Sie ein Programm, das aus L, B, H und dem Gewicht das Porto berechnet.

» Lösungen

© 2008 : Bernd Schultheiss