|
Вопрос # 1 585/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Здравствуйте!
Проблема такая.
Нигде в интернете не найти решения на 2 простые задачи.
Уже неделю упёрся головой в стену.Помогите решить задачи?
1 Задача..Для заданной матрицы F вычислить среднее арифметическое значение элементов каждого столбца.Исходную матрицу вывести в общепринятом виде.Результаты вывести в виде строки
2 Задача. В заданной матрице D найти наибольший и наименьший элементы ипоместить их на место первого и последнего элемента матрицы соответственно.Исходную и полученную матрицу вывести в общепринятом виде.
Буду очень благодарен если вы справитесь с поставленой задачей.Решение весьма интересно.
 |
Вопрос задал: Elizzart (статус: Посетитель)
Вопрос отправлен: 14 мая 2008, 22:09
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Когда мне на работе делать нечего, я люблю писать чужие лабы по программированию. Особенно, за деньги! :)))
Смотри пример в приложении.
Приложение: Переключить в обычный режим- {
-
-
-
-
-
-
- }
-
- program p1585;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
-
- const
-
-
-
- type
-
-
- TMatrix = array[0..Rows - 1, 0..Cols - 1] of Integer;
-
-
- procedure RandomMatrix(var M: TMatrix);
- var
- i, j: Integer;
- begin
- for i:= 0 to Rows - 1 do
- for j:= 0 to Cols - 1 do
- M[i, j]:= Random(256) - 127;
- end;
-
-
-
- procedure Matrix2Screen(const M: TMatrix);
- var
- i, j: Integer;
- begin
- WriteLn;
-
- for i:= 0 to Rows - 1 do
- begin
- for j:= 0 to Cols - 1 do
- Write(M[i, j]: 8);
-
- WriteLn;
- end;
-
- WriteLn;
- end;
-
- var
- F, D: TMatrix;
- i, j: Integer;
-
-
-
- begin
- Randomize();
- DecimalSeparator:= '.';
-
-
-
-
- WriteLn(' ------- Task #1 -------');
- RandomMatrix(F);
- Matrix2Screen(F);
-
-
-
- begin
-
-
- for i:= 0 to Rows - 1 do
-
-
-
- Write(FormatFloat('0.0', ColSum / Rows): 8);
- end;
-
- WriteLn(' -- Average values ');
- Write(#13#10#13#10' Press "return" to continue...');
- ReadLn;
-
-
-
-
-
- WriteLn(' ------- Task #2 -------');
- RandomMatrix(D);
- Matrix2Screen(D);
-
-
-
-
-
- for i:= 0 to Rows - 1 do
- for j:= 0 to Cols - 1 do
- begin
-
- if D[i, j] > Max
- then Max:= D[i, j];
-
-
- if D[i, j] < Min
- then Min:= D[i, j];
- end;
-
- WriteLn(#13#10' Max = ', Max, ', Min = ', Min);
-
-
-
- D[0, 0]:= Max;
- D[Rows - 1, Cols - 1]:= Min;
- Matrix2Screen(D);
-
- Write(#13#10#13#10' Press "return" to exit...');
- ReadLn;
- end.
-
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 15 мая 2008, 09:07
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 16 мая 2008, 22:12; участников в обсуждении: 3.
|
Вадим К (статус: Академик), 15 мая 2008, 01:23 [#1]:
Задачи действительно просты. И в интерненте не найти, так как задачки по курсу программирования, самое начало.
Найти среднее арифметическое? просумировать и подилеть на количество? Неуж так сложно?.
Вторая задача на поиск максимуму и минимуму. Этот алгоритм точно есть в интерненте.
А решение не интересное, а банальное. Даже не интересно писать.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
Матвеев Игорь Владимирович (статус: Студент), 15 мая 2008, 09:27 [#2]:
Странно, это должен уметь написать любой школьник, хоть сколько-нибудь знакомый с программированием. Если не секрет - где Вы учитесь?
|
|
|
Elizzart (статус: Посетитель), 16 мая 2008, 22:07 [#3]:
Лабы необходимо было сдать спустя 6 часов как я опубликовал вопрос.Ну ничего.
Я написал уже несколько программ.Но на этих двух у меня голова просто не варит в день сдачи.Delphi изучаю уже 2 месяца.Студент.Учусь в Но........ке.Сейчас буду изучать полученный ответ...........
|
|
|
Elizzart (статус: Посетитель), 16 мая 2008, 22:12 [#4]:
Спасибо за ответ Метвеев Игорь Владимирович ,но
Ещё 1 проблема!!!!Задачи я сделал в Pascal уже как месяц назад,а как быть с Дельфи-проблема в заключается в нём?
Это форум по Pascal?
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
