Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2014, 10:36   #1
Иван99
Новичок
Джуниор
 
Регистрация: 06.02.2014
Сообщений: 2
По умолчанию Как решить задачу на тему матрицы

Здравствуйте!
По информатике задали задание. Не могу сделать. Помогите, пожалуйста.
Дан двумерный массив размерностью 100Х100 элементов. Пользователь вводит число 0<=k<=99 для заполнения части массива 0 и 1 следующим образом:
5
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0

Последний раз редактировалось Иван99; 06.02.2014 в 10:39.
Иван99 вне форума Ответить с цитированием
Старый 06.02.2014, 10:53   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Что именно не получается? Какой язык программирования?

Учтите: здесь, возможно, найдется альтруист, который решит эту задачу за Вас, но вероятнее всего, ждать его придется оооооооочень долго.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 06.02.2014, 11:19   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

господя... да что ж тут решать то:
Код:
const MaxSize = 100;
var 
  A : array[0..MaxSize-1,0..MaxSize-1] of byte;
  k,  i, j : integer;
begin
  repeat
    WriteLn('Введите размер массива (от 0 до ',MaxSize-1,') : ');
    Readln(K);
 until (K>=0) and (K<MaxSize);
 for i:=0 to K-1 do
   for j:=0 to K-1 do
     A[i,j] := (i+j) mod 2;

 {вывести полученный массив на экран} 
 for i:=0 to K-1 do begin
   for j:=0 to K-1 do  Write(A[i,j],' ');
   WriteLn;
 end;

 Readln
end.
p.s. писал на форуме, не проверял!


p.p.s. хотел бы я посмотреть, как выглядит массив при K = 0

Последний раз редактировалось Serge_Bliznykov; 06.02.2014 в 11:21.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.02.2014, 13:21   #4
Иван99
Новичок
Джуниор
 
Регистрация: 06.02.2014
Сообщений: 2
По умолчанию

Спасибо большое за помощь!
Иван99 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решить задачу на тему системы счисления Dijes Помощь студентам 30 14.01.2014 21:00
Помогите решить задачу ан тему: Указатели, строки, функции обработки строк Chel Общие вопросы C/C++ 3 11.10.2009 19:48
Помогите решить задачу на тему - Файлы. Pascal. Impulsive Паскаль, Turbo Pascal, PascalABC.NET 4 23.02.2008 11:55