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

[Lozergod]

буду под 7.0 паскаль переделывать)если полкчиться)Препол требяет на 7,0))спс за код

[DeKot]

Глаза протрите - в этой же ветке на 10 строчек ниже точно такая же тема "Нарисовать кораблик в Турбо Паскале"

[Lozergod]

там другой караблик))я и ничего не смыслю в нграфике....не переделал .....не получаеться( зачет горит( пожалуйста помогите....надеюсь на вас)

[Lozergod]

народ умаляю помогите((((

[Lozergod]

Program gr_2;
uses graph,crt;
var Gd,Gm,i: integer;
begin
Gd:=Detect;
initgraph(Gd, Gm, '');
line(150,200,200,250);
line(200,250,300,250);
line(300,250,350,200);
line(350,200,150,200);
line(180,200,180,140);
line(180,140,250,140);
line(250,140,250,200);
line(250,140,250,200);
circle(210,220,10);
circle(240,220,10);
circle(270,220,10);
readkey;
closegraph;
end.

вот сделал но не могу понять как парус доделать?туплю

[Evgeshka]

если его можно назвать корабликом

[Вавел из ГМТУ]

Ого, да это же настоящий фрегат на котором капитан Джек Воробей был разбит пиратами с Чёрной жемчужины....

Почитайте эту тему, вроде как уже можно весь Российский флот нарисовать если соединить все коды из этой темы.

[начинающий кодер]

Ого, да это же настоящий фрегат на котором капитан

uses graph,crt;
var Gd,Gm,i: integer;
begin
Gd:=Detect;
initgraph(Gd, Gm, '');
line(150,400,350,400);
line(350,400,400,350);
line(400,350,150,350);
line(150,350,150,400);
line(150,350,150,150);
line(200,200,400,200);
line(400,200,400,300);
line(400,300,200,300);
line(200,300,200,200);
readkey;
closegraph;
end.

[Evgeshka]

Сообщение от Вавел из ГМТУ

Ого, да это же настоящий фрегат на котором капитан Джек Воробей был разбит пиратами с Чёрной жемчужины....

Почитайте эту тему, вроде как уже можно весь Российский флот нарисовать если соединить все коды из этой темы.

)))

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