Графика.

[Vladys95]

4. Составьте программу для изображения на экране прямоугольника с диагоналями. Размеры прямоугольника определите случайным образом.

[Stilet]

А какой паскаль то?

[Vladys95]

АВС если можно. Если он нарисует)

[Stilet]

У-у-у... Этого не использую.

[Vladys95]

тогда тем чем знаете...

[Stilet]

Уверен? Ладно. Но тебе это не понравится...

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

			{ TForm1 }

      TForm1 = class(TForm)
						procedure FormPaint(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);
var n,m:integer;r:TRect;
begin
 With Canvas do begin
  n:=Width div 2;
  m:=Height div 2;
  r.Top:=m-Random(m); r.Bottom:=m+Random(m);
  r.Left:=n-Random(n); r.Right:=n+Random(n);
  Rectangle(r);
  MoveTo(r.Left,r.Top);LineTo(r.Right,r.Bottom);
  MoveTo(r.Right,r.Top);LineTo(r.Left,r.Bottom);
 end;
end;

end.

[Vladys95]

оу, вы правы, какой паскаль?

[alex234]

Перепишем для ABC...

uses GraphABC;
var n,m, x1,y1,x2,y2: Integer;

BEGIN
  n:=WindowWidth div 2;
  m:=WindowHeight div 2;
  
  x1:=n-Random(n);
  y1:=m-Random(m);
  
  x2:=n+Random(n);
  y2:=m+Random(m);
  
  
  Rectangle(x1,y1,x2+1,y2+1); // +1 чтоб ровнее рисовал
  MoveTo(x1,y1); LineTo(x2,y2);
  MoveTo(x2,y1); LineTo(x1,y2);
END.

[Stilet]

какой паскаль?

Фришка. Под Лазарусом.