Помощь - Поиск - Пользователи - Календарь
Полная версия: задача-массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
кучаТрупов
задача-дано вещественное число R и массив из N элементов. найти два элемента массива сумма которых наиболее(наименее) близка к данному числу.

Препод-ль сказал задача элементарная. но до конца правильно решить не получилось.
заранее очень большое спасибо)
Гость
Цитата(кучаТрупов @ 13.12.2008 2:46) *
до конца правильно решить не получилось.
А не покажешь то, что получилось?
Lapp
Цитата(кучаТрупов @ 13.12.2008 2:46) *
Препод-ль сказал задача элементарная.
Элементарность - понятие относительное smile.gif
Попробуй так:
i1:=1;
j1:=2;
i2:=1;
j2:=2;
for i:=1 to n-1 do for j:=i+1 to n do if Abs(a[i]+a[j]-R)<Abs(a[i1]+a[j1]-R) then begin
i1:=i;
j1:=j;
end
else if Abs(a[i]+a[j]-R)>Abs(a[i2]+a[j2]-R) then begin
i2:=i;
j2:=j
end;
кучаТрупов
клева) good.gif спасибоБольшое))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.