1

Instrukcja 5 

Cel ćwiczenia : Napisanie aplikacji rysującej wykres funkcji kwadratowej. 

 

 

 

Rys. 1 Widok formularza z umieszczonymi komponentami 

 

1.  Uruchomić Delphi. 
 
2.  Przejść do widoku kodu źródłowego przyciskiem F12. 

 

3.  W części Interface (pod uses) umieścić następujący kod: 
 

const Nmax = 10000; 
      ppX=25; 
      ppY=25; 
type 
  wym = 1..Nmax; 
  TablWsp = Array[wym] of Real; 

 
4.  W części private klasy TForm1 umieścić deklaracje zmiennych i nagłówki funkcji 

Normalizacja i Osie: 

 

N,X0,Y0,ZX,ZY: Integer; 
dx,xmin,xmax: Real; 
xx,yy,X,Y: TablWsp; 
a,b,c:double; 

 

2

 

kolW,kolO,kolWyp : TColor; 
 
procedure Normalizacja(N,A,B: Integer; xx,yy: TablWsp; 
                       var X,Y: TablWsp); 
procedure Osie(X0,Y0,A,B: Integer; x,y: String;T: TCanvas); 

 

5.  W części implementation napisać definicje funkcji: 
 

procedure TForm1.Normalizacja; 
var 
  i: Integer; 
  dX,dY,G,Kx,Ky,xmin,xmax,ymin,ymax,Sx,Sy: Real; 
begin 
  A:=A-2*ppx;    B:=B-2*ppY; 
  xmin:=xx[1];   xmax:=xx[1]; 
  ymin:=yy[1];   ymax:=yy[1]; 
  for i:=2 to N do begin 
     if xx[i] < xmin then xmin:=xx[i]; 
     if xx[i] > xmax then xmax:=xx[i]; 
     if yy[i] < ymin then ymin:=yy[i]; 
     if yy[i] > ymax then ymax:=yy[i]; 
  end; 
  Sx:=xmax-xmin; 
  Sy:=ymax-ymin; 
  for i:=1 to N do begin 
     X[i]:=xx[i]-xmin; 
     Y[i]:=Abs(yy[i]-ymin-Sy); 
  end; 
  G:=1; 
  dX:=A-Sx; 
  dY:=B-Sy; 
  if dX/A <= dY/B then begin 
     Kx:=A/Sx; 
     Ky:=G*Kx; 
  end 
  else begin 
     Ky:=B/Sy; 
     Kx:=Ky/G 
  end; 
  for i:=1 to N do begin 
     X[i]:=Kx*X[i]+ppX; 
     Y[i]:=Ky*Y[i]+ppY; 
  end; 
end; 
 
procedure TForm1.Osie; 
begin 
  with T do begin 
    MoveTo(0,Y0); 

 

3

    LineTo(A,Y0); 
    LineTo(A-8,Y0-3); 
    LineTo(A,Y0); 
    LineTo(A-8,Y0+3); 
    TexTout(A-15,Y0+6,x); 
    MoveTo(X0,B); 
    LineTo(X0,0); 
    LineTo(X0-3,8); 
    MoveTo(X0,0); 
    LineTo(X0+3,8); 
    TextOut(X0-11,9,y); 
  end; 
end; 

 
6.  Umieścić na formularzu komponent Image i ustawić następujące parametry: 
 

•  Width : 400 
•  Height : 400 

 

7.  Umieścić na formatce komponent Button i ustawić własność Caption na Rysuj. 
 
8.  Umieścić na formatce 6 komponentów Edit i ustawić parametry według następujących 

wskazówek: 

 

Domyslna nazwa: 

Zmienić własność name na: 

Zmienić własność tekst na: 

Edit1 

EN 

50 

Edit2 

Exmin 

-1,5 

Edit3 

Exmax 

1,5 

Edit4 

Ea 

1 

Edit5 

Eb 

1 

Edit6 

Ec 

1 

 
9.  Obok komponentów Edit można umieścić komponenty Label w celu opisania, który 

komponent odpowiada za poszczególne zmienne. 

 

10. Wygenerować zdarzenie OnClick dla komponentu Buton i wpisać następujący kod: 

 

procedure TForm1.Button1Click(Sender: TObject); 
var 
   i:integer; 
begin 
 
   N:=StrToInt(EN.Text); 
   xmin:=StrToFloat(Exmin.Text); 
   xmax:=StrToFloat(Exmax.Text); 
 
   a:=StrToFloat(Ea.Text); 
   b:=StrToFloat(Eb.Text); 
   c:=StrToFloat(Ec.Text); 
 

 

4

   with Image1.Canvas do begin 

 

      //czyszczenie okna 
 
      Brush.Color:=kolWyp; 
      Brush.Style:=bsSolid; 
      FillRect(Rect(0,0,Image1.Width,Image1.Height)); 
 
      //wykres 
 
      xx[1]:=0;  yy[1]:=0; 
      dx:=(xmax-xmin)/N; 
      for i:=0 to N do begin 
         xx[i+2]:=xmin+i*dx; 
         yy[i+2]:=a*xx[i+2]*xx[i+2]+b*xx[i+2]+c; 
      end; 
 
      ZX:=Image1.Width;          ZY:=Image1.Height; 
      Normalizacja(N+2,Image1.Width,Image1.Height,xx,yy,X,Y); 
      X0:=Round(X[1]);   Y0:=Round(Y[1]); 
      Pen.Color:=kolO; 
      Osie(X0,Y0,ZX,ZY,'x','y',Image1.Canvas); 
      Pen.Color:=kolW; 
      MoveTo(Round(X[2]),Round(Y[2])); 
      for i:=3 to N+2 do 
         LineTo(Round(X[i]),Round(Y[i])); 
   end; 
end; 
 

11. Wygenerować zdarzenie OnCreate dla komponentu Form1 i wpisać następujący kod: 
 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
   kolW:=clBlack; 
   kolO:=clBlue; 
   kolWyp:=clWhite; 
end; 

 
12. Umieścić komponenty: RadioGroup, Button, ColorDialog. 
13. Wybrać własność Items dla RadioGroup i wpisać następujące pozycje: 
 

kolor wykresu 
kolor osi 
kolor wypełnienia 

 

Własność ItemIndex dla RadioGroup1 ustawić na 0, natomiast własność Caption 
ustawić na pustą. 

 
14. Własność Caption dla przycisku Button ustawić na: Wybór koloru. 

 

 

5

15. Wygenerować zdarzenie OnClick dla przycisku i wpisać następujący kod 

odpowiedzialny za wybór koloru. 

 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
   case RadioGroup1.ItemIndex of 
      0 : begin 
             if Colordialog1.Execute then 
                kolW:=ColorDialog1.Color; 
          end; 
      1 : begin 
             if Colordialog1.Execute then 
                kolO:=ColorDialog1.Color; 
          end; 
      2 : begin 
             if Colordialog1.Execute then 
                kolWyp:=ColorDialog1.Color; 
          end; 
   end; 
end; 

 
14. Skompilować i uruchomić program przyciskiem F9 na klawiaturze komputera. 

 

 

 

Rys. 2 Uruchomiony program