Вариант 57. Написать и отладить программу на языке ассемблера, СибГУТИ, основы системного программирования, контрольная

Содержание:

КОНТРОЛЬНАЯ РАБОТА

Задание 1. Вариант 15.

unit Unit1;

interface

uses

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

Dialogs;

type

TForm1 = class(TForm)

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

var a: array [1..8] of TPoint;

begin

{тенб}

canvas.Pen.Color:= $000000;

canvas.Brush.color:= $aaaaaa;

canvas.ellipse(75,190,115,220);

canvas.ellipse(165,190,205,220);

SetPolyFillMode(Canvas.Handle,WINDING);

a[1].X:= 105; a[1].Y:= 55;

a[2].X:= 205; a[2].Y:= 55;

a[3].X:= 205; a[3].Y:= 205;

a[4].X:= 195; a[4].Y:= 205;

a[5].X:= 195; a[5].Y:= 95;

a[6].X:= 115; a[6].Y:= 95;

a[7].X:= 115; a[7].Y:= 205;

a[8].X:= 105; a[8].Y:= 205;

canvas.Polygon(a);

canvas.Pen.Color:= $aaaaaa;

canvas.Brush.color:= $aaaaaa;

canvas.

…