| Auswertung |
| Allgemein |
| Name: |
Jubiläumsgewinnspiel - Jubiläumsgewinnspiel |
| Beginn: |
07:03:2005 um 00:00 Uhr |
| Ende: |
12:03:2005 um 12:00 Uhr |
| Ausgewertet: |
12:03:2005 um 13:35 Uhr |
| Preise und Gewinner |
| 1. Platz: |
Delphi 2005 Professional (Vollversion, deutsch) hat toms gewonnen. |
| 2. Platz: |
Delphi 2005 Professional (Vollversion, deutsch) hat maximus gewonnen. |
| 3. Platz: |
Delphi 2005 Professional (Vollversion, deutsch) hat Hein Blöd gewonnen. |
| Fragen und Antworten |
|
Die grün dargestellten Antworten sind die richtigen Antworten.
|
| 1. Frage: |
Frage:
Über welche Domain war das Delphi-Forum.de vor einiger Zeit zu erreichen?
Antworten:
|
| 2. Frage: |
Frage:
Wie könnte man diese Funktion sinnvoll benennen?
  Delphi-Quelltext
1:
2:
3:
4:
| function Mysterium(X : tDateTime) : Boolean;
begin
result := Frac(X) < ((2/4) * sqr(Trunc(pi) - 2));
end; |
Antworten:
- Ist_Nachmittag
- Ist_Vormittag
- Ist_Vollmond
- Ist_Halbmond
- Ist_Heilig_Abend
- Ist_Dritte_Wurzel
|
| 3. Frage: |
Frage:
Welche(r) der unten aufgeführten Typen kommt für die globale Variable Datei, welche in unten stehender Procedure verwendet wird, in Frage?
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure SpeichereZahl(Zahl : Integer);
begin
Datei.WriteInteger('Zahl', 'Zahl', Zahl);
Datei.UpdateFile;
end; |
Antworten:
- File
- File of Integer
- Textfile
- TRegistry
- tIniFile
- TMemIniFile
- tFileStream
|
| 4. Frage: |
Frage:
Unter welchem Code Namen wurde die Delphi 8 IDE vorgestellt?
Antworten:
- Stoertebecker
- Marco Polo
- Columbus
- Galileo
- Armstrong
- Rambo
Die Antwort zu dieser Frage ist auch im Internet nachzulesen.
|
| 5. Frage: |
Frage:
In welchem Land liegt die Stadt Delphi?
Antworten:
- Schweiz
- Iran
- Indien
- Italien
- Pakistan
- Griechenland
Die Antwort zu dieser Frage ist auch im Internet nachzulesen.
|
| 6. Frage: |
Frage:
Welche dieser Proceduren enthalten eine Endlosschleife?
Schleife 1
1:
2:
3:
4:
5:
6:
7:
| procedure Schleife1;
begin
while true do begin
if true = not true then
Break;
end;
end; |
Schleife 2
1:
2:
3:
4:
5:
6:
7:
| procedure Schleife2;
begin
while false do begin
if false = not false then
Break;
end;
end; |
Schleife 3
1:
2:
3:
4:
5:
6:
7:
| procedure Schleife3;
begin
repeat
if true = not true then
Break;
until true;
end; |
Schleife 4
1:
2:
3:
4:
5:
6:
7:
| procedure Schleife4;
begin
repeat
if false = not false then
Break;
until false;
end; |
Schleife 5
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure Schleife5;
var
i : integer;
begin
for i := 1 to 1000000 do begin
if i = Pi then
Break;
end;
end; |
Schleife 6
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure Schleife6;
var
i : integer;
begin
for i := 1 to 1000000 do begin
if i = 0815 then
Dec(LongInt(Addr(i)^));
end;
end; |
Antworten:
- Schleife 1
- Schleife 2
- Schleife 3
- Schleife 4
- Schleife 5
- Schleife 6
|
