Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот основа...

Question

Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот основа программы, нужно нарисовать рисунок.
uses GraphABC;
const s='Этот рисунок создан с помощью Паскаль АВС';
begin
Window.Clear(clAquamarine);
Font.Name:='Colibry';
Font.Size:=14;
Font.Style:=fsItalic;
Brush.Color:=clWhite;
rectangle(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),
Window.Width div 2+TextWidth(s) div 2,Window.Height);
textout(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),s);

end.

---

Comments

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

---

Если можете это сделать, то помогите, очень нужно, сам вообще не шарб

---

Пожалуйста

---

ок щас

---

выбрасывать два часа времени еще и на шару. вы меня за кого принимаете? Я решаю задания на интерес. Подсказать чтото могу, а делать не буду

---

Ваше право, я не обязую, просто прошу помощи у людей, которые разбираются во всём этом.

---

вот я и предлагаю свою помощь в возможности научиться. спрашивайте

---

На самом деле человеку, который разобрался в этой теме не составляет труда составить её, я просто пропустил тему и ничего не понимаю)

---

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

---

Может сможешь помочь, не обязательно весь рисунок.. Хотя бы камни и 1 рыбу, которая попроще можно без глаз.

Answer 1

Вот тут есть камни и зачаток рыбки, осталось подобрать координаты и будет на рыбу похоже

uses GraphABC;
const
    s = 'Этот рисунок создан с помощью Паскаль АВС';

begin
    Window.Clear(clAquamarine);
       
    //камни
    Brush.Color := clRed;
    Ellipse(100,Window.Height-20,200,Window.Height);
    Ellipse(500,Window.Height-60,650,Window.Height);
    Brush.Color := clGreen;
    Ellipse(300,Window.Height-30,480,Window.Height);
    Ellipse(200,Window.Height-40,300,Window.Height);
    
    //рыбка 1
    Brush.Color := clBlanchedAlmond;
    var FishBody1: array of Point := (new Point(150,150), new Point(50,170), new Point(100,100));
    Polygon(FishBody1); //триугольное тело
    Pie(160,160,50,50,270); //хвост
    Pie(180,180,10,50,270); //плавник
    
    //надпись
    Font.Name := 'Colibry';
    Font.Size := 14;
    Font.Style := fsItalic;
    Brush.Color := ARGB(50,255,255,255);
    rectangle(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s),
    Window.Width div 2 + TextWidth(s) div 2, Window.Height);
    textout(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s), s);
end.

Comments

У Вас программа запустилась?

---

Можете эти камни нормального размера сделать и рыбу доделать. И я буду счастлив

---

да конечно PascalABC.Net 3.1 последняя сборка

---

вот как раз делать размеры это самое долгое. подбирай

---

вот так оно и делается, меняешь цифры, запускаешь, смотришь результат, опять меняешь цифры и тд