Лучший ответ

    1.  1 0

    DuGi3aBPuK 6 (12808)3512 14 лет  

    procedure TForm1.Button1Click(Sender: TObject);
    var x,y,p,R,xs,ys:integer;
    begin
        R:=StrToInt(Edit1.Text);
        xs:=StrToInt(Edit2.Text);
        ys:=StrToInt(Edit3.Text);
        x:=0;
        y:=R;
        p:=1-R;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
    while x<=y do
        begin
        if p<0 then
          begin
        x:=x+1;
        y:=y;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
        p:=p+1+2*x;
          end
        else
          begin
        x:=x+1;
        y:=y-1;
        p:=p+1+2*x-2*y;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
          end;
        end;
    begin
        x:=R;
        y:=0;
        p:=1-R;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
    while x>y do
        begin
        if p<0 then
          begin
        y:=y+1;
        x:=x;
        p:=p+1+2*y;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
          end
        else
          begin
        y:=y+1;
        x:=x-1;
        p:=p+1+2*y-2*x;
        Form1.Canvas.Pixels[x+xs,y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,-y+ys]:=CLGREEN;
        Form1.Canvas.Pixels[-x+xs,y+ys]:=CLGREEN;
          end;
       end;
    end;
    end;
    end.

Ответы

    1.  1 0

    Братюня 2 (278)27 14 лет  

    зачем это в пятницу вечером?

    1.  1 0

    avenzio_ (34) 5 (4872)1918 14 лет  

    ну чисто из логических соображений, меняются знаки Х и У.
    перебрав все комбинации ++, --, +-, -+ у тебя получится, что ты побывал во всех 4 квадрантах

    1.  0 0

    AlexDpils 5 (3047)717 14 лет  

    там есть разные методы, итеральный, брезенхельма и т.д., если надо пиши..

Похожие вопросы

  • С русским языком дружите?
    я же русская и почему я должна ломать язык ?
  • Товарищи, кто с латышским языком дружит, помогите перевести более корректно?
    Pilnvara
    Sabiedrība ar ierobežotu atbildību (tālāk tekstā - SIA) «ХХХ», ģenerāldirektora I.I.Ivanova personā, balstoties uz SIA «ХХХ» statūtu Nolikumu, pilnvaro Pjotru Petroviču Petrovu (pases dati, pēc deklarētās dzīvesvietas: ***) pārstāvēt SIA «ХХХ» intereses un veikt visas darbības SIA «ХХХ» vārdā Latvijas Republikā, parakstīt visus nepieciešamos dokumentus, tostarp kontraktus un līgumus, pārstāvēt SIA «ХХХ» kā valstiskās, tā arī nevalstiskās organizācijās, kā arī tiesībsargājošajās institūcijās, kā tas noteikts ar pašreiz spēkā esošo Latvijas likumdošanu.

    Получай  

  • Вопрос по delphi!
    :)))))) лучше показать на примере

    uses  SysUtils;



    var t:TextFile;
        s:string;
    begin
       AssignFile(t,'1.txt'); Ассоциация файловой переменной t c 1.txt
       Reset(t);   Открываем для чтения
       s:='';
         while not eof(t) do
            ReadLn(t,s);  //чтение из файла t линии в переменную s, пока не наступит конец файла (eof = end of file). С каждым проходом цикла читается следующая строка. Потому что ReadLN :)

    CloseFile(t);  // закрытие файла
    end.


    Ещё посмотри help по Rewrite()  по Seek
  • Кто использует программу Delphi 7(см.внутри)?
    ну integer это целые числа. Вот тебе и выдаёт ошибку. Либо округляй, либо переходи на дробные
    var a,b,c:extended;


    вместо StrToInt будет FloatToInt
    аналогично FloatToStr будет вместо IntToStr
  • Какие есть программы похожие на Delphi 7?
    microsoft visual c++
    visual basic
  • Delphi 7
    да кто его с сайтов то качает. Заинсталь dc али revconnect, хаб dchub.hacker.lv:4012
    и качай
  • Путь в базе данных. (Delphi)
    ExtractFileDir (ParamStr (0)) + '\MyDatabase.XXX'
  • А сейчас кто-то пишет какой-либо софт на Delphi? (вн.)
    Delphi это не язык программирования это среда разработки. Язык там Object Pascal. Если разрабатывают, то очень мало.
    Если с программированием основными принципами программирования уже знаком, то изучай C++ или Java.
    На Java чаще всего разрабатываются Enterprise проекты. Для этого одного знания Java не достаточно.
    Сейчас много ещё разрабатывают на C#. Синтаксис очень похож на Java.
  • как будет выглядить код ? (delphi)
    procedure TFormX.Memo1DblClick(Sender: TObject);
    begin
        <код>
        <код>
        <код>
        <код>
        <код>
        <код>
        <код>
    end;

    можно и без массивов
  • Есть кто нибудь кто хорошо понимает Delphi?
    Походу в закладке Win32 была иконка таймера.

Рейтинг@Mail.ru Top.LV PULS.LV Professional rating system