Помощь - Поиск - Пользователи - Календарь
Полная версия: Движущееся изображение в Паскале
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cherry
Прошу помочь найти задачи, отвечающие данным требованиям:
1. Создать движущееся изображение, используя текстовый режим работы монитора.
Изображение должно содержать окна и, возможно, движущуюся надпись.
2. Создать движущееся изображение, используя графический режим работы монитора и модуль Graph. Включить в изображение текст.
Чем больше примеров, тем лучше.Если что-то подобное уже было плиз дайте ссылки. give_rose.gif
Lapp
Цитата(Cherry @ 16.11.2007 22:52) *

помочь найти задачи, отвечающие данным требованиям:

Cherry, что значит "помочь найти"? То есть помочь тебе воспользоваться поиском по Форуму, что ли?.. Ты уж извини, но это ты как-нибудь сама.. Или иди на форум поисковиков smile.gif

Ничего себе, вопросы пошли на программерском форуме.. Приходи, когда нужно будет помогать программировать! smile.gif

Вот примерчик по движению в текстовой моде. Накарябал на скорую руку..
{motion in text mode}
{by Lapp for Cherry}

uses CRT;

const
s='Cherry';

var
x,y,dx,dy,x1,x2,y1,y2:integer;


function NextPos(var dz:integer; z,z1,z2:integer):integer;
begin
z:=z+dz;
if z<z1 then z2:=z1;
if (z<z1)or(z>z2) then begin
z:=2*z2-z;
dz:=-dz
end;
NextPos:=z
end;


begin
dx:=2;
dy:=1;
x1:=1;
y1:=1;
x2:=80-Length(s);
y2:=25;
x:=x1;
y:=y1;
repeat
GoToXY(x,y);
ClrEoL;
x:=NextPos(dx,x,x1,x2);
y:=NextPos(dy,y,y1,y2);
GoToXY(x,y);
Write(s);
Delay(100)
until KeyPressed;
while KeyPressed do ReadKey
end.

Delay на разных машинах работает по-разному, так что попробуй менять значения параметра в пределах от 1 до 10000 примерно..
Cherry
Я нашла только одну задачу про лампу.Она не подойдет.Пожалуйста, напишите еще задачи.Очень нужно smile.gif .Я в программировании слаба, но не хочется из-за этого терять стипендию wink.gif
мисс_граффити
ЧЕМ она не подойдет - полагаю, мы должны догадываться сами.
Раз в ход пошло решение денежных вопросов в сочетании с полным нежеланием что-то делать самой - полагаю, тему можно переносить в задачи на заказ?
Lapp
Хотелось бы знать не только, чем не подошла задача про лампу (какую лампу?.. почему бы не привести хотя бы ссылку??), но и чем не подошла моя программа (см. выше). Странный получается разговор с глухим.. Cherry, у тебя на мониторе буковки есть? ты их читаешь? а почему не отвечаешь?.. В следующий раз за игнорирование сообщений (неважно, чьих) тема будет закрыта.

PS
А на твою стипендию, нам, извини, наплевать. И если мы беремся тебе помочь, то только в надежде научить еще одного оболтуса хоть чему-то.. Не надо нас жалобить аргументами, что тебе кушать нечего будет - все равно ничего не выйдет. Прояви интерес или хотя бы веди нормальную беседу..

Добавлено через 1 мин.
И еще: пойми, не надо просить программистов помочь найти программу. Это все равно, что поймать такси и попросить водителя поймать тебе машину - бред.. Нужна помощь в программировании - пожалуйста. Искать - сама.
volvo
Cherry, программ с движением (кроме Лампы) было разобрано множество на форуме. В графике - это был и "прыгающий человечек", и "бешеный мячик", и "бильярд"... В текстовых режимах - была "движущаяся синусоида из столбиков", была "движущаяся строка", "змейки", наконец... Это навскидку, то что я вспомнил при прочтении названия темы...

Это что, все не подходит? Тогда ты просто неправильно задала вопрос. Надо было указывать критерии, по которым "подходит" или "не подходит" программа.

Или просто лень искать, и ты ждешь когда тебе ссылки дадут?
Cherry
Ну ребята что завелись!Поищу получше...Зашел к вам человек с просьбой помочь,а вы все накинулись сразу!В 1й раз же! rolleyes.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.