19.11.2011, 12:22 | #1 (permalink) |
Member
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
|
Помогите решить
язык delphi |
19.11.2011, 12:22 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема имеет сходства с этими топиками, пожалуйста, пролистайте их Помогите решить задачу) Помогите решить задачи на C++ Помогите решить задачу Помогите решить в Паскале Помогите решить |
19.11.2011, 21:51 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не понял, как может быть
min(a(1)+a(2)+...+a(k)), т.е минимум от фиксированной суммы? Может быть min(a(1), a(2), ..., a(k))? |
19.11.2011, 22:13 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
max(min(a1,a2,...,ak),min(ak+1,ak+2,...,a2k),...,m in(ak(n-1)+1, ...,akn)) Так? Теперь вот что. Всё, что могу предложить - решение на Паскале. Если справитесь самостоятельно с Дельфийскими обвесками (модулями, формами, вводом-выводом и т.п.) то - пожалуйста. Если нет, то подождем: может, кто-нибудь из дельфистов возьмется. |
|
19.11.2011, 22:30 | #5 (permalink) |
Member
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
|
То что после а идет это индекс а....да на паскале пойдет
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.11.2011, 22:56 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну раз пойдет, то - пожалуйста:
Код:
CONST k=5; n=7; VAR a:Array[1..k*n] of Real; Min:Array[1..n] of Real; Max:Real; i,j:Integer; BEGIN Randomize; For i:=1 to k*n do begin a[i]:=random*100; write(a[i]:8:3); if (i mod k)=0 then writeln; end; writeln; writeln; For i:=1 to n do begin Min[i]:=a[(i-1)*k+1]; For j:=2 to k do If a[(i-1)*k+j]<Min[i] then Min[i]:=a[(i-1)*k+j]; write(Min[i]:8:3); end; writeln; writeln; Max:=Min[1]; For i:=2 to n do If Min[i]>Max then Max:=Min[i]; Writeln(Max:8:3); Readln END. |
19.11.2011, 23:04 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|