Работа с графикой

[Falcao]

Помогите с заданием, нужно нарисовать ромб, выделив его диагонали пунктиром + Подписать все его вершины... Нарисовать - то я смог(обычными линими), а вот где прочесть больше информации... Если не сложно, дайте ссылку или помогите в решении....

program abc;
uses crt,graphABC;
begin
write('S = (AC · BD) / 2');
writeln('S = a · H');
writeln('S = a^2 · sin a');
writeln('S = 4r^2 / sin a');
SetWindowSize(900,900);
line(320,10,440,225);
line(440,225,320,460);
line(200,225,320,460);
line(200,225,320,10);
end.

Ещё одно: есть задание, нужно нарисовать такое, используя цикл:

Прошу, если не решить, так дайте ссылку с понятной теорией, а так я всё сделаю.
Спасибо за внимание, с Наступающим)

p.s. не обращайте внимание на

write('S = (AC · BD) / 2');
writeln('S = a · H');
writeln('S = a^2 · sin a');
writeln('S = 4r^2 / sin a');

Это часть задания - вывести формулы нахождения площади.

[BDA]

Никогда не рисуйте по координатам,посчитанным вручную.
У Вас получился не ромб.
Всегда, если есть возможность, задавайте координаты через параметры.

program abc;

uses
  crt, graphABC;

const
  x = 320;
  y = 240;
  rx = 120;
  ry = 215;
  a = 10;

var
  h, w: integer;

begin
  write('S = (AC · BD) / 2');
  writeln('S = a · H');
  writeln('S = a^2 · sin a');
  writeln('S = 4r^2 / sin a');
  SetWindowSize(900, 900);
  pen.Width := 3;
  h := textheight('A') div 2;
  w := textwidth('A') div 2;
  TextOut(x - rx - a - w, y - h, 'A');
  TextOut(x - w, y - ry - a - h, 'B');
  TextOut(x + rx + a - w, y - h, 'C');
  TextOut(x - w, y + ry + a - h, 'D');
  moveto(x, y - ry);
  lineto(x + rx, y);
  lineto(x, y + ry);
  lineto(x - rx, y);
  lineto(x, y - ry);
  pen.Style := psDash;
  line(x, y - ry, x, y + ry);
  line(x - rx, y, x + rx, y);
end.

В Pascal ABC есть встроенная справка, где можно все найти.
Кстати, уточните, в каком Паскале работаете.
Код выше работает в Pascal ABC NET и не работает в Pascal ABC.

[Falcao]

у меня просто АВС, и, как вы говорите, не работает... Неизвестный идентификатор pen
/// с помощью справки исправил ошибку с пен, сейчас выбивает на penStyle:=psDash;
присвоение имени функции вне тела этой функции

[Serge_Bliznykov]

для обычного Pascal ABC достаточно было заменить 2 строчки работы с пером (кстати, я за пару минут прочитал это во встроенном хелпе Паскаля ABC по F1)

program abcromb;
{ (c) BDA }

uses
  crt, graphABC;

const
  x = 320;
  y = 240;
  rx = 120;
  ry = 215;
  a = 10;

var
  h, w: integer;

begin
  write('S = (AC · BD) / 2');
  writeln('S = a · H');
  writeln('S = a^2 · sin a');
  writeln('S = 4r^2 / sin a');
  SetWindowSize(900, 900);
  SetPenWidth( 3 );
  h := textheight('A') div 2;
  w := textwidth('A') div 2;
  TextOut(x - rx - a - w, y - h, 'A');
  TextOut(x - w, y - ry - a - h, 'B');
  TextOut(x + rx + a - w, y - h, 'C');
  TextOut(x - w, y + ry + a - h, 'D');
  moveto(x, y - ry);
  lineto(x + rx, y);
  lineto(x, y + ry);
  lineto(x - rx, y);
  lineto(x, y - ry);
  SetPenStyle ( psDash );
  SetPenWidth( 1 );
  line(x, y - ry, x, y + ry);
  line(x - rx, y, x + rx, y);
end.

[Falcao]

Спасибо, а как вы узнали что нужно 'Set...' писать?

[BDA]

как узнали

Например, так:
1) Помощь-Содержание
2) Вкладка Указатель
3) Поиск по слову pen
4) 1 строка - pen, 2 строка - pencolor
5) Кликаем по pencolor
6) Попадаем в статью Действия с пером

[Falcao]

на счёт второго, смотрите, что получилось

program num3;

uses crt, graphABC;
var i,x1,x2,y1,y2,xc,yc:integer;
begin
writeln('Enter x1,y1,x2,y2');
read(x1,y1,x2,y2);
writeln('Enter xc,yx');
read(xc,yc);
clrscr;
 SetWindowSize(900, 900);
 SetPenWidth( 1 );
  for i:=1 to 5 do
   begin
      ellipse(x1,y1,x2,y2);
      floodfill(xc,yc,red);
      x1:=x1+100;
      x2:=x2+100;
      xc:=xc+90;
   end;

end.

мне нужен результат как на картинке

Я поставил заливку красной, хоть мне нужно заштрихование, а заливка все равно чёрная... как сделать заштриховку, подскажите...

[Falcao]

Написал с кружочками в центре

program num3;

uses crt, graphABC;
var i,x1,x2,y1,y2,x3,x4,y3,y4,xc,yc:integer;
begin

writeln('Enter x1,y1,x2,y2');
read(x1,y1,x2,y2);

writeln('Enter xc,yx');
read(xc,yc);

writeln('Enter x3,y3,x4,y4');
read(x3,y3,x4,y4);


clrscr;
 SetWindowSize(900, 900);
 SetPenWidth( 1 );
  for i:=1 to 5 do
   begin
      ellipse(x1,y1,x2,y2);
      floodfill(xc,yc,0);
      x1:=x1+100;
      x2:=x2+100;
      xc:=xc+90;
      ellipse(x3,y3,x4,y4);
      x3:=x3+100;
      x4:=x4+100;
   end;

end.

[BDA]

program num3;

uses
  crt, graphABC;

const
  rx1 = 30;
  ry1 = 20;
  rx2 = 70;
  ry2 = 30;
  d = 50;
  count = 5;

var
  i, c, x0, y0: integer;

begin
  SetWindowSize(2 * (count * rx2 + d), 2 * (ry2 + d));
  SetPenWidth(1);
  c := count div 2 + count mod 2;
  x0 := d + 2 * c * rx2 - rx2;
  y0 := d + ry2;
  for i := 1 to count do
  begin
    setbrushcolor(clred);
    setbrushstyle(bsDiagCross);
    ellipse(x0 - rx2 + 2 * rx2 * (-c + i), y0 - ry2, x0 + rx2 + 2 * rx2 * (-c + i), y0 + ry2);
    setbrushcolor(clwhite);
    setbrushstyle(bsSolid);
    ellipse(x0 - rx1 + 2 * rx2 * (-c + i), y0 - ry1, x0 + rx1 + 2 * rx2 * (-c + i), y0 + ry1);
  end;
end.

[Falcao]

спасибо, а какая часть за заштриховку отвечает?)
setbrushstyle(bsDiagCross);?