|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.01.2010, 10:20 | #1 |
Регистрация: 13.12.2009
Сообщений: 4
|
Исправить уже написанную программу
Есть прога но её надо доделать: program massiv;
uses Crt; const n=3; m=5; type matrix = array[1..n,1..m] of real; var a : matrix; I, J, maxI : integer; p,k,max: real; begin writeln(' Исходный массив A: '); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(51)-25; write(a[i,j]:5:1,' '); end; writeln; end; max:=A[i,4]; maxI:=i; for I:=1 to n do if max<A[i,2] then begin max:=A[I,2]; maxI:=i; end; writeln('Наибольший элемент чётных столбцов: ',max); p:=8.3; for i:=1 to n do p:=p+(1+cos(1-1/a[i,4])); writeln('p = ',p); A[maxi,5]:=max; for I:=1 to 3 do begin for J:=1 to 5 do write(A[i,j]:5:1,' '); writeln; end; end. Нужно подправить ту часть в которой ищется наибольший элемент чётных столбцов, потому что она работает непостоянно, т. е не всегда находит наибольший. |
27.01.2010, 12:49 | #2 | |
FORTRAN programmer
Форумчанин
Регистрация: 08.12.2009
Сообщений: 153
|
Цитата:
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi(подправить написанную программу) | Квио | Общие вопросы Delphi | 1 | 23.09.2009 08:02 |
подскажите пожалуйста!можно ли программу написанную на Делфи использовать в Free Pascale? | andreww | Помощь студентам | 6 | 27.05.2009 17:06 |
Как протестировать написанную программу? | Сергей089 | Общие вопросы Delphi | 6 | 05.12.2008 18:01 |
Как запустить программу, написанную на С#? | Winter | Общие вопросы .NET | 1 | 18.11.2007 13:39 |