p align="justify"> Текст програми.
Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls; Maxx=641;=class (TForm): TImage ;: TButton ;: TRadioButton ;: TRadioButton;:TButton ;: TButton ;: TButton ;: TButton ;: TLabel ;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject); Button6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;, dz: real;, lengz: real;, y0, z0, x1, y1, z1: ??real;, scaley: real;, gm: integer ;: array [0..Maxx] of integer;: array [0..Maxx] of integer;, ik: integer;, beta: real; Unit2, Unit3;
{$ R *.dfm}fy(x,z:real):real;:=cos(x*x-z*z+2)*20/(x*x-x+z*z+1);;fy1(x,z:real):real;a:real;:=sqr(x-pi)+sqr(z-pi);:=(1/5)*sin(x)*cos(z)-(3/2)*cos(7*a/4)*exp(-a);;func3d(cu,cd:integer);x,z:real;,ry:integer;,ryt:real;,flag2:boolean;:integer;:=true;flag2:=true;:=z0;( z lt; z0 + lengz) do:=x0;:=0; x lt; x0 + lengx do(xv);:=x+dx;:=xv;:=(fy(x,z)*scaley);:=round(rxt*cos(alfa)+z*sin(alfa));:=round(rxt*sin(alfa)*sin(beta)+ryt*cos(beta)-z*sin(beta)*cos(alfa));:=true;:=true;(hor1[rx]lt;ry) then:=false; [rx]:=ry ;; (hor2 [rx] gt; ry) then:=false;[rx]:=ry;;(not(flag1))then.Image1.canvas.pixels[rx,round(form1.image1.height/2)-ry-round(Strtofloat(form2.Edit13.Text))]:=ClGreen;if(not(flag2)) then form1.Image1.canvas.pixels[rx,round(form1.image1.height/2)-ry-round(Strtofloat(form2.Edit13.Text))]:=ClBlue;;:=z+dz;;;func3d1(cu,cd:integer);x,z:real;,ry:integer;,ryt:real;,flag2:boolean;:integer;:=true;flag2:=true;:=z0;( z lt; z0 + lengz) do:=x0;:=0; x lt; x0 + lengx do(xv);:=x+dx;:=xv;:=(fy1(x,z)*scaley);:=round(rxt*cos(alfa)+z*sin(alfa));:=round(rxt*sin(alfa)*sin(beta)+ryt*cos(beta)-z*sin(beta)*cos(alfa));:=true;:=true;(hor1[rx]lt;ry) then:=false; [rx]:=ry ;; (hor2 [rx] gt; ry) then:=false;[rx]:=ry;;(not(flag1))then.Image1.canvas.pixels[rx,round(form1.image1.height/2)-ry-round(Strtofloat(form2.Edit13.Text))]:=ClGreen;if(not(flag2)) then form1.Image1.canvas.pixels[rx,round(form1.image1.height/2)-ry-round(Strtofloat(form2.Edit13.Text))]:=ClBlue;;:=z+dz;;;TForm1.Button1Click(Sender: TObject) ;. click; radiobutton2ecked thenform2 doradiobutton1.Checked then:=Pi/180 * 30;:=pi/180 * 15 ;; radiobutton2.Checked then:=Pi/180 * 45;:=pi/180 * 15 ;; radiobutton3.Checked then:=Pi/180 * 5;:=pi/180 * 45 ;;:=StrtoFloat (Edit5.text);// - 6:=StrtoFloat (Edit6.text);//6:=x1-x0;:=lengx/Image1.Width;:=StrtoFloat(Edit7.text);// - 6:=StrtoFloat (Edit8.text);//6:=z1-z0;:=StrtoFloat(Edit10.text);//0.05:=StrtoFloat(Edit12.text);// 10; i:=0 to Maxx do hor1 [i]:=0; i:=0 to Maxx do hor2 [i]:=417; d (2,4) ;; radiobutton1ecked thenform2 doradiobutton1.Checked then :=Pi/180 * 30;:=pi/180 * 15 ;; radiobutton2.Checked then:=Pi/180 * 45;:=pi/180 * 15 ;; radiobutton3.Checked then:=Pi/180 * 5; :=pi/180 * 45 ;;:=StrtoFloat (Edit1.text);//0:=StrtoFloat(Edit2.text);//2pi:=x1-x0;:=lengx/Image1.Width;:=StrtoFloat(Edit3.text);//0:=StrtoFloat(Edit4.text);//4pi:=z1-z0;:=StrtoFloat(Edit9.text);//0.1:=StrtoFloat(Edit11.text);// 80; i:=0 to Maxx do hor1 [i]:=0; i:=0 to Maxx do hor2 [i]:=417; d1 (2,4) ;;; TForm1.FormCreate (Sender: TObject ); x, y: integer; y:=0 to image1.Height dox:=0 to image1.Width do.Canvas.Pixels [x, y]:=clblack ;; TForm1.Button2Click (Sender: TObject); x, y: integer; y:=0 to image1.Height dox:=0 to image1.Width do.Canvas.Pixels [x, y]:=clblack ;; TForm1.Button3Click (Sender: TObject) ;. show ;; TForm1. Button5Click (Sender: TObject) ;. Close ;; TForm1.Button4Click (Sender: TObject) ;. showmodal ;; TForm1.Button6Click (Sender: TObject) ;. Picture.Bitmap.SaveToFile ( out.bmp );
end;.
unit Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TLabel;:TButton ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TButton ;: TEdit ;: TLabel ;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject) ;. button1.click; .Close ;; TForm2.Button2Click (Sender: TObject);
begin.close ;;.
