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

Заполнить матрицу четными случайными числами из заданного интервала

23.11.2009, 15:31. Просмотров 1330. Ответов 6
Метки нет (Все метки)

1)Заполнить двумерный массив 3х4 четными случайными числами из интервала [-40,10].Вывести массив на экран в виде таблицы.
2)Заполнить двумерный массив 4х2 целых чисел с помощью типизированной костанты.Вывести массив на экран в виде таблицы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2009, 15:31
Ответы с готовыми решениями:

Заполнить массив A[NxN] случайными числами. Развернуть матрицу на 180 градусов и полученную матрицу сложить с исходной.
Пожалуйста помогите написать программу. Заполнить массив A случайными числами. Развернуть...

Заполнить матрицу случайными числами
Заполнить матрицу случайными числами,поменять местами главную и побочную диагонали

Заполнить матрицу случайными числами
Заполнить матрицу случайными числами. Отобразить семметрично вертикальной оси секторы матрицы,...

Заполнить матрицу случайными числами
Помогите пожалуиста сделать матрцу 5Х5 со случайными числами от 0 да 9. Pascal.

6
752 / 545 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
23.11.2009, 15:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

вроде так...проверьте...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
a: array[1..3, 1..4]of integer;
i, j, k:integer;
 
begin clrscr;
for i:=1 to 3 do
for j:=1 to 4 do 
 begin
    k:=random(10)-50;
    if k mod 2= 0 then a[i,j]:=k;
 end;
for i:=1 to 3 do
for j:=1 to 4 do
writeln(a[i,j], '');
readkey;
end.
Добавлено через 4 минуты
Pascal
1
k:=10-random(50); //так правильно...
1
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
23.11.2009, 15:50 3
Тамила,

Не по теме:

А хде же

Pascal
1
VAR
??

1
Тамила
23.11.2009, 15:51
  #4

Не по теме:

он подразумевается...)))

1
0 / 0 / 0
Регистрация: 21.10.2009
Сообщений: 17
23.11.2009, 17:37  [ТС] 5
Спасибо)))
0
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
23.11.2009, 17:40 6
используйте для вывода матрицы
Pascal
1
2
3
4
5
6
for i:=1 to 3 do
begin
for j:=1 to 4 do
write(a[i,j]:4)
writeln;
end;
0
134 / 47 / 11
Регистрация: 27.05.2008
Сообщений: 246
23.11.2009, 18:06 7
Тамила, примерно половина нулей получится... Из-за отсутствия ветки else:
if k mod 2= 0 then a[i,j]:=k;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2009, 18:06

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

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

Заполнить очередь 8 вещественными случайными числами из интервала [-2,2]
Заполнить очередь 8 вещественными случайными числами из интервала . Найти частное 1 и максимального...

Заполнить массив случайными четными числами в диапазоне от 2 до 98
Здравствуйте, помогите сделать: "Заполнить массив из 30 элементов случайными четными числами в...

Заполнить двумерный массив N x N случайными числами из интервала [-10;10] и найти минимальный элемент в каждом столбце.
2.Заполнить двумерный массив N x N случайными числами из интервала и найти минимальный элемент в...

Заполнить двумерный массив N x N случайными числами из интервала [-10;10] и найти максимальный элемент в каждой строке.
1. Заполнить двумерный массив N x N случайными числами из интервала и найти максимальный элемент...

Заполнить очередь 15 случайными числами из интервала [0;100]. Найти среднее арифметическое нечетных чисел
Заполнить очередь 15 случайными числами из интервала . Найти среднее арифметическое нечетных...


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

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

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