7. Змейка

unit Unit1;interface

uses

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

Dialogs, ExtCtrls;

type

TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;

var

Form1: TForm1; i,a,b:integer; implementation {$R *.dfm} procedure Form1.FormCreate(Sender: TObject);

Begin a:=-40; b:=10; end;

procedure TForm1.Timer1Timer(Sender: TObject);var i:integer;begin Canvas.Pen.Color:=Form1.Brush.Color;Canvas.MoveTo(a-1,185);Canvas.LineTo(a-1,215); Canvas.Pen.Color:=clblack; Canvas.MoveTo(a,round(10*sin(2*pi/20*a))+200); for i:=a to b do

Canvas.LineTo(i,round(10*sin(2*pi/20*i))+200);inc(a);inc(b);end;end.

6. Часы с обратным ходом.

unit Unit1;interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1; alf,x,y,a:integer;implementation{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);begin Canvas.MoveTo(150,150);

Canvas.Pen.Color:=Form1.Brush.Color;Canvas.LineTo(150+x,150+y); Canvas.Pen.Color:=clblack;Canvas.MoveTo(150,150);x:=round(40*cos(alf*pi/180));

y:=round(40*sin(alf*pi/180));Canvas.LineTo(150+x,150+y);alf:=alf-6;end;

procedure TForm1.FormPaint(Sender: TObject);begin Canvas.Ellipse(100,100,200,200); Canvas.MoveTo(150,150);Canvas.LineTo(150+x,150+y);end;

procedure TForm1.FormCreate(Sender: TObject);begin alf:=-90; x:=round(40*cos(alf*pi/180));y:=round(40*sin(alf*pi/180));end;end