Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2021, 14:13   #1
An2ton1
 
Регистрация: 13.01.2021
Сообщений: 4
По умолчанию graph

Помогите пожалуйста
Изображения
Тип файла: png 00.png (35.4 Кб, 26 просмотров)
An2ton1 вне форума Ответить с цитированием
Старый 24.02.2021, 15:01   #2
An2ton1
 
Регистрация: 13.01.2021
Сообщений: 4
По умолчанию

С анимацией
An2ton1 вне форума Ответить с цитированием
Старый 25.02.2021, 23:04   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Держи.

Допилишь под себя
Код:
uses crt, graph;
var gd,gm: integer;
    i : integer;
procedure DrawShip(x0, y0 :integer);
begin
  setcolor(magenta);
  line(x0,y0,x0-10,y0-50);
  line(x0,y0,x0+60*7,y0);
  line(x0+60*7,y0,x0+60*7+50,y0-50);
  line(x0+60*7+50,y0-50,x0-10,y0-50);
  setfillstyle(1,magenta);
  {floodfill(x0+5,y0-5,magenta);}
  setcolor(cyan);
  rectangle(x0-10+30*7-50,y0-50*8+20,x0-10+30*7,y0-50*8+50);
  setfillstyle(1,cyan);
{  floodfill(x0-10+30*7-45,y0-50*8+25,cyan);}
  line(x0-10+30*7,y0-50*8+70, x0+10, y0-50-20);
  line(x0+10, y0-50-20,x0-10+30*7,y0-50-20);
  line(x0-10+30*7,y0-50,x0-10+30*7,y0-50*8);
{  floodfill(x0+10+2,y0-50-21,cyan);      }
  line(x0-10+30*7,y0-50*8+70, x0+60*7+50,y0-50);
  line(x0-10+30*7,y0-50*8+70,x0-10+30*7+70,y0-50-50);
  line(x0-10+30*7+70,y0-50-50,x0+60*7+50,y0-50);
{  floodfill(x0+60*7+49, y0-50-51,cyan);}
  setcolor(red);
  line(x0-10+30*7,y0-50,x0-10+30*7,y0-50*8);
  line(x0-10+30*7,y0-50, x0-10+30*7+70,y0-50-50);
end;

begin
 clrscr;
 gd:=detect;
 initgraph(gd,gm,'');
 setcolor(4);
 setbkcolor(white);
 DrawShip(20,460);
 for i := -300 to 640 do
 begin
      cleardevice;
      DrawShip(i,460);
      delay(10);
      if keypressed then break;
 end;
 {readln;}
 closegraph;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Graph Костян 98 Паскаль, Turbo Pascal, PascalABC.NET 30 25.05.2011 15:34
graph aleks15 Паскаль, Turbo Pascal, PascalABC.NET 13 06.02.2011 20:25
Graph Katmai Паскаль, Turbo Pascal, PascalABC.NET 3 08.10.2010 23:11
GRAPH Marat-ik Помощь студентам 1 08.06.2010 20:22