|
Deklaration einer Ganzzahlvariablen:r />
var count:integer;
Deklaration einer Stringvariablen ohne Längenangabe:
var name:string;
Deklaration einer Stringvariablen der Länge c:
var name:string [10];
Deklaration eines Wahrheitswertes:
var wahr:boolean;
Bedingte Entscheidung mit einer Anweisung
if x= ,yes' then gewinn : = 1000;
Bedingte Entscheidung mit mehreren Anweisungen:
if x= ,yes' then
begin
gewinn : = 1000;
reiseziel : = 'Cuba';
.
end;
Bedingte Entscheidung mit mehreren Anweisungen Und mehreren Bedingungen:
if ( x = ,Frankreich')
and /or ( y = ,Chiraque')
and/or ( z = ,Paris')
then
begin
gewinn : = 10000;
reiseziel : = 'Cuba';
...
end;
Alternative Entscheidung mit zwei Anweisungen:
if x = ,Frankreich' then gewinnt : = 1000
else gewinn : = -100;
Alternative Entscheidung mit mehreren Anweisungen:
if x = ,Frankreich' then
begin
gewinn : = 1000;
reiseziel : ='Cuba';
end // kein Semikolon
else
begin
gewinn : = -100;
reiseziel : = ,Schwienkuhl'
...
end;
Zuweisung einer Zeichenkette:
x : = ,Frankreich'; // ergibt ,Frankreich'
tel : = ,028225014'
Zusammensetzung von Zeichenketten:
x : = ,Frank' + ,reich'; // ergibt ,Frankreich'
Zuweisung einer Ganzzahl:
i : = 17 ;
Erhöhung einer Ganzzahl um 1:
i : = i + 1;
Erniedrigung eine Ganzzahl um 1:
i : = i - 1;
Grundrechenarten für Ganzzahlen:
x : = i + j;
x : = i - j;
x : = i * j;
x : = i div j;
x : = i mod j;
Zufallszahlen neu erzeugen:
randomize;
Zufallszahlen 0.99
random (100);
Ausgabe einer Zeichenkette in einem Editfeld:
form1.edit1.text := ,Hallo';
Einlesen einer Zeichenkette aus einem Editfeld:
wort := form1.edit1.text;
Ausgabe einer Ganzzahl in einem Editfeld:
form1.edit1.text := inttostr (17);
inttostr = integer_to_string
Einlesen einer Ganzzahl aus einem Editfeld:
x := strtoint (form1.edit1.text);
strtoint = string_to_integer
|
