1:
2:
3:
4:
5:
6:
7:
8:
9:

- Pozentzahlen der Noten in einer Array-Konstante speichern (Stichwort: Arrays, Konstanten)
- Gesamtpunktzahl und ereichte Punktzahl in einem Edit eingeben lassen. 
- beim Klick auf den Berechnen-Button:
  - Punkte aus den Edits in Variablen zischenspeichern (Stichwort: StrToInt bzw. TryStrToInt)
  - mit Hilfe der Variablen die Prozentzahl berechnen (erreichte Punkte / Gesamtpunkte * 100)
  - dann mit einer for-Schleife das Array durchsuchen (Stichwort: for-Schleife)
    - die berechnete Prozentzahl mit der im aktuellen Array-Element vergleichen (bei den kleinsten Prozenten bzw schlechtesten Noten anfangen)
      - wenn die berechnete ProzentZahl kleiner ist als die im Array: einfach weiter machen
      - wenn die berechnete ProzentZahl größer ist als die im Array: Index der for-Schleife ausgeben, das ist die Note					

1:
2:
3:
4:

- Punkte und maximale Punkte einlesen, konvertieren und in Variablen speichern
- Prozent berechnen, auf Integer runden (bis hier wie bei Bergmann)
- case-of nutzen, um Zuordnung zu machen
- Ausgabe des Ergebnisses					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Edit_ErgebnisChange(Sender: TObject);
begin
 firstNumber := StrToInt(Edit_Erste_Zahl.Text);
 secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

 if secondNumber = 0 then
   Edit_Ergebnis.Text := 'Division durch Null';

 if secondNumber <> 0 then
 begin
 resultNumber := firstNumber div secondNumber;
 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label_Erste_Zahl: TLabel;
    Label_Zweite_Zahl: TLabel;
    Edit_Erste_Zahl: TEdit;
    Edit_Zweite_Zahl: TEdit;
    Button_Addiern: TButton;
    Edit_Ergebnis: TEdit;
    Label_Ergebnis: TLabel;
    Button_Dividieren: TButton;
    procedure Button_AddiernClick(Sender: TObject);
    procedure Button_DividierenClick(Sender: TObject);
    procedure Edit_ErgebnisChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button_AddiernClick(Sender: TObject);
var
  firstNumber, secondNumber, resultNumber : Integer;
begin
  firstNumber := StrToInt(Edit_Erste_Zahl.Text);
  secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

 resultNumber := firstNumber + secondNumber;

 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
procedure TForm1.Button_DividierenClick(Sender: TObject);
var
  firstNumber, secondNumber, resultNumber : Integer;
begin
  firstNumber := StrToInt(Edit_Erste_Zahl.Text);
  secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

 resultNumber := firstNumber div secondNumber;

 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
procedure TForm1.Edit_ErgebnisChange(Sender: TObject);

 firstNumber := StrToInt(Edit_Erste_Zahl.Text);
 secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

 if secondNumber = 0 then
   Edit_Ergebnis.Text := 'Division durch Null';

 if secondNumber <> 0 then
 begin
 resultNumber := firstNumber div secondNumber;
 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label_Erste_Zahl: TLabel;
    Label_Zweite_Zahl: TLabel;
    Edit_Erste_Zahl: TEdit;
    Edit_Zweite_Zahl: TEdit;
    Button_Addiern: TButton;
    Edit_Ergebnis: TEdit;
    Label_Ergebnis: TLabel;
    Button_Dividieren: TButton;
    procedure Button_AddiernClick(Sender: TObject);
    procedure Button_DividierenClick(Sender: TObject);
    procedure Edit_ErgebnisChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button_AddiernClick(Sender: TObject);
var
  firstNumber, secondNumber, resultNumber : Integer;
begin
  firstNumber := StrToInt(Edit_Erste_Zahl.Text);
  secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

 resultNumber := firstNumber + secondNumber;

 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
procedure TForm1.Button_DividierenClick(Sender: TObject);
var
  firstNumber, secondNumber, resultNumber : Integer;
begin
  firstNumber := StrToInt(Edit_Erste_Zahl.Text);
  secondNumber := StrToInt(Edit_Zweite_Zahl.Text);

  if secondNumber = 0 then
   Edit_Ergebnis.Text := 'Division durch Null';

 if secondNumber <> 0 then

 resultNumber := firstNumber div secondNumber;

 Edit_Ergebnis.Text := IntToStr(resultNumber);
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label_Maximalpunktzahl: TLabel;
    Label_Schülerleistung: TLabel;
    Label1: TLabel;
    Edit_Maximalpunktzahl: TEdit;
    Edit_Schülerleistung: TEdit;
    Edit_Note: TEdit;
    Button_Ergebnis: TButton;
    procedure Button_ErgebnisClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button_ErgebnisClick(Sender: TObject);
var
  maxpunkte, schuelerpunkte, ergebnispunkte : Integer;
begin
 maxpunkte := StrToInt (Edit_Maximalpunktzahl.Text);
 schuelerpunkte := StrToInt (Edit_Schülerleistung.Text);

 ergebnispunkte := schuelerpunkte DIV maxpunkte * 100;

 Edit_Note.Text := IntToStr(ergebnispunkte);
end;

end.					

1:

Schuelerpunkte * 100 Div maxpunkte					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label_Maximalpunktzahl: TLabel;
    Label_Schülerleistung: TLabel;
    Label1: TLabel;
    Edit_Maximalpunktzahl: TEdit;
    Edit_Schülerleistung: TEdit;
    Edit_Note: TEdit;
    Button_Ergebnis: TButton;
    procedure Button_ErgebnisClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button_ErgebnisClick(Sender: TObject);
var
  maxpunkte, schuelerpunkte, ergebnispunkte : Integer;
begin
 maxpunkte := StrToInt (Edit_Maximalpunktzahl.Text);
 schuelerpunkte := StrToInt (Edit_Schülerleistung.Text);

   if ergebnispunkte >= 30 then
   Edit_Note.Text := '6'
   else
   if schuelerpunkte = 0 then
   Edit_Note.Text := '6';

 if schuelerpunkte <> 0 then

 ergebnispunkte := schuelerpunkte * 100 Div maxpunkte;

 Edit_Note.Text := IntToStr(ergebnispunkte);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label_Maximalpunktzahl: TLabel;
    Label_Schülerleistung: TLabel;
    Label1: TLabel;
    Edit_Maximalpunktzahl: TEdit;
    Edit_Schülerleistung: TEdit;
    Edit_Note: TEdit;
    Button_Ergebnis: TButton;

    procedure Button_ErgebnisClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button_ErgebnisClick(Sender: TObject);
var
  maxpunkte, schuelerpunkte, ergebnispunkte : Integer;
begin
 maxpunkte := StrToInt (Edit_Maximalpunktzahl.Text);
 schuelerpunkte := StrToInt (Edit_Schülerleistung.Text);

   if schuelerpunkte = 0 then
   Edit_Note.Text := 'Division durch Null';

 if schuelerpunkte <> 0 then

 ergebnispunkte := schuelerpunkte * 100 Div maxpunkte;

 Edit_Note.Text := IntToStr(ergebnispunkte);

 CASE ergebnispunkte OF
  1 : 93-100 := '1';
  2 : 82-92 := '2';
  3 : 68-81 := '3';
  4 : 51-67 := '4';
  5 : 31-50 := '5';
  6 : 0-30 := '6';
  ELSE WAS KOMMT HIER REIN := 'Diesen Notenwert gibt es nicht.';


end;

end.					

1:
2:
3:
4:
5:
6:

case ergebnispunkte of
  93..100: Edit_Note.Text:= '1';
  {etc...}
else
  Edit_Note.Text:= 'Das kann nicht sein.';
end;