Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.03.2009
Сообщений: 15
1

Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4

08.04.2009, 14:21. Просмотров 1884. Ответов 7
Метки нет (Все метки)

Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4 так, чтобы по горизонтали, вертикали и диагонали не было одинаковых рядом стоящих чисел.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2009, 14:21
Ответы с готовыми решениями:

Заполнить матрицу четными случайными числами из заданного интервала
1)Заполнить двумерный массив 3х4 четными случайными числами из интервала .Вывести массив на экран в...

Заполнить матрицу размера М*N случайными числами. Вычислить сумму минимального и максимального элементов матрицы.
Помогите пожалуйста

Заполните квадратную матрицу заданного размера числами из данного файла
Пусть дан файл целых чисел. Заполните квадратную матрицу заданного размера числами из этого файла....

Заполнить матрицу заданного размера числами 1,2,3,4 так, чтобы по горизонтали, вертикали и диагонали не было одинаковых рядом стоящих чисел.
Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4 так, чтобы по горизонтали, вертикали и...

7
Модератор
61602 / 46121 / 31832
Регистрация: 18.05.2008
Сообщений: 111,183
08.04.2009, 14:44 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a:array[1..50,1..50] of byte;
    k,l,i,j:byte;
begin
clrscr;
write('k=');readln(k);
write('l=');readln(l);
for i:=1 to k do
  begin
    for j:=1 to l do
      begin
        if odd(i)and odd(j)then a[i,j]:=1  {odd(i)-нечетный, наоборот-четный}
        else if odd(i)and not odd(j)then a[i,j]:=2
        else if not odd(i)and odd(j)then a[i,j]:=3
        else a[i,j]:=4;
        write(a[i,j]:3);
      end;
    writeln;
  end;
readln
end.
0
0 / 0 / 0
Регистрация: 06.03.2009
Сообщений: 14
26.03.2010, 00:09 3
Можно ли по другому решить эту задачу?
0
Модератор
61602 / 46121 / 31832
Регистрация: 18.05.2008
Сообщений: 111,183
26.03.2010, 06:11 4
Для любой матрицы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program a11;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     if j<=n-i+1 then a[i,j]:=j+i-1
     else a[i,j]:=i+j-1-n;
     write(a[i,j]:4);
    end;
   writeln;
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 06.03.2009
Сообщений: 14
27.03.2010, 22:12 5
А чтобы 1,2,3 , 4 только. А не другие значения?
0
Модератор
61602 / 46121 / 31832
Регистрация: 18.05.2008
Сообщений: 111,183
27.03.2010, 22:22 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program a11;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     case (i+j)mod 4 of
     0:a[i,j]:=1;
     1:a[i,j]:=2;
     2:a[i,j]:=3;
     3:a[i,j]:=4;
     end;
     write(a[i,j]:4);
    end;
   writeln;
 end;
readln
end.
2
0 / 0 / 0
Регистрация: 06.03.2009
Сообщений: 14
01.04.2010, 08:30 7
А прога неправильно работает. Там есть цифры ближайшие одинаковыее
0
Модератор
61602 / 46121 / 31832
Регистрация: 18.05.2008
Сообщений: 111,183
01.04.2010, 08:41 8
David_i, Тебе что нужно? Ты сам возьми и напиши как надо. А то тебе то, то вдруг раз, и это.
Чем тебя первый вариант не устраивает? Я написал так, как просил автор. Нужно тебе что-то, создавай тему и излагай человеческим языком суть задачи. И хорош флудить. Тема закрыта.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2010, 08:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заполнить массив заданного размера нечётными числами в указанном диапазоне
Заполнить массив из 50-ти элементов нечётными числами от 1 до 99. нужно использовать остаток от...

Процедура заполняющая прямоугольню матрицу заданного размера случайными числами от 0 до1
Процедура заполняющая прямоугольню матрицу заданного размера случайными числами от 0 до1. У меня...

Заполнить матрицу натурал.числами 1..N*N, где N-размер матрицы. в программе предусмотреть возможность изменения размера матрицы.
Помогите пожалуйста решить задачку по делфи: Заполнить матрицу натурал.числами 1..N*N, где...

Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывести матрицу на экран
Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывыести матрицу на экран....

Заполнить матрицу случайными числами. Вернуть матрицу на 90o по часовой стрелке
Заполнить матрицу случайными числами. Вернуть матрицу на 90o по часовой стрелке.

Заполнить матрицу случайными числами. Развернуть матрицу на 90(градусов) против часовой стрелки
Заполнить матрицу случайными числами. Развернуть матрицу на 90o против часовой стрелки


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.