Программа на Delphi . Помогите пожалуйста..! Нужно нарисовать две окружности...

[Asyyy]

Программа на Delphi . Помогите пожалуйста..!
Нужно нарисовать две окружности (нарисованные штрих-пунктиром) с фиксированным радиусом, которые пересеклись, и область пересечения должна быть закрашена (в любой цвет).
Напишите код пожалуйста!
Я не разбираюсь в программировании (учить не когда), задачу нужно уже сдавать...
( совсем не дано программирование- дуб-дерево):..
Очень нужна Ваша помощь (не будьте жадинами поделитись знаниями и опытом)..

И не надо писать, типо" ищи учебник/выучи/разберись/в учебнике все есть/в справке есть"
Я не понимаю!(((
И учить смысла нет, а сдавать уже нужно(в понедельник)...

[Smogg]

вопросы, предложения личку
както так:

[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 x,y,r,c:integer;
  procedure ell;
  begin
    with Canvas do begin
     Ellipse(x-r+c,y-r,x+r+c,y+r);
     Ellipse(x-r-c,y-r,x+r-c,y+r);
    end;
  end;

begin
  x:=Width div 2; y:=Height div 2; r:=100; c:=50;
  with Canvas do begin
    Brush.Style:=bsClear;    ell;
    Brush.Color:=clRed;
    FloodFill(x,y,clBlack,TFillStyle.fsBorder);
    Brush.Color:=clWhite;
    FloodFill(x-c-1,y,clBlack,TFillStyle.fsBorder);
    FloodFill(x+c+1,y,clBlack,TFillStyle.fsBorder);
    Brush.Style:=bsClear;
    Pen.Color:=clWhite;     ell;
    Pen.Color:=clBlack;
    Pen.Style:=psDash;   ell;

  end;
end;

end.

[Asyyy]

"Ахахах! Ржака ))))
А как ты собираешься сдавать, даже если тебе дадут код типа того что ниже, если не понимаешь что там написано?"

Да мне просто отдать практическую и всё))
Осталась одна для зачёта)
Спасибо за помощь огромное))!!!

Да, спасибо, так должно быть))

Извините , пожалуйста.
Вы отправили картинки, а если не трудно , не могли бы Вы отправить сам код.
Спасибо)

[Stilet]

А мой код не подошел?

[Asyyy]

Пришлось убрать :

{$mode objfpc}{$H+}
И изменить это:
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
На это:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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 x,y,r,c:integer;
procedure ell;
begin
with Canvas do begin
Ellipse(x-r+c,y-r,x+r+c,y+r);
Ellipse(x-r-c,y-r,x+r-c,y+r);
end;
end;

begin
x:=Width div 2; y:=Height div 2; r:=100; c:=50;
with Canvas do begin
Brush.Style:=bsClear; ell;
Brush.Color:=clRed;
FloodFill(x,y,clBlack,TFillStyle.fs Border);
Brush.Color:=clWhite;
FloodFill(x-c-1,y,clBlack,TFillStyle.fsBorder);
FloodFill(x+c+1,y,clBlack,TFillStyl e.fsBorder);
Brush.Style:=bsClear;
Pen.Color:=clWhite; ell;
Pen.Color:=clBlack;
Pen.Style:=psDash; ell;

end;
end;

end.

Но всё равно выдает ошибки((
Не понятных мне:

[Warning] Unit1.pas(27): File not found: 'Unit1.lfm'
[Error] Unit1.pas(46): Object or class type required
[Error] Unit1.pas(48): Object or class type required
[Error] Unit1.pas(49): Object or class type required
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[Stilet]

Но всё равно выдает ошибки((

Это потому что:

И не надо писать, типо" ищи учебник/выучи/разберись/в учебнике все есть/в справке есть"
Я не понимаю!(((
И учить смысла нет

[Asyyy]

Ну то понятно))

[type_Oleg]

Asyyy, Stilet, стесняюсь спросить, вы на чем пишете - на Делфи или Лазарусе?
Это конечно, почти одно и то же, но все же..

[Asyyy]

На Delphi).