Решения задач acmp.ru
Главная
Вход
Регистрация
Вторник, 29.09.2020, 01:48Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0353 Треугольники

Скачать файл можно после просмотра рекламы:

04.06.2012, 18:28
var
n, i, j, k, a, b, c : integer;
s : real;
p, smax : int64;
w : array [1..1001] of integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(n); smax:=0;
for i:=1 to n do read(w[i]); w[n+1]:=maxint;
for i:=1 to n-1 do
for j:=1 to n-i do
if w[j]>w[j+1] then
begin c:=w[j]; w[j]:=w[j+1]; w[j+1]:=c end;
for i:=1 to n-2 do
begin
a:=w[i];
for j:=i+1 to n-1 do
begin
b:=w[j];
k:=j+1; while (k<=n)and(a+b<=w[k]) do k:=k+1;
while a+b>w[k] do
begin
c:=w[k];
p:=a+b+c;
p:=p*(p-2*a)*(p-2*b)*(p-2*c);
if p>smax then smax:=p;
k:=k+1
end
end
end;
s:=sqrt(1.0*smax)/4.0;
if smax=0 then write(0) else write(s:0:3);
close(output)
end.
Категория: Pascal | Добавил: shum
Просмотров: 1907 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020