7 Отзыв руководителя практики

За период прохождения практики Чулков Сергей Сергеевич был ознакомлен со структурой предприятия, свого отдела, структурой сети и програмно-аппаратного комплекса. С выданым заданием справился в установленые сроки и без сторонней помощи, что характеризует его как хорошого специалиста в своей области.

Из личных качеств стоит отметить трудолюбие, заинтересованость и любознательно в изучении как нового, так и старого оборудования и технологий. В колективе ведёт себя добродушно и важливо, крайне отзывчив.

Производственная практика выполнена в полном обьеме и заслужевает оценки «Отлично»

Подпись __________________________________

М.П.

Зачёт по производственной практике студент сдал на ____________

Подписи членов комисии:

_________________________

_________________________

_________________________

Приложение а

Исходный код программы

//Текст головного модуля;

unit MainUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Menus; //Використані в програмі модулі;

type

TForm1 = class(TForm) //Основна форма;

Panel1: TPanel; // Компонент панель;

Edit1: TEdit; // Текстове поле;

Button1: TButton; // Звичайна кнопка;

Edit2: TEdit;

Button2: TButton;

Edit3: TEdit;

Panel2: TPanel;

Polotno: TImage; // Компонент, що відповідає за відображення графічних зображень;

Label1: TLabel; // Статичний напис на формі;

Label2: TLabel;

Button3: TButton;

Button4: TButton;

Memo1: TMemo; // Багатострокове поле в якому містяться підказки для користувача;

procedure Image1Click(Sender: TObject); // Процедура обробки кліку по полотну;

procedure Button2Click(Sender: TObject); //

procedure Button1Click(Sender: TObject); // Процедури обробки натискання кнопки

procedure Button3Click(Sender: TObject); //

procedure Button4Click(Sender: TObject); //

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; // Головне вікно;

piks,points,inside,i:integer;

To4ka:array of TPoint; // динамічний масив вершин досліджуваної фігури;

square:real;

implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject); // Обробка кліку по полотну;

var x1,y1:integer;

begin

x1:=Mouse.CursorPos.X-Form1.Left-10; // Захоплення координат курсора з поправкою

y1:=Mouse.CursorPos.Y-Form1.Top-30; // на границі форми;

To4ka[i].x:=x1;

To4ka[i].y:=y1; // Створення нової вершини;

polotno.Canvas.Pen.Color:=clGreen;

Polotno.Canvas.Ellipse(x1-2,y1-2,x1+2,y1+2); // Відмічення вершини на полотні;

Inc(i);

if i=piks then // При заданій кількості вершин фігура вимальовується;

begin

To4ka[piks]:=To4ka[0];

polotno.Canvas.Pen.Color:=clRed; // Редагування кольору контурів та ліній;

polotno.Canvas.Brush.Style:=bsSolid; // Встановлення цільної заливки

polotno.Canvas.Brush.Color:=clRed; // червоного кольору;

polotno.Canvas.Polygon(To4ka); // Процедура створення многокутника по точкам;

polotno.Enabled:=false; //

Button1.Enabled:=True; // Такий собі «захист від дурнів»

Button4.Enabled:=false; //

i:=0;

end;

end;

procedure TForm1.Button2Click(Sender: TObject); // Дія кнопки «Вихід;

begin

Form1.Close; // Закрити вікно програми;

end;

procedure TForm1.Button1Click(Sender: TObject); // Дії кнопки «Розрахунок»;

begin

inside:=0;

points:=strToInt(Edit2.Text);

Randomize; // Процедура запуску генератора випадкових величин;

For i:= 0 to points do

if polotno.Canvas.Pixels[random(polotno.width-10)+10,random(polotno.height-10)+10]=clred then inc(inside); // Підрахунок точок, що ввійшли в зафарбовану фігуру

square:=(polotno.Width)*(polotno.height)*(inside/points)*0.04; // Розрахунок площі;

Edit3.Text:=FloatToStr(square)+' кв. одиниць';

end;

procedure TForm1.Button3Click(Sender: TObject); // Дія кнопки «Нова фігура»;

begin

with polotno do

begin

Canvas.Create; // Створення нового робочого полотна;

Canvas.Pen.Color:=clWhite;

Canvas.Brush.Style:=bsSolid;

Canvas.Brush.Color:=clWhite;

Canvas.Rectangle(0,0,width,height); // Накладення «чистого аркушу»;

Canvas.Pen.Style:=psDot;

Canvas.Pen.Color:=clAqua;

for i:=1 to (polotno.Height div 20) do // Створення горизонтальної розмітки;

begin

Canvas.MoveTo(10,i*20);

Canvas.lineto(polotno.Width,i*20); // Лінія від краю до краю;

Canvas.TextOut(i*20,0,inttostr(i-1));

end;

for i:=1 to (polotno.Width div 20) do // Створення вертикальної розмітки

begin

Canvas.MoveTo(i*20,10);

Canvas.lineto(i*20,polotno.Height);

Canvas.TextOut(0,i*20,inttostr(i-1));

end;

polotno.Enabled:=false; //

Button1.Enabled:=false ; // Ще одне місце, де застосований захист від дурнів.

Button4.Enabled:=true; //

i:=0;

end;

end;

procedure TForm1.Button4Click(Sender: TObject); // Натискання на кнопку «Намалювати»

begin

piks:=StrToInt(Edit1.Text);

Polotno.Enabled:=true;

SetLength(To4ka,piks+1); // Створення масиву вершин досліджуваної фігури

end;

end.