Реферат Вивчення мови об'єктно-орієнтованого програмування Borland Delphi та розробка практичних завдань

- p1.y);

. Form1.img1.Canvas.LineTo (p2.x, Form1.img1.Height - p2.y);

. Form1.img1.Canvas.LineTo (p3.x, Form1.img1.Height - p3.y);

. Form1.img1.Canvas.LineTo (p4.x, Form1.img1.Height - p4.y);

. Form1.img1.Canvas.LineTo (p1.x, Form1.img1.Height - p1.y);

8. end;

Послідовно малюються лінії від 1 точки до 2, від 2 до 3, від 3 до 4 і від 4 до 1.

Слід зазначити, що через відмінності системи координат в Canvas і від звичної декартової системи координат доводиться інвертувати значення ординат точок.

Список використаної літератури

1. Дав У., Дейкстри Е., Хоор К. Структурне програмування

2. Глас Р. Посібник по надійному програмуванню

. Хьюз Дж., Мічтом Дж. Структурний підхід до програмування

. Боем Б. та ін. Характеристики якості програмного забезпечення

Додаток

Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TImage ;: TListBox; _x: TEdit ;: TLabel; _y: TEdit ;: TLabel ;: TButton ;: TButton; _gen: TEdit ;: TButton ;: TLabel; addClick (Sender: TObject); FormShow (Sender: TObject); genClick (Sender: TObject); btn1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1;

{$ R * .dfm}=record: Integer ;: Integer ;;: array [0..100000] of tmypoint;

cnt: Integer;

//перевірка, чи є s числом

function is_digit (s: string): Boolean; i: integer ;: boolean;:=true; s= then f:=false; i:=1 to length (s) do (Ord (s [i]) lt; Ord ( 0 )) or (Ord (s [i]) gt; Ord ( 9 raquo ;)):=false;:=f ;;

//малює список точекupdate_list (); i: integer ;: tcanvas; .lst1.Clear;:=Form1.img1.Canvas; .Brush.Color:=clWhite; .Rectangle (0, 0 , Form1.img1.Width, Form1.img1.Height) ;. Brush.Color:=clBlack; i:=0 to cnt - 1 do

begin.lst1.Items.add (IntToStr (points [i] .x) + laquo ;, + IntToStr (points [i] .y)) ;. Ellipse (points [i].x - 2, Form1.img1.Height - points [i] .y - 2, points [i] .x + 2, Form1.img1.Height - points [i] .y + 2) ;;;

//додає точки в спісокadd_point_int (x, y: integer); (x gt; form1.img1.Width) or (y gt; Form1.img1.Height) or (x lt; 0) or (y lt; 0) ( Непідходящі координати ) ;;; [cnt] .x:=x; [cnt] .y:=y; (cnt) ;;

//додає точки в спісокadd_point_str (_x, _y: string) ;, y: Integer; not is_digit (_x) or not is_digit (_y) ( Непідходящі координати ) ;;;:= StrToInt (_x);:=StrToInt (_y); _ point_int (x, y) ;;

procedure TForm1.addClick (Sender: TObject);

var, y: Integer; _point_str (point_x.Text, point_y.text); _ list ;;

procedure TForm1.FormShow (Sender: TObject);

begin:=0; _list ;;

procedure TForm1.genClick (Sender: TObject);

var: Integer ;; not is_digit (n_gen.Text) ( Непідходящі координати ) ;;; i:=1 to StrToInt (n_gen.Text) do_point_int (Random (img1.Width), Random (img1.Height)); _ list ;;

function distance (p1, p2: tmypoint): Double;

begin:=(Sqrt (Sqr (p2.x - p1.x) + Sqr (p2.y - p1.y))) ;;

function is_bar (p1, p2, p3, p4: tmypoint): Boolean;

var d1, d2, d3, d4: double;:=distance (p1, p2);:=distance (p2, p3);:=distance (p3, p4);:=distance (p4, p1); :=(d1=d2) and (d2=d3) and (d3=d4) and (d4=d1) and (d1 lt; gt; 0) ;;

procedure drawbar (p1, p2, p3, p4: tmypoint);

begin.img1.Canvas.MoveTo (p1.x, Form1.img1.Height - p1.y) ;. img1.Canvas.LineTo (p2.x, Form1.img1.Height - p2.y) ;. img1.Canvas.LineTo (p3.x, Form1.img1.Height - p3.y) ;. img1.Canvas.LineTo (p4.x, Form1.img1.Height - p4.y) ;. img1.Canvas.LineTo (p1.x, Form1.img1.Height - p1.y) ;; gen_bars () ;, i2, i3, i4, acnt: Integer;:=0; i1:=0 to cnt - 1 doi2:=i1 + 1 to cnt- 1 doi3:=i2 + 1 to cnt - 1 doi4:=i3 + 1 to cnt - 1 dois_bar (points [i1], points [i2], points [i3], points [i4]) (points [i1], points [i2], points [i3], points [i4]); (acnt) ;; (IntToStr (acnt) + квадратів знайдено ) ;;

procedure TForm1.btn1Click (Sender: TObject);

begin_bars () ;;.