GraphABC

[Serge_Bliznykov]

[offtop]
min@y™, я уже неоднократно замечал, что Вы путаете два разных компилятора Паскаля: PascalABC и PascalABC.NET
Как ни странно - это два АБСОЛЮТНО разных компилятора, каждый со своими особенностями языка/компилятора.

Хотя, конечно, соглашусь, что оба - уродцы! А PascalABC.NET - ещё и мутант!

[min@y™]

я уже неоднократно замечал, что Вы путаете два разных компилятора Паскаля: PascalABC и PascalABC.NET

Да не, я просто картинку неправильно нарисовал (скобки забыл поставить).
И зря ты к словам придираешься, ты ж понял, чо я сказать-то хотел - надо новый подраздел заводить, а то студни мешают в кучу всё - бардак будет.

[Serge_Bliznykov]

Сообщение от min@y™

Да не, я просто картинку неправильно нарисовал (скобки забыл поставить).

Т.е. ты не путаешь PascalABC и PascalABC.NET ?!
Тогда извини!

Сообщение от min@y™

надо новый подраздел заводить

это не здесь надо обсуждать, есть раздел посвящённый форуму. Это туда надо написать. Но вообще тяжко тут на форуме новое внедряется...

[dimka123]

Хорошо. А как будет выглядеть код на турбо паскале
если с бац вы не дружите

[min@y™]

А как будет выглядеть код на турбо паскале
если с бац вы не дружите

Да я и с турбопаскакалем не дружу по части графики. Есть там модуль graph, в нём функции, напоминаеющие методы класса TCanvas.
У тебя в чём проблема-то? Не знаешь имена и параметры функций для рисования отрезков и дуги?

[LittleG]

Сообщение от min@y™

У тебя в чём проблема-то? Не знаешь имена и параметры функций для рисования отрезков и дуги?

косяки с общим построением. даже путаница с координатами и т.д

[min@y™]

Тут кроме Line() и Arc() и нету ничего.
Какие могут быть проблемы - не понимаю!

[LittleG]

Сообщение от min@y™

Тут кроме Line() и Arc() и нету ничего.
Какие могут быть проблемы - не понимаю!

вот что то получилось, но проблемка с координатами. и с дугой(косячная она какая то)
Можете подправить?

uses graphabc;
begin;
setwindowsize(640,480);
line(20,240,620,240);
   TextOut(620,240,'X');
line(320,20,320,400);
TextOut(320,20,'Y');
TextOut(320,240,'0');



setpenwidth(3);
TextOut(160,240,'-1');
line (160,246,160,236);//черточка для точки -1
line(160,240,320,240);//линия по оси Х от -1
TextOut(311,100,'1');//на оси Y
TextOut(450,240,'1');//на оси X
arc(320,180,80,0,100);// дуга
line(320,240,320,100);//линия по Y до начала дуги
end.

[min@y™]

Можете подправить?

Как ты себе это представляешь?

З.Ы. Абсолютные координаты - это пипец и ужос! Даже смотреть тошно. Не надо так!

[Serge_Bliznykov]

так устроит?

uses graphabc;

type TNapravlene = (Vverh, Vniz, Vpravo);

const Radius = 140;
 x0 = 320;
 y0 = 240;

procedure Strelka(x,y, ArrLength : integer;  napravlenie : TNapravlene);
begin
  case napravlenie of
    Vpravo : begin
               MoveTo(x-ArrLength, y-(ArrLength div 3));
               LineTo(x,y);
               LineTo(x-ArrLength, y+(ArrLength div 3));
             end;
    Vniz  : begin
               MoveTo(x-(ArrLength div 3), y-ArrLength);
               LineTo(x,y);
               LineTo(x+(ArrLength div 3), y-ArrLength);
             end;
    VVerh  : begin
               MoveTo(x-(ArrLength div 3), y+ArrLength);
               LineTo(x,y);
               LineTo(x+(ArrLength div 3), y+ArrLength);
             end
  end;
end;

begin;
  setwindowsize(640,480);
  setpenwidth(1);
  line(20,y0,620,y0);
  TextOut(610,y0+10,'X');
  Strelka(620, y0, 20, Vpravo);
  line(x0,20,x0,400);
  TextOut(x0,20,'Y');
  Strelka(x0, 30, 20, VVerh);


  setpenwidth(3);

  SetFontStyle(fsBold);
  SetFontSize(20);
  TextOut(x0+5,y0+5,'0');
  TextOut(150,y0+5,'-1');
  TextOut(x0-25, y0-Radius-25,'1');//на оси Y
  TextOut(x0+Radius,y0+5,'1');//на оси X
  
  line(x0-Radius,y0,x0,y0);//линия по оси Х от -1
  Strelka(x0, y0, 20, Vpravo);

  Strelka(x0+Radius-2, y0, 20, Vniz);
  Arc(x0, y0, Radius, 0, 90); // дуга

  line(x0,y0,x0,100);//линия по Y до начала дуги
  Strelka(x0, 100, 20, Vverh);
  
  setpenwidth(1);
  line (x0-Radius, y0-10, x0-Radius, y0+10);//черточка длиной 20 для точки -1
  line (x0+Radius, y0-10, x0+Radius, y0+10);//черточка длиной 20 для точки 1

end.