Нарисовать кораблик (Turbo Pascal)

[Сэм]

Здравствуйте, люди добрые! Окажите содействие чайнику написать программу, которая выводит на экран изображение совершенно банального кораблика

[Лукманов Александр]

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Visible:=true;
end;

два раза щёлкаешь на добавленной кнопке и добавляешь этот код.

так же добавляешь на форму Image. Заходишь в свойство Picture и прописываешь путь картинки. Также свойство Visible = False

[DeKot]

У Лукманова выводится готовый рисунок. Вот метод для рисования "вручную". Открываем новый проект в Дельфи.В Object Inspector открываем вкладку Events (события) и дважды кликаем по OnPaint. Далее ручками прописываем следующий код :

With Form1.Canvas do
  begin
    Pen.Width:= 2;
    Pen.Color:= clRed;
    MoveTo(200,200);
    LineTo(150,170);
    LineTo(200,140);
    lineTo(200,250);
    Pen.Color:= clBlack;
    lineTo(150,250);
    lineTo(180,350);
    lineTo(600,350);
    lineTo(650,250);
    lineTo(200,250);
    Brush.Color:= clGreen;
    Rectangle(250,200,550,250);
    Brush.Color:= clYellow;
    Rectangle(300,160,500,200);
    Brush.Color:= clBlack;
    Rectangle(350,100,400,160);
  end;

Это все методы графических примитивов. Запускаем проект (F9) и любуемся. Добавте иллюминаторы ( метод Ellipse ) и окна на верхних палубах (методом Rectangle) - троечка Вам обеспечена.
Только сейчас заметил, что нужно в среде Турбо Паскаль. Но в принципе там применимы те же операторы для модуля Graf. Думаю справитесь.

[Сэм]

Спасибо, друзья, и на этом! Простите за наглость, но можете мне разъяснить, откуда взялись или как были вычислены (подобраны) координаты? Суть вроде понял, хотя и на делфи, а вот с координатами, ума не приложу, совсем туго что-то.СПАСИБО!

[DeKot]

Это координаты формы( читай экрана дисплея) Если в компе установлено разрешение 1024 х 768 - это 1024 пикселя в ширину и 768 пикселей в высоту. Чтобы понять - возьми обыкновенный тетрадочный лист в клеточку. Одна клетка - это 20 пикселей.Теперь отсчитывая от верхнегшо левого угла листа карандашом отсчитывай указанные координаты и рисуй линии или прямоугольники согласно программе. Все станет понятно.
Начальная точка (MoveTo) 200 х 200 - это десять клеток вправо и 10 клеток вниз. Если уж и это не понятно, тогда "парашутный спорт не для Вас!"

[Сэм]

Ещё раз, спасибо! Как раз то, что описали Вы я понял и очень даже хорошо. Может я неправильно выразил свои мысли, тогда прошу прощения, но я имел в виду, когда интересовался координатами, не их конкретное числовое выражение, а некую, чтоли, формулу. Ну, допустим, изображение нужно строго посередине листа, или чуть ниже, или выше, не суть. Суть в том, чтобы вводя определённые числа и подставляя их в формулу, получать изображение в нужном месте. Возможно ли это?

[DeKot]

Вы же рисуете "кораблик". А это как у художника, никаких формул, одно вдохновение, как рука ляжет - так и получится рисунок. То ли "Девятый вал", то ли "Черный квадрат".Другое дело, если Вы хотите создать рисунок программно. Вот здесь как раз нужна математика, т.е знание формул.Тогда сможете рисовать синусоиды, графы, фракталы и прочую белиберду.

строго посередине листа, или чуть ниже, или выше, не суть. Суть в том, чтобы вводя определённые числа и подставляя их в формулу, получать изображение в нужном месте

Для этого есть координаты экрана ( или видимой программой части экрана). Даже не знаю как еще на пальцах это объяснить.Ну, скажем так - левый верхний угол видимой части экрана (формы) имеет координаты 0,0, а соответсевенно правый нижний Width,Height - соответствует разрешению дисплея. Все остальное просчитывается исходя из задачи.

[Сэм]

ВСЁ ПОЛУЧИЛОСЬ!!! Уважаемый DeKot, нижайший Вам поклон и огроменнейшее СПАСИБО!!! Не знаю, правда, так или нет, но я нарисовал кораблик! С удовольствием "опрокину" за Ваше здоровье бутылочку-другую хорошего молдавского вина! Ещё раз, СПАСИБО!

[Sheva-roller]

А можете сюда добавить овальных элементов типа Ellipse, Arc, Pie?
Чтоб эстетичность рисунка не потерялась, пожалуйста!

Хотя бы иллюминаторы добавьте, а то у меня с эллипсами вообще ноль, буду очень благодарен!

[Serge_Bliznykov]

Хотя бы иллюминаторы добавьте, а то у меня с эллипсами вообще ноль

шутить изволите?
ну, например так:

    Brush.Color:= clBlue;
    x := 220; y := 275;
    for i:=0 to 6 do
      Ellipse(x+i*55,y, x+i*55+40, y+40);