main>Peterdauscher |
main>Peterdauscher |
| Zeile 1: |
Zeile 1: |
| {{Lazarus-Buch}}
| | '''Lazarus''' ist eine Open-Source-Programmierumgebung, die auf der Programmiersprache [[Pascal]] (genau: [[FreePascal]]) basiert. Sie erinnert in weiten Teilen ausgesprochen stark an Borland [[Delphi]] (ähnliche Komponenten), ist jedoch frei verfügbar und damit besonders für Schulen interessant. |
|
| |
|
| == Felder (Arrays) als "Vielfachspeicher" von Zahlen ==
| | Vorteile: |
| Bisher haben wir nur Variablen kennen gelernt, die aus einer einzigen Zahl (ganz oder reell) oder einem Wahrheitswert (wahr/falsch) bestanden haben. Für viele Dinge reicht das auch, allerdings gibt es auch Probleme, zu deren Lösung viele Variablen benötigt werden. Statt nun jeder einzelnen davon einen Namen zu geben kann man auch viele Variablen unter einem Namen zusammenfassen und sie durchnummerieren.
| | * Lazarus ist Open-Source-Software, die Lizenzprobleme mancher kommerzieller Produkte vermeidet. |
| | * Einfache Entwicklung ansprechender graphischer Oberflächen ist möglich. |
| | * Pascal als didaktisch geeignete Sprache dient als Grundlage. |
| | * Viele Beispiele, die in Borland-Delphi funktionieren, funktionieren analog auch in Lazarus. |
|
| |
|
| Denkt man an unser Beispiel mit dem Schubladenschrank wäre das also eine Schublade mit einem Namensetikett darauf. In der Schublade jedoch gäbe es jetzt viele kleine Unterfächer, die mit Nummern versehen sind. Eine solche Variable wird in der Informatik auch als '''Feld''' oder englisch als <tt>Array</tt> bezeichnet.
| |
|
| |
|
| === Deklaration von Array-Variablen === | | ==Weblinks== |
|
| |
|
| Um eine solche Variable zu deklarieren, muss man in der Deklaration sagen, wie viele "Unterfächer" unsere "Schublade" tatsächlich hat, bzw., welche Nummern überhaupt vergeben werden. So besagt die Deklaration
| | * http://www.lazarus.freepascal.org/ |
| <source lang="pascal">
| | * http://www.lazarusforum.de/ |
| var zahlen : array[1..10] of integer;
| |
| </source>
| |
| dass in der Schublade <tt>zahlen</tt> zehn einzelne Zahlen gespeichert werden können, die von 1 bis 10 durchnummeriert sind.
| |
|
| |
|
| Angenommen, man möchte nun die Zahl mit der Nummer 7 auf den Wert 42 setzen, so erreicht man das mit der folgenden Zeile:
| |
| <source lang="pascal">
| |
| zahlen[7]:=42;
| |
| </source>
| |
|
| |
|
| Man beachte, dass die Klammern hinter dem Namen des Arrays tatsächlich eckige Klammern sein müssen.
| |
|
| |
|
| === Beispiel === | | ===Unterrichtsbeispiele=== |
| Wir betrachten ein einfaches Beispiel aus der Schulwelt: Lehrer Lempel hat gerade seine Klassenarbeit korrigiert und möchte einen Notenspiegel erstellen. Dafür schreibt er sich ein Lazarus-Programm mit einem Edit-Feld <tt>edit1</tt> (zum Eingeben einer Zensur zwischen 1 und 6) und einem Knopf <tt>button2</tt>, um die Zahl in die Statistik aufzunehmen.
| |
| Der Notenspiegel wird dann immer im Memo-Feld <tt>memo1</tt> ausgegeben. Vor dem Aufnehmen der Statistik jedoch, müssen alle Anzahlen der Noten natürlich auf Null gesetzt werden. Das geschieht mit dem Drücken von <tt>button1</tt>. Erst dann darf man mit der Eingabe beginnen.
| |
|
| |
|
| {{kasten_blau|<source line highlight="27-29,37-54" lang="pascal">
| | == Siehe auch == |
| unit lazio_testumgebung;
| | * [[Programmiersprachen]] |
| {$mode objfpc}{$H+}
| |
| interface
| |
|
| |
|
| uses
| |
| Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
| |
| ExtCtrls,LazIOStuff;
| |
|
| |
|
| type
| | [[Kategorie:Informatik]] |
| { TForm1 }
| | [[Kategorie:Software]] |
| | | [[Kategorie:Programmiersprache]] |
| TForm1 = class(TForm)
| |
| Button1: TButton;
| |
| Button2: TButton;
| |
| Edit1: TEdit;
| |
| Memo1: TMemo;
| |
| procedure Button1Click(Sender: TObject);
| |
| procedure Button2Click(Sender: TObject);
| |
| private
| |
| { private declarations }
| |
| public
| |
| { public declarations }
| |
| end;
| |
| | |
| var
| |
| Form1: TForm1;
| |
| i : integer;
| |
| note : integer;
| |
| anzahl : array[1..6] of integer;
| |
| | |
| | |
| implementation
| |
| | |
| {$R *.lfm}
| |
| { TForm1 }
| |
| | |
| procedure TForm1.Button1Click(Sender: TObject);
| |
| begin
| |
| for i:=1 to 6
| |
| do anzahl[i]:=0;
| |
| end;
| |
| | |
| procedure TForm1.Button2Click(Sender: TObject);
| |
| begin
| |
| ReadFrom(Edit1,note);
| |
| anzahl[note]:=anzahl[note]+1;
| |
| Clear(Memo1);
| |
| for i:=1 to 6
| |
| do begin
| |
| WriteTo(Memo1,i);
| |
| WriteTo(Memo1,': ');
| |
| WriteLnTo(Memo1,anzahl[i]);
| |
| end;
| |
| end;
| |
| | |
| | |
| end.
| |
| </source>}}
| |
| | |
| | |
| Betrachten wir zunächst, was passiert, wenn man auf den <tt>button1</tt> klickt. Dann wird eine Schleife durchlaufen, die die Variable <tt>i</tt> von 1 bis 6 nach oben zählt. In jedem Schleifendurchlauf wird eine der Untervariablen des Feldes <tt>anzahl</tt> auf den Wert 0 gesetzt, zunächst <tt>anzahl[1]</tt>, dann <tt>anzahl[2]</tt> usw. bis <tt>anzahl[6]</tt>.
| |
| | |
| Wird <tt>button2</tt> angeklickt, so wird zunächst die Integer-Variable <tt>note</tt> von <tt>edit1</tt> eingelesen. Jetzt muss die entsprechende Anzahl in der Statistik um 1 erhöht werden: Das geschieht in der Zeile <tt>anzahl[note]:=anzahl[note]+1;</tt>. Alle Befehle danach sorgen nur dafür, dass das <tt>memo1</tt>-Feld gereinigt und die Statistik in dieses Feld ausgegeben wird.
| |
| | |
| == Felder (Arrays) als "Vielfachspeicher" von Zeichenketten ==
| |
| | |
| In Feldern (Arrays) können jedoch nicht nur Zahlen, sondern auch Zeichenketten abgelegt werden. Das folgende Programm stellt einen Teil eines Rechentrainers dar, der bei richtiger Antwort den Benutzer lobt. Natürlich ist es viel netter, nicht immer das gleiche Lob zu erhalten, sondern ein bisschen Abwechslung zu haben:
| |
| | |
| | |
| | |
| {{kasten_blau|<source line highlight="26,36-40,42" lang="pascal">
| |
| unit lazio_testumgebung;
| |
| {$mode objfpc}{$H+}
| |
| interface
| |
| | |
| uses
| |
| Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
| |
| ExtCtrls,LazIOStuff;
| |
| | |
| type
| |
| { TForm1 }
| |
| | |
| TForm1 = class(TForm)
| |
| Button1: TButton;
| |
| Button2: TButton;
| |
| Edit1: TEdit;
| |
| Memo1: TMemo;
| |
| procedure Button1Click(Sender: TObject);
| |
| private
| |
| { private declarations }
| |
| public
| |
| { public declarations }
| |
| end;
| |
| | |
| var
| |
| Form1: TForm1;
| |
| aussage : array[1..5] of string;
| |
| nummer : integer;
| |
| | |
| implementation
| |
| | |
| {$R *.lfm}
| |
| { TForm1 }
| |
| | |
| procedure TForm1.Button1Click(Sender: TObject);
| |
| begin
| |
| aussage[1]:='Richtig!';
| |
| aussage[2]:='Super!';
| |
| aussage[3]:='Genau!';
| |
| aussage[4]:='Prima!';
| |
| aussage[5]:='Genial';
| |
| nummer:=random(5)+1;
| |
| Edit1.Text:=aussage[nummer];
| |
| end;
| |
| | |
| | |
| end.
| |
| </source>}}
| |
| | |
| | |
| == Aufgaben ==
| |
| #Schreibe ein Programm, das das Würfeln mit zwei Würfeln von 1-6 simuliert. Das Programm soll eine Statistik über die Augensumme solcher Doppelwürfe anfertigen. Klarerweise gibt es Ergebnisse von 2-12. Von der Zahl 7 kann man erwarten, dass sie häufiger die Augensumme darstellt als z.B. die 2. Denn viele Kombinationen (1,6); (2,5); ... (6,1) führen zur 7, während nur (1,1) zur 2 führt.
| |
| #Erweitere das Programm, dass es die Daten nicht nur als Zahlen sondern als Graphik in einem Bild auf der Oberfläche ausgibt.
| |
| #Simuliere einen MP3-Player. In diesem sollen die Titel von 10 Stücken gespeichert sein. Er soll auf Knopfdruck zufällig einen der Titel ausgeben.
| |
| #Schreibe ein Programm, das auf Druck von <tt>Button1</tt> zunächst ein Array[1..10] mit Zufallszahlen zwischen 0 und 99 füllt und in eine Memo-Komponente ausgibt. Dann soll es die größte und die kleinste der Zahlen im Array nochmals extra darunter schreiben.
| |
