Движущийся текст ... :? |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Движущийся текст ... :? |
SMART |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Репутация: 0 |
Народ, срочно нужна помощь.....
Подскажите сылку где мона достать текст проги в которой напечатоное слово передвигалось бы по экрану С КАКИМИНИБУДЬ ЭФЕКТАМИ. У меня ето слово только по кругу ездиет и УСЕ . Если у когонибудь есть чтонибудь похожее, ПЛИЗ подскажите текст проги :-/ . ??? ??? ??? -------------------- Умная мысль может пpийти и к дуpаку. Hо с ее стоpоны это будет глупостью.
|
SMART |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 11 Репутация: 0 |
Tut u4ilka na menja vase naehala skazala eta rabota na edinitsu ne tjanet >:(... Nado stob v proge vse ezdilo, prigalo, migalo i krsivo bilo bi. Ja v Paskale ese zelenii i ne znaju 4e dobavit' stob hot' kak-to rabotala bi.
Pomogite kto mozet, v zaranee blagodarju! Vot tekst progi: Код Program xXx; Uses crt; const a:array[1..8] of char=('H','E','L','P',' ','M','E','!'); var i,j,x,y:integer; procedure vlevo; begin window(x,y,x+8,y); for i:=1 to 8 do begin text color(i); Write(a[i]); end; Window(x+8,y+2,x+9,y+2); for i:=1 to 8 do begin write(' '); end; delay(3000); end; procedure vpravo; begin window(x-1,y,x,y); for i:=1 to 8 do write(' '); Window(x,y,x+8,y); for i:=1 to 8 do begin text color(i); Write(a[i]); end; delay(3000); end; procedure vverh; begin window(x,y,x+8,y); for i:=1 to 8 do begin text color(i); Write(a[i]); end; Window(x,y+1,x+8,y+1); write(' '); {8 probelov} delay(3000); end; procedure vniz; begin window(x,y,x+8,y); for i:=1 to 8 do begin text color(i); Write(a[i]); end; window(x-1,y,x,y); for i:=1 to 8 do write(' '); delay(3000); end; begin randomize; clrscr; x:=37; for i:=1 to 8 do begin textcolor(i); If (i mod 2)=1 then for y:=1 to 15 do begin window(x+i,y,x+i,y); write(a[i]); window(x+1,y-1,x+1,y-1); write(' '); delay(3000); end; else begin for y:=30 down to 15 do begin window(x+i, y,x+i,y); write(a[i]); window(x+i,y+1,x+i,y+1); Write(' '); delay(3000); end; end; writeln; end; y:=15; for x:=37 down to 1 do vlevo; for y:=15 down to 1 do vverh; for x:=1 to 72 do vpravo; for y:=1 to 25 do vniz; for x:=72 down to 1 do vlevo; for y:=25 down to 15 do vverh; repeat textcolor(random(10)+1); window(x+10,y.x+24,y); write('help !!!'); until keypressed; readln end. Ispolzovat' mozno vse sto ugodno. Ja nemnogo razobralsa v tekste, no stob krasivo tekst po ekranu ezdil ne polu4aetsa (On ezdit kak-to haoti4no). P.S. Glavnoe stob bukvi ili uzor na ekrane ezdil, polzal ili migal ili sto ugodno v etom rode. (mne po4emu-to ni4e ne pridumat', navernoe menja obdelili s voobrazeniem :-/). Сообщение отредактировано: volvo - -------------------- Умная мысль может пpийти и к дуpаку. Hо с ее стоpоны это будет глупостью.
|
Текстовая версия | 4.06.2024 3:34 |