Wiederholung
Einige
ausgewählte Sprachelemente aus Object-Pascal / Delphi:
Sprachelemente |
Erläuterung |
Beispiel |
Datentypen |
||
Real |
Typ der reellen Zahlen |
var a, b, c : Real; |
Integer |
Typ der ganzen Zahlen |
var x, i: Integer; |
String |
Typ einer Zeichenkette |
var s : String; |
Typumwandelnde Funktionen |
||
Trunc |
Wandelt Real-Werte in Integer-Werte um |
x := trunc(a); |
StrToFloat |
Wandelt eine Zeichenkette in eine reelle Zahl um |
a:=StrToFloat(edit1.text); |
FloatToStr |
Wandelt eine reelle Zahl in eine Zeichenkette um |
edit3.text:=FloatToStr(c); |
Arithmetische Funktionen |
||
Sqrt |
Quadratwurzel |
c := Sqrt(a); |
Ln |
Natürlicher Logarithmus (Basis e) |
c := ln(b); |
Sin |
Sinus |
c := sin(a); |
Cos |
Kosinus |
c := cos(a); |
Methoden |
||
Close |
Formularfenster schließen |
Form1.Close; |
Ermitteln
des Maximums von drei Zahlen
procedure TForm1.Button1Click(Sender:
TObject); {++++++Maximum
ermitteln++++++}
var a,b,c,max: integer;
begin
a:=StrToInt(edit1.Text);
b:=StrToInt(edit2.Text);
c:=StrToInt(edit3.Text);
IF a<b THEN
begin
IF b<c THEN max:=c;
F b>c THEN max:=b;
end;
IF a>b THEN
begin
IF a<c THEN max:=c;
IF a>c THEN max:=a;
end;
label5.Caption:='Das Maximum ist '+ IntToStr(max);
end;
procedure TForm1.Button2Click(Sender: TObject); {+++++Neu+++++}
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
label5.Caption:='';
end;