нарисовать в паскале кораблик

[Sazary]

Ну вот вам шаблон:

uses graph;
var
d,m : integer;

begin
initgraph(d,m,'');

{ - здесь рисуйте кораблик - }

readln;
closegraph;
end.

[Lozergod]

мле ничего в голову не лезит( *бьюсь головой ап стол*

[Sazary]

мле ничего в голову не лезит( *бьюсь головой ап стол*

А тут думать не надо. Пишите.
Покажите, что написали.

Выглядеть будет как-то так: (см. вложение)

[Lozergod]

пожалуйста умаляю на коленях помогите мне(((я шас сам пытаюсь снова но даже не понимаю как это все сделать......

я даже не понимаю с чего начать(((

[Sazary]

пожалуйста умаляю на коленях помогите мне(((

Может, лучше будет это делать для того, кто будет принимать работу?


Смотрите мой предыдущий пост.

Объявите две переменные:

cntrx,cntry : integer;

Это будет центр экрана. Будем рисовать относительно него.
Также объявите константу:

const dd = 20;

Это будет масштаб.
В программе:

cntrx := getmaxx div 2;
cntry := getmaxy div 2;

А далее:

moveto(cntrx-7*dd,cntry+5*dd);
linerel(15*dd,0);

Первая линия начерчена. Продолжайте.
Когда увижу, что вы пытаетесь что-то сделать, выложу весь код.

[motaro]

где-то видел на форуме прогу turbo graph в ней можно нарисовать рисунок как в пеинте и сгенерировать код программы

[Sazary]

Lozergod, чтож, значит, все-таки сами думать не хотите.
Если не получается, то выложите код! То, что написали. Если ничего не написали, значит не пытались.

я так могу сидеть пытаться до самого зачета что то делать но ниче не получиться...

Попытка предполагает какие-то наработки. Не важно какие.

Жаль.

uses graph;
const dd = 20;
var
d,m : smallint;
cntrx,cntry : integer;

begin
initgraph(d,m,'');

cntrx := getmaxx div 2;
cntry := getmaxy div 2;

moveto(cntrx-7*dd,cntry+5*dd);
linerel(15*dd,0);
linerel(3*dd,-5*dd);
linerel(-25*dd,0);
linerel(7*dd,5*dd);
moveto(cntrx+2*dd,cntry-round(0.02*dd));
linerel(0,-12*dd);
linerel(-10*dd,round(12*dd));
moveto(cntrx+2*dd,cntry-12*dd);
linerel(5*dd,round(12*dd));

Fillellipse(cntrx-6*dd,cntry+2*dd,2*dd,1*dd);
Fillellipse(cntrx-dd,cntry+2*dd,2*dd,1*dd);
Fillellipse(cntrx+4*dd,cntry+2*dd,2*dd,1*dd);

SetFillStyle(8,15);
FloodFill(cntrx+2*dd-round(dd*0.5),cntry-round(0.02*dd)-round(0.5*dd),15);

readln;
closegraph;
end.

Это под FPC. Под TP7 сами переделывайте.

[OCTAGRAM]

Блин, ну на бумаге–то можно было нарисовать?

[Lozergod]

я отредактировал но получаеться как то отрывками

[Sazary]

Lozergod, вы хотели код - вот он.
Что там у вас получается отрывками, я не знаю.
Запускайте его во Free Pascal и не будет проблем.

Сообщение от OCTAGRAM

Блин, ну на бумаге–то можно было нарисовать?

Если б ТС хотел бы что-нибудь сделать сам, то тема не затянулась бы на 3 страницы.