02.09.2017, 15:21 | #1 (permalink) |
Новичок
Регистрация: 04.02.2017
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа на Паскале
Помогите пожалуйста const N=5; var b,c,i,j,s,k:integer; A:array[1..N,1..N] of integer; begin writeln; for i:=1 to N do begin for j:=1 to N do begin if(j>1) and (i>1) and (i<N)and (j<N) then A[i,j]:=0 else A[i,j]:=1; if A[i,j]=1 then write ('*') else write (' '); end; writeln; end; end. |
02.09.2017, 15:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте не будем терять время зря, а обратим внимание на сходные темы Программа в Паскале Программа на паскале Программа на Паскале Программа на Паскале |
02.09.2017, 19:08 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
И в том, и в другом (текстовом и графическом) случаях программирование "движения" сводится к следующему алгоритму: 1. Считывание нажатой клавиши (команда ReadKey модуля CRT); 2. Смена цвета на цвет фона (черный или белый); 3. Повторное рисование фигуры в текущих координатах. При этом она (фигура), естественно, исчезнет, слившись с фоном. 4. Восстановление исходного цвета. 5. Повторное рисование фигуры относительно новой точки привязки, определяемой считанной буквой. Всё это, естественно, должно быть зациклено, причем нужно предусмотреть выход из цикла (например, путём связывания его с какой-нибудь пятой буквой). И да, укажите, о каком Паскале идёт речь. Turbo? Free? ABC? |
|
02.09.2017, 22:20 | #3 (permalink) | |
Member
Регистрация: 19.07.2017
Адрес: Украииа
Сообщений: 3,599
Сказал(а) спасибо: 50
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 23905
|
Тут модуль CRT нужен в обязательном порядке, и легко сделать передвижение, я сделал при помощи клавиш 1, 2, 3 и 4. На нужные клавиши - переделай сам. Расширение txt поменять на pas, там есть две лишние команды. я их использовал для настройки. На работу они не повлияют, но желательно их удалить.
Цитата:
Последний раз редактировалось derba; 02.09.2017 в 22:30 |
|
03.09.2017, 19:07 | #4 (permalink) | |
Member
Регистрация: 19.07.2017
Адрес: Украииа
Сообщений: 3,599
Сказал(а) спасибо: 50
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 23905
|
А лучше использовать команду window, ее можно легко двигать, я когда то подобное делал. и под клавиши управления курсором.
вот текст под клавиши wasd. Цитата:
Последний раз редактировалось derba; 03.09.2017 в 19:12 |
|
03.09.2017, 23:07 | #5 (permalink) |
Новичок
Регистрация: 04.02.2017
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Большое!)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal abc, помощь студентам |
|
|