|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
25.04.2013, 20:33 | #1 (permalink) | ||
Новичок
Регистрация: 25.04.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Упорядочение строк матрицы
|
||
25.04.2013, 20:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Стоит отметить, что ваш топик аналогичен с этими топиками, по этому хорошо было бы прочитать их содержимое Обработка символов и строк на языке Pascal Чтение строк из текстового файла СИ Обработка символьных строк |
26.04.2013, 09:53 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const M=9; N=8; Type V=Array[1..N] of Real; Var A:Array[1..M] of V; i,j:Byte; Procedure Order(Z1:V; var Z2:V); var W:V; q,p:Byte; d:Real; begin W:=Z1; For q:=1 to N-1 do For p:=1 to N-q do If W[p]>W[p+1] then begin d:=W[p]; W[p]:=W[p+1]; W[p+1]:=d; end; Z2:=W; end; Function Elm(r,t:byte):Real; var c:byte; fct:Real; begin fct:=1; for c:=1 to r do fct:=fct*c; Elm:=Ln(fct)+0.5*t/r; end; Begin Writeln('Initial array:'); For i:=1 to M do begin For j:=1 to N do begin A[i][j]:=Elm(i,j); write(A[i][j]:8:2); end; writeln; end; Writeln('Ordered array:'); For i:=M downto M-2 do Order(A[i],A[i]); For i:=1 to M do begin For j:=1 to N do write(A[i][j]:8:2); writeln; end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|