Menu schließen

Informatik - Hilfe bei Quellcode (Delphi)

Frage: Informatik - Hilfe bei Quellcode (Delphi)
(8 Antworten)

 
Ich soll ein Programm schreiben, indem man quadratische Funktionen, undundund ausrechnen kann ... ich komm aber damit nicht klar, und hab bisher auch nur Buttons gemacht wo man draufklickt und dann eine Funktion erscheint.

Kann mir da BITTE jemand helfen? Wäre echt dankbar.
Danke :)

Das hab ich bisher:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bevel1: TBevel;
Button4: TButton;
Button5: TButton;
Edit1: TEdit;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var x ,y :real;

begin
with canvas do begin
brush.color:=clbtnface;
pen.color:=clblack;
end;
// x-Achse:
canvas.MoveTo(150,200);
canvas.lineto(450,200);
canvas.lineto(440,205);
canvas.MoveTo(450,200);
canvas.lineto(440,195);
canvas.textout(450,205,`x`);
canvas.TextOut(305,205,`1`);
canvas.TextOut(320,205,`2`);
canvas.TextOut(335,205,`3`);
canvas.TextOut(350,205,`4`);
canvas.TextOut(365,205,`5`);
canvas.TextOut(380,205,`6`);
canvas.TextOut(395,205,`7`);
canvas.TextOut(410,205,`8`);
canvas.TextOut(425,205,`9`);
canvas.TextOut(270,205,`-2`);
canvas.TextOut(255,205,`-3`);
canvas.TextOut(240,205,`-4`);
canvas.TextOut(225,205,`-5`);
canvas.TextOut(210,205,`-6`);
canvas.TextOut(195,205,`-7`);
canvas.TextOut(180,205,`-8`);

x:=-5;
// y- Achse
canvas.MoveTo(300,300);
canvas.lineto(300,0);
canvas.lineto(295,15);
canvas.MoveTo(300,0);
canvas.lineto(305,15);
canvas.TextOut(310,30,`y`);
canvas.TextOut(285,180,`1`);
canvas.textout(285,165,`2`);
canvas.textout(285,150,`3`);
canvas.textout(285,135,`4`);
canvas.textout(285,120,`5`);
canvas.textout(285,105,`6`);
canvas.textout(285,90,`7`);
canvas.textout(285,75,`8`);
canvas.textout(285,60,`9`);
canvas.textout(280,45,`10`);
canvas.textout(285,210,`-1`);
canvas.textout(285,225,`-2`);
canvas.textout(285,240,`-3`);
canvas.textout(285,255,`-4`);
canvas.TextOut(285,270,`-5`);

repeat
canvas.Pixels[round(x*10+300),round(-x*x*10+200)]:=clblue;
x:=x+0.01;
until x>5;
end;


procedure TForm1.Button2Click(Sender: TObject);
var x ,y :real;

begin
with canvas do begin
brush.color:=clbtnface;
pen.color:=clblack;
end;
// x-Achse:
canvas.MoveTo(150,200);
canvas.lineto(450,200);
canvas.lineto(440,205);
canvas.MoveTo(450,200);
canvas.lineto(440,195);
canvas.textout(450,205,`x`);
canvas.TextOut(305,205,`1`);
canvas.TextOut(320,205,`2`);
canvas.TextOut(335,205,`3`);
canvas.TextOut(350,205,`4`);
canvas.TextOut(365,205,`5`);
canvas.TextOut(380,205,`6`);
canvas.TextOut(395,205,`7`);
canvas.TextOut(410,205,`8`);
canvas.TextOut(425,205,`9`);
canvas.TextOut(270,205,`-2`);
canvas.TextOut(255,205,`-3`);
canvas.TextOut(240,205,`-4`);
canvas.TextOut(225,205,`-5`);
canvas.TextOut(210,205,`-6`);
canvas.TextOut(195,205,`-7`);
canvas.TextOut(180,205,`-8`);

x:=-5;
// y- Achse
canvas.MoveTo(300,300);
canvas.lineto(300,0);
canvas.lineto(295,15);
canvas.MoveTo(300,0);
canvas.lineto(305,15);
canvas.TextOut(310,30,`y`);
canvas.TextOut(285,180,`1`);
canvas.textout(285,165,`2`);
canvas.textout(285,150,`3`);
canvas.textout(285,135,`4`);
canvas.textout(285,120,`5`);
canvas.textout(285,105,`6`);
canvas.textout(285,90,`7`);
canvas.textout(285,75,`8`);
canvas.textout(285,60,`9`);
canvas.textout(280,45,`10`);
canvas.textout(285,210,`-1`);
canvas.textout(285,225,`-2`);
canvas.textout(285,240,`-3`);
canvas.textout(285,255,`-4`);
canvas.TextOut(285,270,`-5`);

repeat
canvas.Pixels[round(x*-150+600),round(x*100)]:=clblue;
x:=x+0.001;
until x>3;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
bevel1.Repaint;
end;

procedure TForm1.Button4Click(Sender: TObject);
var x ,y :real;

begin
with canvas do begin
brush.color:=clbtnface;
pen.color:=clblack;
end;
// x-Achse:
canvas.MoveTo(150,200);
canvas.lineto(450,200);
canvas.lineto(440,205);
canvas.MoveTo(450,200);
canvas.lineto(440,195);
canvas.textout(450,205,`x`);
canvas.TextOut(305,205,`1`);
canvas.TextOut(320,205,`2`);
canvas.TextOut(335,205,`3`);
canvas.TextOut(350,205,`4`);
canvas.TextOut(365,205,`5`);
canvas.TextOut(380,205,`6`);
canvas.TextOut(395,205,`7`);
canvas.TextOut(410,205,`8`);
canvas.TextOut(425,205,`9`);
canvas.TextOut(270,205,`-2`);
canvas.TextOut(255,205,`-3`);
canvas.TextOut(240,205,`-4`);
canvas.TextOut(225,205,`-5`);
canvas.TextOut(210,205,`-6`);
canvas.TextOut(195,205,`-7`);
canvas.TextOut(180,205,`-8`);

x:=-5;
// y- Achse
canvas.MoveTo(300,300);
canvas.lineto(300,0);
canvas.lineto(295,15);
canvas.MoveTo(300,0);
canvas.lineto(305,15);
canvas.TextOut(310,30,`y`);
canvas.TextOut(285,180,`1`);
canvas.textout(285,165,`2`);
canvas.textout(285,150,`3`);
canvas.textout(285,135,`4`);
canvas.textout(285,120,`5`);
canvas.textout(285,105,`6`);
canvas.textout(285,90,`7`);
canvas.textout(285,75,`8`);
canvas.textout(285,60,`9`);
canvas.textout(280,45,`10`);
canvas.textout(285,210,`-1`);
canvas.textout(285,225,`-2`);
canvas.textout(285,240,`-3`);
canvas.textout(285,255,`-4`);
canvas.TextOut(285,270,`-5`);
end;

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

end.
GAST stellte diese Frage am 25.05.2011 - 10:20

 
 Antwort von GAST | 25.05.2011 - 16:46
Warum
kann denn keiner helfen ?


Autor
Beiträge 0
14		 Antwort von Harvard (ehem. Mitglied) | 25.05.2011 - 16:49
Alter, was ist das für eine Sprache?!

Kann man das ohne GUI? Vielleicht liegt der Fehler dort


Autor
Beiträge 40283
2103		 Antwort von matata | 25.05.2011 - 16:49
Die User hier helfen viel und gern. Aber es kann nun einmal nicht jeder oder jede, die on sind, alle eure Probleme lösen. Vielleicht sind sie nur zum Chatten hier... Hab ein bisschen Geduld!
________________________
 e-Hausaufgaben.de - Team


Autor
Beiträge 6130
38		 Antwort von RichardLancelot | 25.05.2011 - 16:53
Zitat:
Alter, was ist das für eine Sprache?!
Das ist Delphi...hab ich leider (oder zum Glück) nie gelernt und versteh deswegen auch nur Bahnhof.


Autor
Beiträge 7242
45		 Antwort von John_Connor | 25.05.2011 - 17:17
Mein letztes Mal mit Delphi liegt bestimmt schon 3 Jahre zurück, aber ich vllt kann ich ja dch noch helfen.
Erst einmal: Buttons solltest du in Zukunft besser bennen.
Da du die Variablen bei jedem Prozess sowieso nutzt, kannst du sie auch im Public-Bereich des Kopfes deklarieren. Das dürfte eleganter sein.
Button5 sieht für mich nach Spielerei aus.^^ Welche Funktion soll das Edit-Feld haben?
Bekommst du Fehlermeldungen? Sollen im Bild dann 3 quadratische Funktionen dargestellt werden, oder was hast du da bis jetzt? Was fehlt dir noch?


Autor
Beiträge 0
14		 Antwort von sayyeah93 (ehem. Mitglied) | 25.05.2011 - 17:32
also wir haben auch delphi..
du sollst das grafisch ausgeben ja?
mal ne frage: was ist "canvas"? hatten wir bisher nicht..

vielleicht hilft das:
http://www.chris-tec.net/DE/Tutorials/Funktionsplotter/index.html


Autor
Beiträge 7242
45		 Antwort von John_Connor | 25.05.2011 - 17:43
Canvas ist quasi eine Fläche zum Zeichnen.


Autor
Beiträge 4080
17		 Antwort von S_A_S | 25.05.2011 - 18:02
Zitat:
Kann man das ohne GUI? Vielleicht liegt der Fehler dort

Der Code enthällt doch GUI definitionen.
In dem Punkt unterscheidet es sich nicht von einem GUI in Java, C++ oder C# oder was auch immer es an imperativen Programmiersprachen gibt. Was ich nur hier generell finde ist das was du eigentlich tun willst, nämlich die mathematischen funktionen.

Wo liest du sie ein?
Wo bearbeitst du sie?

Verstoß melden
Hast Du eine eigene Frage an unsere Informatik-Experten?

17 ähnliche Fragen im Forum: 2 passende Dokumente zum Thema:
> Du befindest dich hier: Support-Forum - Informatik
ÄHNLICHE FRAGEN:
  • Informatik Delphi
    Hallo, brauche euro hilfe. und zwar muss einen taschenrechner mit delphi programmieren, der natürlich auch mehr soll als plus..
  • Delphi 7/Informatiker
    http://s14.directupload.net/file/d/2910/xzwc94x5_jpg.htm Ich hab ein paar kleine Fragen für Informatiker, die sich mit Delphi..
  • Delphi - Schleifen - Muster
    Hallo Leute wir haben jetz in Informatik Programmieren mit Delphi (Lazarus) und mit Schleifen angefangen und Sollen jetz ein ..
  • Delphi
    Ich wollte nur mal fragen ob jemand vielleicht eine Internet Seite kennt, wo man ein ähnliches Programm wie delphi ..
  • Delphi : Vortrag über Delphi - Hilfe gesucht
    Hallo Leute, ich soll morgen einen Vortrag in Informatik halten aber leider habe ich bis jetzt immer nur mit Java gearbeitet und..
  • Informatik Programm Delphi
    hallo was sagen diese 3 formeln aus 1. s=o; 2. for i = 1to10do 3. s:s+i;
  • mehr ...
BELIEBTE DOWNLOADS: