Fraktale

Das Forum fĂĽr Programmierer und Systemadmins. Von Shell-, Perl- und PHP-Scripts bis zur objektorientierten Programmierung mit C++.

Fraktale

Beitragvon Mona » Sa 22 Feb, 2003 15:09

Hallo
Habe ein Problem, ich muss ein Programm schreiben, das Faktale zeichnet.
Bei mir zeichnet es aber nicht.
Wäre toll, wenn irgendjemand mal über den quellcode schauden könnte.unit fraktale;

interface

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

type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,f1,z,aha,haha,realmove,imgmove,h:real;
zaehler,iteration,x,y,rgb1,rgb2,rgb3:integer;
begin
zaehler:=0;
a:=strtofloat (edit1.Text);
b:=strtofloat (edit2.Text);
iteration:=strtoint (edit3.Text);
for x:=0 to 377 do
for y:=0 to 313 do
begin
z:=x+y;
c:=a+b;
repeat
begin
zaehler:=zaehler+1;
end;
until zaehler = iteration;
f1:=sqrt (a*a+b*b);
end;
//zeichnen

aha:=-5.02+realmove;
repeat
begin
haha:=5.02-imgmove;
aha:=aha+0.02;
repeat
begin
haha:=haha-0.02;
if f1>(sqrt(maxint))-10 then h:=maxint
else
h:=f1;
rgb1:=h mod 256;
rgb2:=(h div 256)mod 256;
rgb3:=((h div 256) div 256)mod 256;
end;
until haha<-4.98-imgmove;
end;
until aha>4.98+realmove;
end;





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

end.
Mona
 

ZurĂĽck zu PROGRAMMIER FORUM

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 23 Gäste