Delphi Wertetabelle mit Funktion X²=y

AmK=GfdP

Lieutenant
Registriert
Apr. 2007
Beiträge
901
Moin Leute,

bin grad im Informatikunterricht...^^ Wir sollen dort eine Wertetabelle mit Delpi erstellen (StringGrid), die wenn man beim Drücken des "Berechnen" Buttons einem die Funktionswerte von X= -5;-4,5;-4....4;4,5;5 ausspuckt.

Bin noch bis 12:40@ school

Hier mal en Screen der Programmoberfläche...

delphi.JPG
Vielen Danke :daumen:

Außerdem soll es eine "Schleifenfunktion" sein :daumen: :kotz:
cYa AmK
 
Zuletzt bearbeitet:
Alles klar hab die Lösung, aber danke ;)

Code:
unit Wertetabelle;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
    y,x : Real;
begin
 x := -5 ;
 for i := 1 to 21 do
   begin
     StringGrid1.Cells[0,i]:= FloatToStr(x) ;
     x := StrToFloat(StringGrid1.Cells[0,i]);
     y := x * x ;
     StringGrid1.Cells[1,i]:=FloatToStr(y);
     x := x + 0.5 ;
   end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   with StringGrid1 do
     begin
       Cells[0,0] := 'x' ;
       Cells[1,0] := 'y' ;
     end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

end.

LG AmK
 
Ich glaub Hausaufgaben / Schulaufgaben komplett machen wird dir hier niemand. Du solltest bei sowas zumindest mal einen eigenen Lösungsansatz posten. Wenn du dann an einer Stell konkret eine Frage hast oder nicht weiter kommst, wird dir sicherlich gerne geholfen.
Nur so für's nächste mal, da du die Lösung ja scheinbar schon hast :)
 
Ja schon klar... das sollten wir in der Stunde machen und vll hatte je jemand noch sowas zu hause zufällig...

Aber dankeschön :daumen:

mfG AmK
 
Zurück
Oben