Технический форум - Помогите решить

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите решить (http://www.tehnari.ru/f43/t59999/)

virginia

19.11.2011 12:22

Помогите решить

Пусть даны натуральные числа 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

Vladimir_S

19.11.2011 21:51

Не понял, как может быть
min(a(1)+a(2)+...+a(k)),
т.е минимум от фиксированной суммы? Может быть
min(a(1), a(2), ..., a(k))?

virginia

19.11.2011 21:57

Ой ,не правильно напечатала.получите max(min(a1,a2,...,ak),min(ak+1+ak+2+...+a2k),...,m in(ak(n-1)+1+...+akn))

Vladimir_S

19.11.2011 22:13

Цитата:

Сообщение от virginia (Сообщение 620325)

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))
Так?
Теперь вот что. Всё, что могу предложить - решение на Паскале. Если справитесь самостоятельно с Дельфийскими обвесками (модулями, формами, вводом-выводом и т.п.) то - пожалуйста. Если нет, то подождем: может, кто-нибудь из дельфистов возьмется.

virginia

19.11.2011 22:30

То что после а идет это индекс а....да на паскале пойдет

Vladimir_S

19.11.2011 22:56

Цитата:

Сообщение от virginia (Сообщение 620347)

а....да на паскале пойдет

Ну раз пойдет, то - пожалуйста:

Код:

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.

Конечно, если будете переделывать в Дельфи, то все экранные выводы придется убрать, на крайний случай можно использовать файловые, если возникнут трудности с полями форм.

virginia

19.11.2011 22:58

Огромное спасибо)

Vladimir_S

19.11.2011 23:04

Цитата:

Сообщение от virginia (Сообщение 620375)

Огромное спасибо)

Да не за что...

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