Code:
unit mVersuch1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
BtRechnen: TButton;
BtEnde: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Label1: TLabel;
BtPruefen: TButton;
BtRechnen2: TButton;
procedure FormCreate(Sender: TObject);
procedure BtEndeClick(Sender: TObject);
procedure BtRechnenClick(Sender: TObject);
procedure BtPruefenClick(Sender: TObject);
procedure BtRechnen2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
procedure TForm1.BtEndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.BtRechnenClick(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin
{1. Reihe Zufallszahlen zuweisen}
a1 := Random(10);
Edit1.Text := IntToStr(a1);
a2 := Random(10);
Edit2.Text := IntToStr(a2);
a3 := Random(10);
Edit3.Text := IntToStr(a3);
a4 := Random(10);
Edit4.Text := IntToStr(a4);
a5 := Random(10);
Edit5.Text := IntToStr(a5);
{2. Reihe errechnen}
Edit6.Text := IntToStr(a1+a2);
Edit7.Text := IntToStr(a2+a3);
Edit8.Text := IntToStr(a3+a4);
Edit9.Text := IntToStr(a4+a5);
{2. Reihe zuweisen}
a6 := StrToInt(Edit6.Text);
a7 := StrToInt(Edit7.Text);
a8 := StrToInt(Edit8.Text);
a9 := StrToInt(Edit9.Text);
{3. Reihe rechnen}
Edit10.Text := IntToStr(a6+a7);
Edit11.Text := IntToStr(a7+a8);
Edit12.Text := IntToStr(a8+a9);
{3. Reihe zuweisen}
a10 := StrToInt(Edit10.Text);
a11 := StrToInt(Edit11.Text);
a12 := StrToInt(Edit12.Text);
{4. Reihe rechnen}
Edit13.Text := IntToStr(a10+a11);
Edit14.Text := IntToStr(a11+a12);
{4. Reihe zuweisen}
a13 := StrToInt(Edit13.Text);
a14 := StrToInt(Edit14.Text);
{5. Reihe rechnen}
Edit15.Text := IntToStr(a13+a14);
{ 5.Reihe zuweisen (unnötig aber trotzdem gemacht^^) }
a15 := StrToInt(Edit15.Text);
end;
procedure TForm1.BtPruefenClick(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin
{Variablen den Editfeldern zuweisen}
a1 := StrToInt(Edit1.Text);
a2 := StrToInt(Edit2.Text);
a3 := StrToInt(Edit3.Text);
a4 := StrToInt(Edit4.Text);
a5 := StrToInt(Edit5.Text);
a6 := StrToInt(Edit6.Text);
a7 := StrToInt(Edit7.Text);
a8 := StrToInt(Edit8.Text);
a9 := StrToInt(Edit9.Text);
a10 := StrToInt(Edit10.Text);
a11 := StrToInt(Edit11.Text);
a12 := StrToInt(Edit12.Text);
a13 := StrToInt(Edit13.Text);
a14 := StrToInt(Edit14.Text);
a15 := StrToInt(Edit15.Text);
{Überprüfen der 2. Reihe}
if Edit6.Text = IntToStr(a1+a2)
then
begin
Edit6.color := clgreen;
end
else
Edit6.color := clred;
if Edit7.Text = IntToStr(a2+a3)
then
begin
Edit7.color := clgreen;
end
else
Edit7.color := clred;
if Edit8.Text = IntToStr(a3+a4)
then
begin
Edit8.color := clgreen;
end
else
Edit8.color := clred;
if Edit9.Text = IntToStr(a4+a5)
then
begin
Edit9.color := clgreen;
end
else
Edit9.color := clred;
{Überprüfen der 3.Reihe}
if Edit10.Text = IntToStr(a6+a7)
then
begin
Edit10.color := clgreen;
end
else
Edit10.color := clred;
if Edit11.Text = IntToStr(a7+a8)
then
begin
Edit11.color := clgreen;
end
else
Edit11.color := clred;
if Edit12.Text = IntToStr(a8+a9)
then
begin
Edit12.color := clgreen;
end
else
Edit12.color := clred;
{Überprüfen der 4. Reihe}
if Edit13.Text = IntToStr(a10+a11)
then
begin
Edit13.color := clgreen;
end
else
Edit13.color := clred;
if Edit14.Text = IntToStr(a11+a12)
then
begin
Edit14.color := clgreen;
end
else
Edit14.color := clred;
{Überprüfen der 5.Reihe}
if Edit15.Text = IntToStr(a13+a14)
then
begin
Edit15.color := clgreen;
end
else
Edit15.color := clred;
end;
procedure TForm1.BtRechnen2Click(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin
{1. Reihe Zufallszahlen zuweisen}
a1 := Random(10);
Edit1.Text := IntToStr(a1);
a2 := Random(10);
Edit2.Text := IntToStr(a2);
a3 := Random(10);
Edit3.Text := IntToStr(a3);
a4 := Random(10);
Edit4.Text := IntToStr(a4);
a5 := Random(10);
Edit5.Text := IntToStr(a5);
{In übrige Felder "0" eintragen}
Edit6.Text := '0';
Edit7.Text := '0';
Edit8.Text := '0';
Edit9.Text := '0';
Edit10.Text := '0';
Edit11.Text := '0';
Edit12.Text := '0';
Edit13.Text := '0';
Edit14.Text := '0';
Edit15.Text := '0';
end;
end.