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

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

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

> Задачи на матрицы (двумерные массивы), 6 задач.
Леха
сообщение 17.12.2004 19:04
Сообщение #1


Гость






1.Создать 2-х мерный массив 20х15 целых чисел заданных через randomize и найти их сумму.
2.Создать матрицу 5х5 значение каждого элемента = сумме № строки и столбца на пересечении которого он находиться. Вычислить сумму элементов каждой строки.
3.Создать 2-х мерный массив 4х4 и найти максимальный по абсолютному значению а также укажите номер строки и столбца содержащие этот элемент.
4.Создать 2-х мерный массив через randomize и определите и определите есть ли в нем элементы с одинаковым значением
5.Создать 2-х мерный массив вещественных чисел 3х5 выведите на экран затем разделить каждый элемент на среднее арифметическое значение элементов строки в котором они расположены.
6.Создайте программу проверяющую образуют ли элементы массива "Магический квадрат".(маг. квадрат- суммы по всем горизонталям вертикалям и 2-ум диагоналям - равны
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
mithquessir
сообщение 17.12.2004 22:52
Сообщение #2


Гость






5. (Если я правильно понял условие) smile.gif
Код

const
 n = 3;
 m = 5;
var
 a:array[1..n,1..m] of real;
 i,j:integer;
 sum,mdl:real;
begin
 for i := 1 to n do
   for j := 1 to m do
     begin
       a[i,j] := random;
     end;
 for i := 1 to n do
   begin
     WriteLn;
     for j := 1 to m do
       Write(a[i,j]:4:3,' ');
   end;
 for i := 1 to n do
   begin
     sum := 0;
     for j := 1 to m do
       sum := sum + a[i,j];
     mdl := sum/m;
     for j := 1 to m do
       a[i,j] := a[i,j] / mdl;
   end;
end.
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



- Текстовая версия 20.07.2025 4:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"