[3of4]

Hab ein Programm, das irgendeine Cosinustabelle ausrechnen soll, nur leider keine Ahnung von Pascal und keine Zeit mich einzulesen (Schulstress, muss heut noch 40 Seiten schreiben).
Wenn also jemand die Fehler enddeckt, bitte ausbessern und sagen wo der Fehler gesteckt hatte (mein Bruder will auch wissen was falsch ist)

code:

unit Cosinustabelle;

interface

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

type
  TCosinus = class(TForm)
    Schrittweite: TLabel;
    Eingabefeld: TEdit;
    Berechnen: TButton;
    Beenden: TButton;
    Ausgabefeld: TMemo;
    procedure BerechnenClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Cosinus: TCosinus;




implementation

{$R *.dfm}



procedure TCosinus.BerechnenClick(Sender: TObject);

Const Pi= 3.1415926535898;

Var
 Schrittweite,grad:integer;
 i, aus:integer;
 gr, co, ausg:real;

Begin
  Ausgabefeld.clear;
  Schrittweite := StrToInt(Eingabefeld.Text);

 If Schrittweite > 90 Then
    ShowMessage ('Schrittweite zu groß');

 If Schrittweite <=0 Then
    ShowMessage ('Schrittweite zu klein');
 Try
    Schrittweite := StrToInt(Eingabefeld.Text);
 Except
    ShowMessage ('ungültige Eingabe');
 i:= 0;
 grad:= i+Schrittweite;
 While grad<=90 Do
   begin


    gr:= grad*(Pi/180);
    co:= cos(gr);

    str (grad :2, aus);
    str (co:2:4, ausg);

    Ausgabefeld.Lines.Add('cos('aus'):'ausg);

    grad:= grad+Schrittweite ;

   end;

end;

end;