Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/40: Рейтинг темы: голосов - 40, средняя оценка - 4.58
0 / 0 / 0
Регистрация: 14.10.2015
Сообщений: 17
1

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

14.10.2015, 21:16. Просмотров 7831. Ответов 8
Метки нет (Все метки)

Составить программу,заполняющую двумерный массив,состоящий из 8 строк и 10 столбцов случайными числами,и выводящую его на экран в форме таблицы.Элементы,стоящие на пересечении четных строк с четными столбцами, выделить другим цветом.

Помогите выделить элементы цветом

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const
    n = 10;//строки
    m=8;//столбцы
 
 
var
   
a: array[1..n,1..m] of integer;
 i,j:integer;
 begin
        
        randomize;
        for i := 1 to n do
        for j:=1 to m do
        a[i,j] := random (9);
            
            
  for i := 1 to n do
  for j:=1 to m do
        if (i mod 2) = 0 then
  
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2015, 21:16
Ответы с готовыми решениями:

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

Заполнить матрицу случайными числами и вывести на экран максимальный элемент
Написать матрицу 3х5 заполнить ее датчиком случайных чисел, вывести на экран, а потом вывести на...

Заполнить вектор из 20 элементов случайными числами в интервале [-15;10] и вывести его на экран.
Заполнить вектор из 20 элементов случайными числами в интервале и вывести его на экран. Найти...

Заполнить массив случайными числами и вывести на экран элементы, значения которых больше 5 и меньше 15
составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 20 и...

8
Модератор
62266 / 46545 / 32087
Регистрация: 18.05.2008
Сообщений: 112,522
14.10.2015, 21:37 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;
const
    n = 10;//строки
    m=8;//столбцы
var
    a: array[1..n,1..m] of integer;
    i,j:integer;
begin
randomize;
for i := 1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    if(i mod 2=0)and(j mod 2=0) then textcolor(12)
    else textcolor(0);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.
0
0 / 0 / 0
Регистрация: 14.10.2015
Сообщений: 17
14.10.2015, 21:42  [ТС] 3
Здесь все красное,а надо чтобы элемент на четной строке и четном столбце
0
Модератор
62266 / 46545 / 32087
Регистрация: 18.05.2008
Сообщений: 112,522
14.10.2015, 21:45 4
Цитата Сообщение от poopy Посмотреть сообщение
Здесь все красное,
Вы не дальтоник?
0
Миниатюры
Заполнить матрицу случайными числами и вывести на экран  
Модератор
62266 / 46545 / 32087
Регистрация: 18.05.2008
Сообщений: 112,522
14.10.2015, 21:49 5
Pascal
1
2
 if(i mod 2=0)and(j mod 2=0) then textcolor(12)
    else textcolor(0);
Ну если не отличаете светло красный от черного, напишите другие номера цветов от 0 до 14.
0
1 / 1 / 2
Регистрация: 13.08.2015
Сообщений: 20
14.10.2015, 22:28 6
У него не показывает, т.к в консольном окне запускается, следовательно чёрный на чёрном, но поменять цвет и всё хорошо.
0
Модератор
62266 / 46545 / 32087
Регистрация: 18.05.2008
Сообщений: 112,522
15.10.2015, 06:47 7
Цитата Сообщение от koksh9 Посмотреть сообщение
следовате
Цитата Сообщение от koksh9 Посмотреть сообщение
следовательно чёрный на чёрном
Но в АВС фон окна белый.
0
1 / 1 / 2
Регистрация: 13.08.2015
Сообщений: 20
15.10.2015, 22:10 8
Может abc.NET стоит. У меня без консоли запустить не даёт.
0
Модератор
62266 / 46545 / 32087
Регистрация: 18.05.2008
Сообщений: 112,522
16.10.2015, 07:00 9
Цитата Сообщение от koksh9 Посмотреть сообщение
Может abc.NET стоит.
Может, тогда и тему нужно создавать в том разделе, а не путать.
Без консоли с Crt не запустится.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2015, 07:00

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

Заполнить одномерный массив m[n] случайными целыми числами от a до b и вывести его на экран.Значения a,b,c,d,n взять из таблицы.
Заполнить одномерный массив m случайными целыми числами от a до b и вывести его на экран.Значения...

Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами
Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными...

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

Заполнить матрицу случайными числами и транспонировать ее
Заполнить двумерный массив 3x4 случайными целыми числами в диапазоне от 30 до 90. Вывести...


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

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

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