Написать программу в среде программирования Delphi
Автор: Роман Мущинкин • Март 5, 2018 • Лабораторная работа • 1,175 Слов (5 Страниц) • 636 Просмотры
МИНОБРНАУКИ РОССИИ
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
«Ижевский государственный технический университет имени М.Т. Калашникова»
Факультет «Информатики и Вычислительной Техники»
Кафедра «Автоматизированные системы обработки информации и управления»
ОТЧЕТ
по дисциплине «Программирование»
Лабораторная Работа №1
Вариант №36
Выполнил
студент гр. Б01(2)-782-1ЗТ Мущинкин Р.В.
Принял
ст. преподаватель Исупов Н.С.
Ижевск
2016
Цель работы: Написать программу в среде программирования Delphi которая выполняет следующее действия:
1. Рисует заданную геометрическую фигуру, которая перемещается по заданной траектории и постоянно изменяет свой масштаб («дышит»);
Геометрическая фигура:
Заданная траектория:
Код программы 1
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ComCtrls, ColorBox;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
ColPen: TColorBox;
ColBrush: TColorBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
PaintBox1: TPaintBox;
Panel1: TPanel;
Panel2: TPanel;
TBDuhan: TTrackBar;
TBSpeed: TTrackBar;
Timer1: TTimer;
TBMash: TTrackBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ColBrushChange(Sender: TObject);
procedure ColPenChange(Sender: TObject);
procedure DrawShape(x,y,s:integer);
procedure FormShow(Sender: TObject);
procedure TBDuhanChange(Sender: TObject);
procedure TBSpeedChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure calcDraw();
procedure TBMashChange(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
lx,ly,ld,scale,speed,duh:integer;
nduh:boolean;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.DrawShape(x,y,s:integer);
begin
PaintBox1.Repaint;
PaintBox1.Canvas.Pen.Color:=ColBrush.Selected;
PaintBox1.Canvas.Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);
PaintBox1.Canvas.Pen.Color:=ColPen.Selected;
PaintBox1.Canvas.Line(x,y,x-15,y-s);
PaintBox1.Canvas.Line(x-15,y-s,x+(s div 5)+15,y-s);
PaintBox1.Canvas.Line(x,y,x-s,y-15);
PaintBox1.Canvas.Line(x-s,y-15,x-s,y+(s div 5)+15);
PaintBox1.Canvas.Line(x-s,y+(s div 5)+15,x,y+(s div 5));
PaintBox1.Canvas.Line(x,y+(s div 5),x-15,y+(s div 5)+s);
PaintBox1.Canvas.Line(x+(s div 5),y,x+(s div 5)+15,y-s);
PaintBox1.Canvas.Line(x+(s div 5),y,x+(s div 5)+s,y-15);
PaintBox1.Canvas.Line(x+(s div 5),y+(s div 5),x+(s div 5)+15,y+s+(s div 5));
PaintBox1.Canvas.Line(x-20+(s div 5),y+s+(s div
...