Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 585

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Здравствуйте!
Проблема такая.
Нигде в интернете не найти решения на 2 простые задачи.
Уже неделю упёрся головой в стену.Помогите решить задачи?
1 Задача..Для заданной матрицы F вычислить среднее арифметическое значение элементов каждого столбца.Исходную матрицу вывести в общепринятом виде.Результаты вывести в виде строки
2 Задача. В заданной матрице D найти наибольший и наименьший элементы ипоместить их на место первого и последнего элемента матрицы соответственно.Исходную и полученную матрицу вывести в общепринятом виде.
Буду очень благодарен если вы справитесь с поставленой задачей.Решение весьма интересно.

Elizzart Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Elizzart (статус: Посетитель)
Вопрос отправлен: 14 мая 2008, 22:09
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Когда мне на работе делать нечего, я люблю писать чужие лабы по программированию. Особенно, за деньги! :)))
Смотри пример в приложении.

Приложение:
  1. {
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8. }
  9.  
  10. program p1585;
  11.  
  12. {$APPTYPE CONSOLE}
  13.  
  14. uses
  15. SysUtils;
  16.  
  17. const
  18.  
  19.  
  20.  
  21. type
  22.  
  23.  
  24. TMatrix = array[0..Rows - 1, 0..Cols - 1] of Integer;
  25.  
  26.  
  27. procedure RandomMatrix(var M: TMatrix);
  28. var
  29. i, j: Integer;
  30. begin
  31. for i:= 0 to Rows - 1 do
  32. for j:= 0 to Cols - 1 do
  33. M[i, j]:= Random(256) - 127;
  34. end;
  35.  
  36.  
  37.  
  38. procedure Matrix2Screen(const M: TMatrix);
  39. var
  40. i, j: Integer;
  41. begin
  42. WriteLn;
  43.  
  44. for i:= 0 to Rows - 1 do
  45. begin
  46. for j:= 0 to Cols - 1 do
  47. Write(M[i, j]: 8);
  48.  
  49. WriteLn;
  50. end;
  51.  
  52. WriteLn;
  53. end;
  54.  
  55. var
  56. F, D: TMatrix;
  57. i, j: Integer;
  58.  
  59.  
  60.  
  61. begin
  62. Randomize();
  63. DecimalSeparator:= '.';
  64.  
  65.  
  66.  
  67.  
  68. WriteLn(' ------- Task #1 -------');
  69. RandomMatrix(F);
  70. Matrix2Screen(F);
  71.  
  72.  
  73.  
  74. begin
  75.  
  76.  
  77. for i:= 0 to Rows - 1 do
  78.  
  79.  
  80.  
  81. Write(FormatFloat('0.0', ColSum / Rows): 8);
  82. end;
  83.  
  84. WriteLn(' -- Average values ');
  85. Write(#13#10#13#10' Press "return" to continue...');
  86. ReadLn;
  87.  
  88.  
  89.  
  90.  
  91.  
  92. WriteLn(' ------- Task #2 -------');
  93. RandomMatrix(D);
  94. Matrix2Screen(D);
  95.  
  96.  
  97.  
  98.  
  99.  
  100. for i:= 0 to Rows - 1 do
  101. for j:= 0 to Cols - 1 do
  102. begin
  103.  
  104. if D[i, j] > Max
  105. then Max:= D[i, j];
  106.  
  107.  
  108. if D[i, j] < Min
  109. then Min:= D[i, j];
  110. end;
  111.  
  112. WriteLn(#13#10' Max = ', Max, ', Min = ', Min);
  113.  
  114.  
  115.  
  116. D[0, 0]:= Max;
  117. D[Rows - 1, Cols - 1]:= Min;
  118. Matrix2Screen(D);
  119.  
  120. Write(#13#10#13#10' Press "return" to exit...');
  121. ReadLn;
  122. end.
  123.  


Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 15 мая 2008, 09:07


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 16 мая 2008, 22:12; участников в обсуждении: 3.
Вадим К

Вадим К (статус: Академик), 15 мая 2008, 01:23 [#1]:

Задачи действительно просты. И в интерненте не найти, так как задачки по курсу программирования, самое начало.
Найти среднее арифметическое? просумировать и подилеть на количество? Неуж так сложно?.
Вторая задача на поиск максимуму и минимуму. Этот алгоритм точно есть в интерненте.
А решение не интересное, а банальное. Даже не интересно писать.
Галочка "подтверждения прочтения" - вселенское зло.
Матвеев Игорь Владимирович

Матвеев Игорь Владимирович (статус: Студент), 15 мая 2008, 09:27 [#2]:

Странно, это должен уметь написать любой школьник, хоть сколько-нибудь знакомый с программированием. Если не секрет - где Вы учитесь?
Elizzart

Elizzart (статус: Посетитель), 16 мая 2008, 22:07 [#3]:

Лабы необходимо было сдать спустя 6 часов как я опубликовал вопрос.Ну ничего.
Я написал уже несколько программ.Но на этих двух у меня голова просто не варит в день сдачи.Delphi изучаю уже 2 месяца.Студент.Учусь в Но........ке.Сейчас буду изучать полученный ответ...........
Elizzart

Elizzart (статус: Посетитель), 16 мая 2008, 22:12 [#4]:

Спасибо за ответ Метвеев Игорь Владимирович ,но
Ещё 1 проблема!!!!Задачи я сделал в Pascal уже как месяц назад,а как быть с Дельфи-проблема в заключается в нём?
Это форум по Pascal?

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 21:04
Выполнено за 0.03 сек.
Рейтинг@Mail.ru