Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Как сделать так что бы корабли стреляли друг в друга
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
mrleoneed mrleoneed вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.06.2011
По умолчанию Как сделать так что бы корабли стреляли друг в друга - 30.06.2011, 10:05

Нужно сделать так,чтобы корабли стреляли друг в друга и 1 из них тонул...

Pascal Код:
uses graph,crt;
var
d,gm,x,y,cl,bk:integer;

Procedure Move(x,y:integer; cl:word);
var
  cl1:word;
begin

SetColor(cl);
  {  korpus }
  MoveTo(x,y);
  LineTo(x+170,y);
  LineTo(x+110,y+30);
  LineTo(x+20,y+30);
  LineTo(x,y);

     {parus}
  MoveTo(x,y);
 LineTo(X+30,Y-40);
  LineTo(x+55,y-40);
 LineTo(x+65,y-20);
 LineTo(x+100,y-20);
 lineTo(x+170,y);
 line(x+150,290,x+130,290);
 line(x+150,285,x+120,285);
 line(x+150,285,x+150,290);
 circle (40+x,y-20,7);

  { illuminatori }
  Circle(x+35,y+15,3);
  Circle(x+55,y+15,3);
  Circle(x+75,y+15,3);
  SetColor(cl);
{vtoroi korabl}
 
  MoveTo(x,y);
  Line(730-x,300,600-x,300);
  Line(630-x,330,600-x,300);
  Line(700-x,330,730-x,300);
  line(730-x,250,730-x,300);
  line(690-x,250,730-x,250);
  line(690-x,280,690-x,250);
  line(690-x,280,680-x,280);
  line(680-x,265,680-x,280);
  line(680-x,265,660-x,265);
  line(660-x,265,660-x,280);
  line(600-x,300,660-x,280);
  Circle(710-x,y-20,7);
  line(600-x,310,640-x,310);
  line(600-x,315,640-x,315);
  line(600-x,310,600-x,315);
  line(640-x,310,640-x,315);
{}{}{}{}{}{}{}{}{}{}{}{}{}
end;
begin
d:=detect;
initgraph(d,gm,'c:\bp\bgi');
x:=10;
y:=300;
cl:=LightGray;

 setbkcolor(9);

     SetFillStyle(1,1);
     bar(0,331,650,500);
repeat
Move(x,y,cl);    
Delay(5000);
Move(x,y,bk);  
x:=x+1;
until (x>100);



end.
Ответить с цитированием
  (#2 (permalink)) Старый
mrleoneed mrleoneed вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.06.2011
По умолчанию 30.06.2011, 14:02

сделал, зря писал...
Ответить с цитированием
  (#3 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 02.07.2011, 02:44

Добрая задача )))
Ответить с цитированием
  (#4 (permalink)) Старый
IgorShot IgorShot вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.12.2011
По умолчанию 04.12.2011, 17:55

Delay(5000); пишет что неизвестный идентефикатор
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шрифты наплывают друг на друга. Paster Fob Любые вопросы от новичков 8 19.11.2010 11:15
Как подключить 2 компьютра к Интернету независимо друг от друга? ok-01 Сетевые подключения 11 02.01.2009 11:41
Можно ли чтобы от одной видеокарты работало два монитора, независимо друг от друга? Ramzes505 Любые вопросы от новичков 7 04.12.2008 13:08
Комьютеры одной рабочей группы не видят друг друга, в чем причина? jet Любые вопросы от новичков 1 24.07.2008 00:14
Если комбобоксов больше одного то ITEMS в боксах начинают налезать друг на друга 095 Delphi 0 25.10.2007 18:01
Расставить N ферзей таким образом, чтобы они не атаковали друг друга mo7 Lisp 4 21.05.2007 12:07
На доске 4х4 расставить 4 слона так, чтобы они все находились не под ударом друг друг VNataliaV Lisp 2 24.05.2006 15:44
C vs C++ чем они отличаются друг от друга c++ Мысли вслух 26 10.03.2006 18:11
Visual и MSDN не видят друг друга Rider Visual C++ 8 17.05.2005 12:20
MFC 6.0 & 7.1 чем отличаются эти версии друг от друга Anonymous Visual C++ 1 13.01.2004 23:44
Как сделать что бы окна зависили друг от друга Anonymous WinAPI 1 21.11.2003 06:02
CGI и С++ чем они отличаются друг от друга default С/С++ 1 14.10.2003 19:01



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов