ПАСКАЛЬ - примитивная задача, помогите

[ketrinlt]

Здравствуйте! Помогите пожалуйста решить паскаль задачу для 11 класса.

С экрана читается количество спичек. Нужно узнать длины сторон прямоугольника наибольшей площади, который можно составить из этих спичек.

[puporev]

Наибольшую площадь при равных периметрах имеет квадрат. Поэтому чем ближе к квадрату прямоугольник, тем площадь его больше. Поэтому
x:=n div 4;
y:=(n - (n mod 4) - 2*x) div 2;
Вроде так. Естественно при n<4 решений нет.

[puporev]

Вообще-то решать надо не так. Мы то знаем, что я написал, а компьютер и преподаватель не знают. Поэтому приведенное выше утверждение нужно доказать, поэтому код будет такой:

uses crt;
var n,i,j,a,b,max,s:integer;
begin
clrscr;
write('n=');readln(n);
max:=0;
for i:=1 to n div 4 do
   begin
    j:=(n-2*i) div 2;
    s:=i*j;
    if s>max then
      begin
       max:=s;
       a:=i;
       b:=j;
      end;
  end;
writeln('a=',a,'  b=',b);
readln
end.

[Карась]

Чтото непонятно както комрад puporev делает... (я, например, не понял)...

1. У пользователя идёт запрос кол-ва спичек.
2. Надо както указать их длинны.. иначе никак. В условии от пользователя длины не ждут, значит они указываются программой... Random.
3. Для построения прямоугольника нужно отобрать 4 спички так, что по длине были пары. Тоесть по 2 одинаковых спички. Причём отбирать надо самые длиные пары.
4. Если таких пар нет, то задача нерешиться.
5. Найдя пары самых длиных спичек высчитываем длину.

Поэтому напрашивается последовательность:
1. Упорядочить спички по длинам.
2. Удалять если одинаковых спичек по длине больше 3 в списке.
3. Сделать расчёт площади.

Я думаю надо сделать массив....

[puporev]

2. Надо както указать их длинны.. иначе никак. В условии от пользователя длины не ждут, значит они указываются программой... Random.

Все спички одинаковой длины (загляните в коробок), длина стороны измеряется в спичках, единица измерения такая, вроде попугаев.

[Карась]

ага, понял
Просто криво условие прочитал...