Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.85
Sonza
0 / 0 / 0
Регистрация: 07.07.2009
Сообщений: 17
#1

Изобразить траекторию движения - Free Pascal

07.07.2009, 16:23. Просмотров 1679. Ответов 13
Метки нет (Все метки)

В случайных точках местности расположены несколько столбов, некоторые из них соединены заборами. Пьяница с равной вероятностью делает шаг вперёд, назад, вперёд-влево и вперёд-вправо (под 45 градусов), натолкнувшись на столб или забор, он падает (на время). Изобразить траекторию движения.

Добавлено через 7 минут 32 секунды
очень срочно надо, пожалуйста кто нибудь помогите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2009, 16:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Изобразить траекторию движения (Free Pascal):

Как реализовать красивую траекторию шара? - Free Pascal
Есть шар(основной), внутри, которого шар меньшего радиуса. Надо реализовать движение меньшего шара внутри круга(недолжен из него выйти). ...

Изобразить узор - Free Pascal
помогите пожалуйста!!! надо нарисовать вот такой рисунок

Изобразить циферблат - Free Pascal
В центрі екрану циферблат годинника з відмітками 1, 2,..., 12. Стрілки - годинна, хвилинна, секундна - мають свій колір і довжину. Годинник...

Изобразить бумажный кораблик - Free Pascal
Помогите пожалуйста решить задачу в Free Pascal: 2.Изобразить бумажный кораблик. Спасибо большое

Изобразить смешанный лес - Free Pascal
Здраствуйте. Задача: Напишите программу, рисующую на экране смешанный лес (лес состоит из елей и берез). Пользователь управляет...

Изобразить падение снежинок - Free Pascal
Добрый, есть вопрос. Можно ли сделать так, чтобы создавалось ощущение того, что над экраном есть еще один экран, где, к примеру,...

13
odip
Эксперт С++
7161 / 3219 / 62
Регистрация: 17.06.2009
Сообщений: 14,161
07.07.2009, 16:34 #2
Поллитра в руки и вперед.
Траекторию смотреть через Google Maps
1
Sonza
0 / 0 / 0
Регистрация: 07.07.2009
Сообщений: 17
07.07.2009, 16:36  [ТС] #3
чет я не понял
0
John_Pa9JIbHuK
Добрый самаритянин
1101 / 617 / 33
Регистрация: 31.03.2009
Сообщений: 2,568
07.07.2009, 16:40 #4
0
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
07.07.2009, 19:01 #5
вот) тока тут только столбики) забора нету)
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program pjan;
USES crt;
VAR
i,j,s,pi,pj:integer;
a:array[1..30,1..30] of string;
BEGIN
  randomize;
  pi:=30;
  pj:=random(30)+1;
  for i:=1 to 10 do begin
    a[random(30)+1,random(30)+1]:='#';
  end;
  a[pi,pj]:='i';
  while pi>1 do begin
  for i:= 1 to 30 do begin
  for j:= 1 to 30 do begin
  write(a[i,j]:1);
  end;
  writeln;
  end;
  delay(1000);
  clrscr;
  s:=random(4);
  case s of
  0: if a[pi-1,pj-1]='#' then begin
  a[pi,pj]:='j';
  delay(2000);
  a[pi,pj]:='i';
  end
  else if (pj<=30) and (pj>1) then begin
  a[pi,pj]:='';
  pi:=pi-1;
  pj:=pj-1;
  a[pi,pj]:='i';
  end;
  1:if a[pi-1,pj]='#' then begin
  a[pi,pj]:='j';
  delay(2000);
  a[pi,pj]:='i';
  end
  else begin
  a[pi,pj]:='';
  pi:=pi-1;
  a[pi,pj]:='i';
  end;
  2:if a[pi-1,pj+1]='#' then begin
  a[pi,pj]:='j';
  delay(2000);
  a[pi,pj]:='i';
  end
  else if (pj<30) and (pj>=1) then begin
  a[pi,pj]:='';
  pi:=pi-1;
  pj:=pj+1;
  a[pi,pj]:='i';
  end;
  3:if a[pi+1,pj]='#' then begin
  a[pi,pj]:='j';
  delay(2000);
  a[pi,pj]:='i';
  end
  else if pi<30 then begin
  a[pi,pj]:='';
  pi:=pi+1;
  a[pi,pj]:='i';
  end;
  end;
  end;
  ReadLn;
END.
0
EvgeniiSp
146 / 136 / 18
Регистрация: 05.06.2009
Сообщений: 310
07.07.2009, 19:55 #6
В программе, в операторе case в третьем случае, происходит выход за границы изменения диапазона.
0
Puporev
Модератор
54015 / 41648 / 14728
Регистрация: 18.05.2008
Сообщений: 97,907
07.07.2009, 21:10 #7
Кстати эта тема довольно популярна в другом разделе.
http://www.cyberforum.ru/humour/thread43309-new-post.html
1
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
08.07.2009, 10:02 #8
EvgeniiSp, поподробнее пожалуйста? не увидел выхода...
0
EvgeniiSp
146 / 136 / 18
Регистрация: 05.06.2009
Сообщений: 310
08.07.2009, 12:01 #9
Jazon_deenAlt, ошибка происходит не всегда. Попробуйте запустить программу несколько раз подряд.
0
Миниатюры
Изобразить траекторию движения  
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
08.07.2009, 12:10 #10
EvgeniiSp, хмм... по коду вроде правильно... хотя благодаря вам нашел другую недоработку, в касе i должно менятса на j(типа стоит и падает) но на екране то оно не отображаетса))) забыл дописать))) но так как автор не спешыт реагировать то оставлю все как есть)
0
EvgeniiSp
146 / 136 / 18
Регистрация: 05.06.2009
Сообщений: 310
08.07.2009, 12:11 #11
Рад был помочь.
0
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
08.07.2009, 12:40 #12
О картинка помогла) понял суть проблемы) да-да недоработал я(((

Добавлено через 26 минут 24 секунды
Хмм... хотя и странно... в ФриПаскале такой ошыбки не выскакивало ни разу...
0
EvgeniiSp
146 / 136 / 18
Регистрация: 05.06.2009
Сообщений: 310
08.07.2009, 12:47 #13
Вот такая же ошибка на Free Pascal'е...
0
Миниатюры
Изобразить траекторию движения  
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
08.07.2009, 12:53 #14
значит я очень везучий)))
0
08.07.2009, 12:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2009, 12:53
Привет! Вот еще темы с ответами:

Изобразить спираль Архимеда - Pascal
Задача звучит немного иначе, чем название темы, но в этом и есть проблема. Вычислить площадь S фигуры, ограниченной первым витком спирали...

Изобразить увеличивающиеся квадраты - Free Pascal
Здравстуйте, уважаемые форумчане, помогите пожалуйста написать программу Нарисовать квадраты, стороны которых увеличиваются от 20 до...

Изобразить геометрическую фигуру - Free Pascal
требуется через if изобразить геометрическую фигуру как на фото Ссылка удалена.

Изобразить карту мира - Pascal
fg


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru