Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 19.11.2011, 12:22   #1 (permalink)
virginia
Member
 
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
По умолчанию Помогите решить

Пусть даны натуральные числа k, n, вещественные числа a1,a2,...,akn. Получите max (min(a(1)+a(2)+...+a(k)),min(a(k+1)+a(k+2)+. ..+a(2k)),...,min(a(k(n-1)+1)+...+a(kn)).
язык delphi
virginia вне форума   Ответить с цитированием

Старый 19.11.2011, 12:22
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ваша тема имеет сходства с этими топиками, пожалуйста, пролистайте их

Помогите решить задачу)
Помогите решить задачи на C++
Помогите решить задачу
Помогите решить в Паскале
Помогите решить

Старый 19.11.2011, 21:51   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Не понял, как может быть
min(a(1)+a(2)+...+a(k)),
т.е минимум от фиксированной суммы? Может быть
min(a(1), a(2), ..., a(k))?
Vladimir_S вне форума   Ответить с цитированием
Старый 19.11.2011, 21:57   #3 (permalink)
virginia
Member
 
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
По умолчанию

Ой ,не правильно напечатала.получите max(min(a1,a2,...,ak),min(ak+1+ak+2+...+a2k),...,m in(ak(n-1)+1+...+akn))
virginia вне форума   Ответить с цитированием
Старый 19.11.2011, 22:13   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от virginia Посмотреть сообщение
max(min(a1,a2,...,ak),min(ak+1+ak+2+...+a2k),...,m in(ak(n-1)+1+...+akn))
И опять - ой! Потому что должно быть
max(min(a1,a2,...,ak),min(ak+1,ak+2,...,a2k),...,m in(ak(n-1)+1, ...,akn))
Так?
Теперь вот что. Всё, что могу предложить - решение на Паскале. Если справитесь самостоятельно с Дельфийскими обвесками (модулями, формами, вводом-выводом и т.п.) то - пожалуйста. Если нет, то подождем: может, кто-нибудь из дельфистов возьмется.
Vladimir_S вне форума   Ответить с цитированием
Старый 19.11.2011, 22:30   #5 (permalink)
virginia
Member
 
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
По умолчанию

То что после а идет это индекс а....да на паскале пойдет
virginia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.11.2011, 22:56   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от virginia Посмотреть сообщение
а....да на паскале пойдет
Ну раз пойдет, то - пожалуйста:
Код:
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.
Конечно, если будете переделывать в Дельфи, то все экранные выводы придется убрать, на крайний случай можно использовать файловые, если возникнут трудности с полями форм.
Vladimir_S вне форума   Ответить с цитированием
Старый 19.11.2011, 22:58   #7 (permalink)
virginia
Member
 
Регистрация: 29.10.2011
Сообщений: 42
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -42
По умолчанию

Огромное спасибо)
virginia вне форума   Ответить с цитированием
Старый 19.11.2011, 23:04   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от virginia Посмотреть сообщение
Огромное спасибо)
Да не за что...
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:23.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.