|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.09.2009, 17:27 | #1 |
Регистрация: 09.09.2009
Сообщений: 4
|
Задача на решение графики в Паскаль!
Надо написать программу на PascalABC, Кубик бросающийся 2 раза : вверх вниз ,верх вниз (после того, как он опустится вниз, он должен поменять значение и снова броситься вверх, а затем вниз).Помогите решить эту задачку.
|
09.09.2009, 20:30 | #2 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
кубик - имеется ввиду просто двигающийся квадрат?
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
09.09.2009, 22:45 | #3 |
Регистрация: 09.09.2009
Сообщений: 4
|
Да! Бросающийся кубик (он летит вверх, потом вниз, меняет значение на любое другое (например 3) и также бросается ещё раз).
|
10.09.2009, 00:33 | #4 |
Что? Где? Когда?
Форумчанин
Регистрация: 14.07.2009
Сообщений: 220
|
Ух ты, у нас цвет стал цифрой!?
Код:
Далее еще здесь проблемка: Код:
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".
|
10.09.2009, 17:49 | #5 |
Регистрация: 09.09.2009
Сообщений: 4
|
В чем проблема? polygon(a,4);polygon(b,4);
|
16.09.2009, 22:00 | #6 |
Регистрация: 09.09.2009
Сообщений: 4
|
Помогите...
|
17.09.2009, 10:26 | #7 | ||
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Цитата:
Вообще программу я бы написал так. 1. В процедуре Kubik оставить только рисование самого кубика, очки убрать. 2. Описать 6 процедур Ochki1, 2, 3..6. В каждой нарисовать кружки и элипсы соответственно: лицевая от 1 до 6 кружков, прилегающие как на реальном кубике, посмотрите. добавить параметр, определяющий, какой кубик рисовать, это будет случайное число от 1 до 6. 3. Выполнение процедур привязать к нажатию клавиши, например пробел(#32). Выход по Esc(#27). 4. Программа идет в цикле (по Пакалевски, АВС не знаю и учить не хочу, ни Паскаль, ни Делфи, фиг поймешь) repeat if keypressed (аналог модуля Crt подключить) then begin readln(key); if key=#32 then begin och:=random(6)+1; case och of 1:begin Kubik();//проставить параметры Ochki(старые параметры,ovh); end; также от 2 до 6. end; В конце, где кубик останавливается, снова пишете это, выпадает другое число(хотя может случайно и это, бывает) рисует кубик с новыми гранями if key=#27 then exit; until key=#27; Так Вы сможете кидать кубик, пока не надоест, а не только 2 раза. |
||
17.09.2009, 14:45 | #8 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот быстренько изучил Паскаль АВС и накидал программку.
Дорисуй там кубики все и вперед. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объсните решение!Вырубка деревьев.Паскаль.Задача перебор! | suppppper2007 | Помощь студентам | 7 | 29.07.2009 19:47 |
графики паскаль | lunnamedl | Помощь студентам | 3 | 30.06.2009 11:05 |
решение Задачек в Паскаль | ЛидочкаНенаглядки | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 10.01.2009 01:07 |
Решение биквадратного уравнения Паскаль.... | КиношкА | Помощь студентам | 8 | 19.12.2008 01:25 |