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

Тема в разделе "Pascal and Delphi", создана пользователем Gleb2010, 3 май 2012.

Статус темы:
Закрыта.
  1. Gleb2010

    Gleb2010 Гость

    У Вас есть N камней с массами W1, W2 , … WN. Требуется разложить камни на 2 кучки так, чтобы разница масс этих кучек была минимальной.
    Входные данные

    В первой строке входного файла INPUT.TXT записано число N – количество камней (1 ≤ N ≤ 18). Во второй строке через пробел перечислены массы камней W1, W2 , … WN (1 ≤ Wi ≤ 105).
    Выходные данные

    В единственную строку выходного файла OUTPUT.TXT нужно вывести одно неотрицательное целое число – минимально возможную разницу между массами двух кучек.
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    1) считываешь из файла input.txt в массив массы (назовем его m[1..18])
    2) сортируешь его по убыванию
    2.2) создаешь функцию которая посчитаешь массы камней начиная с k+1-го до конца массива (назовем её sum_r(m,n,k):real)
    2.3) создаешь функцию которая посчитает массы камней начиная с 1-го до k-го (включительно) (назовем её sum_l(m,n,k):real)
    3)
    граница, по которой камни делятся на 2 кучки камней:
    начинается с 1 камня (т.е. 1-ый камень является 1 кучкой, остальные - второй)
    min=m[1];
    for i:=1 to n-1 do
    begin
    dmin=abs(sum_l(m,n,i)-sum_r(m,n,k));
    if dmin<min then min=dmin;
    end;
     
  3. Ivanovna

    Ivanovna Гость

    Помогите пожалуйста решить задачу в Pascal. Используя функцию нахождения медианы треугольника. Составить программу поиска всех медиан треугольника, заданого сторонами а,в,с. Вот что получилось у меня.
    program z_1;
    var a,b,c:real; mA,mB,mC:real;
    function mediana(x,y,z:real):real;
    begin
    mediana:=1/2*sqrt(2*sqr(x)+2*sqr(y)-sqr(z));
    end;
    BEGIN
    writeln('введите стороны треу-ка');
    readln (a,b,c);
    mA:=mediana(b,c,a);
    mB:=mediana (a,c,;);
    mC:=mediana(a,b,c);
    write('вывести результаты');
    readkey;
    END.
     
Загрузка...
Похожие Темы - Помогите Решить
  1. mrx13
    Ответов:
    8
    Просмотров:
    262
  2. kuklofon
    Ответов:
    9
    Просмотров:
    598
  3. GREED
    Ответов:
    2
    Просмотров:
    555
  4. vovanabali
    Ответов:
    0
    Просмотров:
    541
  5. zarina
    Ответов:
    0
    Просмотров:
    679
Статус темы:
Закрыта.

Поделиться этой страницей