Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
LGIR
Новичок
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 23
16.12.2009, 16:52     Кораблик совершает путь по заданной траектории.
  #1
1) Анимационная картинка - кораблик совершает путь по заданной траектории...все происходит довольно быстро...но время может задать каждый желающий...вообщем смотрите...
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program corablik;
uses Graph, Crt;
var
  grDriver: integer;
  grMode: integer;
  ErrCode: integer;
  x,y,y0,a,b: integer;{a,b-переменные для линии моря, чтоб они не зависели от х,у}
procedure more(a,b:integer);
begin
moveto(0,y0);
setcolor(blue);
for a:=0 to 680 do{слева направо рисуем синусоиду синего чвета}
 begin
  b:=y0-round(sin(a*pi/180)*30);{30-коэффициент масштабирования по оси Х, 
чем больше, тем волна круче}
  lineto(a,b);
 end;
end;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '..\BGI');
  ErrCode := GraphResult;
  y0 := 250;
  if ErrCode = grOk then
  begin
    x:=600;
    while x>=0 do{лучше использовать цикл while, можно менять величину шага, 
что тоже влияет на скорость и частоту смены картинки}
     begin
      cleardevice;
      more(a,b);{рисуем волну}
      setcolor(white);{устанавливаем цвет кораблика}
      y:=y0-40-round(sin(x*pi/180)*30);{движемся по волне}
      MoveTo(x - 40, y + 20);
      LineTo(x - 20, y + 40);
      LineTo(x + 20, y + 40);
      LineTo(x + 40, y + 20);
      LineTo(x - 40, y + 20);
      MoveTo(x + 15, y + 20);
      LineTo(x + 15, y - 40);
      LineTo(x - 20, y + 20);
      LineTo(x + 15, y + 20);
      delay(100); {нормальная скорость, если модули *.TPL не глючные как у Вас,
 время должно быть в миллисекундах, а не в каких-нибудь наносекундах} 
      x:=x-2;{шаг движения}
    end;
  end
  else Writeln('Graphics error: ', GraphErrorMsg(ErrCode));
 Settextstyle(0,0,3);{устанавливаем стиль шрифта}
 cleardevice;
 setcolor(red);
 OuttextXY(200,240,'Rejs zavershen!');{выводим надпись}
 readln;
 CloseGraph;
end.
я все в точности написал в паскаль но не получается запустить его жму f9 какаята табличка быстро очень мелькает и потом выделяется вторая строчка uses Graph, Crt; в чем проблема? =(
пс первый раз ваще начал работать с программными языками так...
AdAgent
Объявления
16.12.2009, 16:52
Puporev
Модератор
42223 / 30737 / 1802
Регистрация: 18.05.2008
Сообщений: 65,425
16.12.2009, 17:15
  #2
В каком Паскале рабтаете?
LGIR
Новичок
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 23
16.12.2009, 17:58  [ТС]
  #3
Turbo Pascal for Windows (доработанная версия).
WolfCF
Форумчанин
3258 / 1330 / 12
Регистрация: 28.04.2009
Сообщений: 4,864
16.12.2009, 18:05
  #4
Скачайте нормальный паскаль с этого форума. А свой суррогат удалите.
Puporev
Модератор
42223 / 30737 / 1802
Регистрация: 18.05.2008
Сообщений: 65,425
16.12.2009, 18:15     Кораблик совершает путь по заданной траектории.
  #5
Если Турбо Паскаль не поддерживается, то можно Free Pascal.
Yandex
Объявления
16.12.2009, 18:15
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Передвижение по заданной траектории
как лучше сделать чтобы объект передвигался по заданой траектории?
Unity, Unity3D alexasassin 20.07.2014 01:29
Free Pascal Максимальный путь в графе
Необходимо найти максимальный путь в графе. Граф связанный, без циклов. Имеет N-1 ребер, то есть дерево. N - количество вершин (N<=32767). Подскажите есть ли алгоритм решающий эту задачу. Если можно,...
Free Pascal Pasacal-men 27.12.2013 20:49
Turbo Pascal Движение объектов по заданной траектории
У меня вопрос по поводу графики в паскале. У меня не получается, чтобы объект двигался по заданной мною траекторией. По sin выходило, просто по функции x:=600; while x>=0 do и так далее. А тут...
Turbo Pascal alex_s_p 07.01.2013 16:45
Free Pascal Движение по траектории
Доброго времени суток. Перейду сразу к делу. Постановка задачи: По большой фигуре организовать движение окружности по периметру фигуры с шагом равным половине радиуса окружности. Должна двигаться три...
Free Pascal Mr__Mess 28.12.2012 19:02
Delphi движение объекта по заданной траектории
всем привет... написал класс который рисует круг и двигается с лева на право.. но мне надо чтобы он двигался по определенной траектории (с лева на право и обратно)... как это реализовать помогите кто...
Delphi для начинающих Khan 29.05.2012 18:59
Free Pascal Движение по заданной траектории
Напишите пожалуйста пример программы движения любого объекта по диагонали сверху вниз и наоборот, также по прямой и по по параболе.
Free Pascal Анна З. 30.03.2012 11:42
Free Pascal Минимальный путь в таблице
В прямоугольной таблице N×M (в каждой клетке которой записано некоторое число) в начале игрок находится в левой верхней клетке. За один ход ему разрешается перемещаться в соседнюю клетку либо вправо,...
Free Pascal !.Ap0$T0L.! 09.10.2011 20:32
Опции темы

Текущее время: 13:08. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.