Klausur-Fragen

[hotkey]

Hallo , ich schreibe morgen eine Informatik-LK-Klausur und habe nun ein paar Fragen:

Was sind Parameter , wo ist der Unterschied zwischen Parameter und Variable , haben Parameter einen Vorteil?

Warum ist es nicht gut , Variablen global zu deklarieren ?

Eine Funktion liefert einen Wert zurück , eine Prozedur nicht , mein Lehrer : eine Prozedur auch => verunsichert.

Record : Eine Zusammenfassung von verschiedenen Datentypen zu einem komplexen ? Richtig ?


Wäre echt nett , wenn die Fragen beantwortet werden , ist super wichtig !

[RWarnecke]

Unter diesem Link findest Du viele Antworten auf Deine Fragen.

[schlagzu]

Hallo,

Parameter übergibst du einer Prozedur/Funktion, eine Variable deklarierst du:

procedure <Name>(<Parameter>);
<Variablen- und Konstanten>
begin
<Anweisungen>
end;

function <Name>(<Parameter>): <Rückgabetyp>;
<Variablen- und Konstanten>
begin
<Anweisungen>
end;

Warum ist es nicht gut , Variablen global zu deklarieren ?

Keine Ahnung! Vllt der Übersicht halber, oder zum Schutz, dass sie nicht zufällig überschrieben wird, wenn eine andere Prozedur drauf zugreift?

Eine Funktion liefert einen Wert zurück , eine Prozedur nicht , mein Lehrer : eine Prozedur auch => verunsichert.

Noch nie davon gehört.


Record : Eine Zusammenfassung von verschiedenen Datentypen zu einem komplexen ? Richtig ?

Was sind Records?

Records ermöglichen es, mehrere Variablen zu gruppieren. Dies ist beispielsweise dann hilfreich, wenn oft die gleiche Menge an Variablen benötigt wird, oder eine Menge Variablen logisch zusammengefasst werden soll. Eine weitere Situation in der Records unverzichtbar sind ist, wenn im Programm mehrere Datensätze gespeichert und verwaltet werden sollen, beispielsweise in einem Adressbuch
(Quelle: http://de.wikibooks.org/wiki/Program...ascal:_Records) Besser kann man es nicht sagen.

MfG schlagzu

[Sir Rufo]

Parameter:

Delphi-Quellcode:

procedure Foo( IchBinEinParameter : string );
var
  IchBinEineVariable : string;
begin
  // irgendwas
end;

Globale Variable:
Da besteht die Gefahr, dass man sich eben diese gegenseitig überschreibt:

Delphi-Quellcode:

var
  IchBinGlobal : integer;

procedure Foo1;
begin
  WriteLn( IntToStr( IchBinGlobal ) );
end;

procedure Foo2:
begin
  for IchBinGlobal := 1 to 10 do
    Foo1;
end;

procedure Foo3;
begin
  for IchBinGlobal := 1 to 10 do
    Foo2;
end;

besser also so (ganz ohne Globale Variable)

Delphi-Quellcode:

procedure Foo1( Value : integer );
begin
  WriteLn( IntToStr( Value ) );
end;

procedure Foo2:
var
  IchBinLokal : integer;
begin
  for IchBinLokal := 1 to 10 do
    Foo1( IchBinLokal );
end;

procedure Foo3;
var
  IchBinLokal : integer;
begin
  for IchBinLokal := 1 to 10 do
    Foo2;
end;

Procedure/Function Wert zurückliefern

Delphi-Quellcode:

function FooFunc : integer;
begin
  Result := 10;
end;

procedure FooProc( var Value : integer );
begin
  Value := 10;
end;

var
  FooValue : integer;
begin
  FooValue := 0;
  FooValue := FooFunc;
  WriteLn( IntToStr( FooValue ) );  // Ausgabe: 10

  FooValue := 0;
  FooProc( FooValue );
  WriteLn( IntToStr( FooValue ) ); // Ausgabe 10
end.

Record: da hast du ja im Prinzip schon die richtige Definition gegeben

[hotkey]

Alles klar vielen Dank für die Antworten !

[Namenloser]

Zitat von Sir Rufo:

Globale Variable:
Da besteht die Gefahr, dass man sich eben diese gegenseitig überschreibt:

Delphi-Quellcode:

var
  IchBinGlobal : integer;

procedure Foo1;
begin
  WriteLn( IntToStr( IchBinGlobal ) );
end;

procedure Foo2:
begin
  for IchBinGlobal := 1 to 10 do
    Foo1;
end;

procedure Foo3;
begin
  for IchBinGlobal := 1 to 10 do
    Foo2;
end;

For-Schleifen mit globalen Variablen erlaubt der Compiler übrigens gar nicht erst (außer im Rumpf eines Konsolenprogramms).

[DeddyH]

Mein Compiler erlaubt das, gibt aber eine Warnung aus.

[Romiox]

Zitat von hotkey:

Eine Funktion liefert einen Wert zurück , eine Prozedur nicht , mein Lehrer : eine Prozedur auch => verunsichert.

Die Antwort von Sir Rufo war ja schon recht umfassend,
nur so viel noch dazu:

Funktionen haben einen Rückgabewert, ja.

Prozeduren haben keinen Rückgabewert, nein.
Prozeduren können aber übergebene Variablen verändern (Funktionen eigentlich auch *scratch* - nicht so wichtig),
sofern diese im Kopf als var-Parameter deklariert sind (procedure FooProc( var Value : integer ); ).
Wenn nicht würde diese Prozedur zwar abgearbeitet, die übergebene Variable aber nicht verändert.

Viel Erfolg

[Namenloser]

Zitat von DeddyH:

Mein Compiler erlaubt das, gibt aber eine Warnung aus.

Hmm interessant, in diesem Fall scheint es tatsächlich zu funktionieren. Aber bei verschachtelten Funktionen geht es nicht:

Delphi-Quellcode:

procedure Test;
  var Bar: integer;
  procedure Foo;
  begin
    for Bar := 0 to 3 - 1 do
      showmessage(inttostr(Bar));
  end;
begin
  Foo;
end;

Zitat:

[Pascal Fehler] Unit1.pas(31): E1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein

[p80286]

Zitat von hotkey:

Eine Funktion liefert einen Wert zurück , eine Prozedur nicht , mein Lehrer : eine Prozedur auch => verunsichert.

Es gibt die Möglichkeit, daß eine Pocedure einen Wert zurück gibt, und zwar dann wenn ein oder mehrere Parameter als var übergeben werden.
z.B.
procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); Gruß
K-H