|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.06.2013, 15:49 | #1 |
Регистрация: 02.06.2013
Сообщений: 3
|
исправьте ошибке в этой программе так чтобы она работала как в задании:
Обработать матрицу, элементами которой являются случайные значения функции f(x)= 10/(1+x2); x [-50;50]. Дана матрица S(14,14). Найти в каждой строке максимальный элемент и поменять его местами с элементами главной диагонали. Напечатать исходную и полученную матрицы.
const n = 14; var mas: array[1..n, 1..n] of real; f, x, i, j, max2: integer; max, c: real; begin for i := 1 to n do for j := 1 to n do begin x := random(50); mas[i, j] := 10 / (1 + x * 2); //mas[i, j] := random(0, 9); end; for i := 1 to n do begin for j := 1 to n do Write(mas[i, j]:6:2); Writeln; end; i := 1; repeat max := mas[i, j]; for j := 1 to n do if mas[i, j] >= max then begin max := mas[i, j]; max2 := j; end; mas[i, max2] := mas[i, i]; mas[i, i] := max; inc(i); until i = n; Writeln; Writeln; for i := 1 to n do begin for j := 1 to n do Write(mas[i, j]:6:2); Writeln; end; end. |
06.06.2013, 16:14 | #2 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
А сами что? Пробуйте сами. Пошаговая трассировка, ИМХО, очень полезный инструмент.
|
06.06.2013, 17:02 | #3 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,323
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
переделайте задачу, чтобы она работала через одну процедуру. | Proskurina | Помощь студентам | 4 | 23.11.2012 23:33 |
Как сделать так чтобы приложение базы данных работала на компьютерах без установленной программы delphi? | Даниил_глазко | БД в Delphi | 6 | 09.11.2010 16:26 |
пграмма совершает аварийное прерывание.как сделать так чтобы она работала нормально? | Екатерина3439 | Общие вопросы C/C++ | 8 | 24.06.2010 00:27 |