13..Создание класса треугольника. Нахождение площади

Type

TTreug

private

fsidelength: integer;//dlina storony

fhidelength: integer;//vysota treuga

farea: integer;//plowad

procedure area;

procedure create;

end;

procedureTTreug.Create(length:integer);

begin

sidelength:=length;

hidelength:=length1;

end;

procedureTTreug.Area(a:integer);

a:=sidelength*hidelength/2;

end;

procedureTForm1.Button1.Click(Sender:TObject);

begin

sidelength:=strtoint(edit1.Text);

hidelength:=strtoint(edit2.Text);

Treug.Area(a);

label1.caption:=inttostr(a);

end;

14..Строка состояния студента

statusbar1.Panels[0].Text:='Иванов Иван Иванович';

statusbar1.Panels[1].Text:=datetostr(now);

statusbar1.Panels[2].Text:=timetostr(now);

15..Объект машина. Старт и стоп движения

//Машина представляет собой рисунок

procedureTForm1.FormCreate(Sender:TObject);

Timer1.active:=false;

procedureTForm1.Timer1Timer(Sender:TObject);

begin

image1.left:=image1.left+50;

if(image1.left>form1.clientwidth) then

image1.left:=1;

end;

//stop mawina

procedureTForm1.Button1.Click(Sender:TObject);

begin

Timer1.active:=false;

end;

//go mawina

procedureTForm1.Button1.Click(Sender:TObject);

begin

Timer1.active:=true;

end;

end.

16. Создать программу, в которой при нажатии на кнопку выводится на печать страница перечеркнутая до диагонали линиями красного цвета

uses

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

Dialogs, Buttons, StdCtrls, ExtCtrls,printers;

type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

printer.begindoc;

with form1.Canvas do

begin

pen.Color:=clred;

pen.Width:=2;

clientheight:=338;

clientwidth:=316;

Printer.canvas.lineto (316,338);

lineto(316,338);

Printer.canvas.lineto (316,0);

moveto(316,0);

Printer.canvas.lineto (0,338);

lineto(0,338);

end;

printer.enddoc;

end;

17. Нарисовать прямоугольник красного цвета

Shape1: TShape;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

mplementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

with shape1 do

begin

shape:=stRectangle;

brush.Color:=clred;

pen.Color:=clred;

end;

end;

end.

18. Найти сумму элементов матрицы

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

end.

19.Найти сумму элементов выше главной диагонали

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

if (i<j) then

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

end.