На pascal можно так:
Объяснение:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
begin
x:=0; y:=0;
for i:=1 to 500 do
begin
x:=random(x+i);
y:=random(y+i);
if x>600 then x:=random(x-i);
if y>800 then y:=random(y-i);
canvas.Pen.Color:=RGB(i*5,128*i,-128*(i+1));
canvas.Pen.Width:=2;
canvas.LineTo(x,y);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.close;
end;
end.
1. когда установившиеся пары танцующих притиснули всех к стене, он, заложивши руки назад, глядел на них минуты две внимательно (=времени
2. и весьма часто, сидя на диване, вдруг, совершенно неизвестно из каких причин, один, оставивши свою трубку, а другая работу (при каком только она держалась на ту пору в руках, они напечатлевали друг другу такой томный и длинный поцелуй( в продолжение его можно бы легко выкурить маленькую соломенную сигарку. =условия; определит.
3. последние слова понравились манилову, но в толк самого дела он все-таки никак не вник и вместо ответа принялся насасывать свой чубук так сильно (до какой что тот начал наконец хрипеть, как фагот.
4. она сразу уснула (то произошло вследствие так что на мой вопрос я услышал только её ровное дыхание.=следствия.
5. я пришёл к тебе затем, чтобы всё объяснить.=цели
6. и чем темнее становилось на улице, тем ярче сияли на небе звёзды.=сравнения
7. дорога была грязная (несмотря на хотя дождь прошёл ещё вчера вечером =уступки
3.SVG
4.CDR
5.WMF