IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите написать небольшую програмку, Шахматная Доска
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


Буду очень благодарен, если вы хоть как-то мне поможете с написанием данной программы:
задача:"Шахматная Доска"
Целочисленный массив K размером m x n заполнить нулями и единицами, расположив их в шахматном порядке.
(смысл: при запуске проги в окне должны появиться строчки с чередованием единиц и нулей
10101010
01010101
и т.д.
причем, количество строк и столбцов все время меняется и ограничено десятью).


Заранее всем благодарен!

Сообщение отредактировано: Acer -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Проще:
a[1,1]:=1;
a[1,2]:=0;
...
a[1,n]:=0;
a[2,1]:=0;
...
a[2,1]:=1;
...
И так много раз, в зависимости от размера массива: Кол-во операторов = m*n






Добавлено через 2 мин.
Цитата(volvo @ 21.05.2007 21:02) *

Главное - чтобы потом тебе не понадобилось сделать программу без циклов и Randomize...

lol.gif rolleyes.gif lol.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Acer   Помогите написать небольшую програмку   18.05.2007 15:35
klem4   Поиском не пробовал воспользоваться ? Задача решал…   18.05.2007 15:37
volvo   Так что-ли? var i, j, n: integer; start: integ…   18.05.2007 15:39
Acer   klem4, спасибо, но я не совсем понял то, что в про…   18.05.2007 15:48
volvo   Тогда вот так: var i, j, n, m: integer; start:…   18.05.2007 16:29
Acer   Спасибо! З.Ы. только что такое odd?   18.05.2007 16:32
volvo   Функция такая... Вернет True, если ее аргумент - н…   18.05.2007 16:42
Acer   Хм....в смысле true?   18.05.2007 16:43
volvo   Чего, про тип Boolean никогда не слышал? Допустим,…   18.05.2007 16:47
Acer   Ааа, понял. Сразу не врубился. Огромное Спасибо…   18.05.2007 16:51
Acer   Владимир, не могли бы вы мне еще помочь. Можно ли …   21.05.2007 23:28
volvo   var i, j, n, m: integer; begin randomize; m…   22.05.2007 0:02
Acer   Спасиб. А без циклов сложнее и длиннее будет?   22.05.2007 0:24
Ozzя   Проще: a[1,1]:=1; a[1,2]:=0; ... a[1,n]:=0; a[2,1]…   22.05.2007 14:06
Sto   Проще: [code=pas]a[1,1]:=1; a[1,2]:=0; ... a[1,n]…   22.05.2007 14:16
Ozzя   Sto Я не об этом. :no1: Я об этом -   22.05.2007 14:21
Sto   Sto Я не об этом. :no1: Я об этом - А, ну тогда…   22.05.2007 14:48
Acer   Подскажите, что такое mod? write(((i + j + 1) mod …   22.05.2007 20:32
Sto   Подскажите, что такое [b]mod? write(((i + j + 1) …   22.05.2007 20:43
Acer   Спасибо за объяснение. :)   22.05.2007 21:45
Acer   Хз...тогда другой вопрос: смысл mod в этой проге?   22.05.2007 22:15
compiler   Хз...тогда другой вопрос: смысл mod в этой проге? …   22.05.2007 22:19
Acer   Так у нас единицы и нули. На четность столбцы и ст…   22.05.2007 22:28
Sto   Идет вывод 1 и 0 for i := 1 to m do begin fo…   22.05.2007 22:48
Acer   Потрясающе. Я бы до такого не додумался. Спасибо, …   22.05.2007 23:03


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name