Вариант 57. Написать и отладить программу на языке ассемблера

  • ID: 00392 
  • 15 страниц
200 рубСкачать

как получить скидку

v07.asm

v07.bat

V07.exe

v57.docx

z1v15

z2v03v15

z2v10v15

Содержание:


Вариант 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

Задание 2. Вариант 3

.

unit Unit1;

interface

uses

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

Dialogs, Menus, Grids;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N4: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ppaint: integer;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

ppaint:= 0;

form1.Repaint;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ppaint:= 1;

form1.Repaint;

end;

procedure TForm1.FormPaint(Sender: TObject);

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

begin

if (ppaint=1) then

begin

{тенб}

canvas.Pen.Color:= $000000;

canvas.Brush.color:= $aaaaaa;

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

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

Задание 2. Вариант 8

.

unit Unit1;

interface

uses

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

Dialogs, Menus, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(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;

КУРСОВАЯ РАБОТА

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

.

Создать командный файл, который выполняет следующие действия:

a. Очистка экрана.

b. На диске C: создать каталог TMP.

c. Скопировать в этот каталог файлы с расширением BAT из корневого каталога.

d. Просмотреть содержимое каталога TMP.

e. Вывести на экран имена файлов из 5и букв каталога TMP.

f. Удалить в каталоге TMP все фалы с расширением BAT.

Командный файл

CLS ; очистка экрана

Задание 2. Вариант 7

.

Написать и отладить программу на языке ассемблера. В программе описать процедуру, которая выводит на экран элемент с заданным номером. Параметры представить следующим образом:

в BX – смещение массива;

в CX – число элементов в массиве;

в AX – заданный номер элемента.

В основной программе вызвать описанную процедуру для двух разных массивов.

Программа:

DOSSEG

MODEL SMALL

STACK 100h

DATA

findnum dw 2

n dw 6

mas1 db 4,3,5,2,1,7

mas2 db 7,0,8,5,3,4

ЛИТЕРАТУРА