Линейные темы

Тема в разделе "Delphi - FAQ", создана пользователем -, 17 май 2009.

  1. Гость

    Вот дали задачку в универе ...помогите добрые люди

    В последовательности действительных чисел a1, a2, …an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Сравнить модуль Р1 с модулем P2, указать, какое из произведений по модулю больше.


    нужно решить на application console

    заранее БОЛЬШОЕ СПАСИБО
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    думаю, в предыдущей теме видел мой ответ, так что если надо будет за деньги - то стучи в асю 34-98-34-73
     
  3. Shakmaev

    Shakmaev Гость

    program Project2;

    {$APPTYPE CONSOLE}

    var
    a : array [1..50] of integer;
    i, n, p1, p2 : integer;
    kon : string;
    begin
    randomize;
    Writeln('Vvedite n');
    readln(n);
    p1 := 1;
    p2 := 1;
    for i := 1 to n do
    begin
    a := Round(Sin(Random(10))*-15);
    if a < 0 then p1 := p1*a;
    if a > 0 then p2 := p2*a;
    write(a,' ');
    end;
    writeln('');
    if abs(p1) > abs(p2) then Writeln('p1 bolshe')
    else Writeln('p2 bolshe');
    readln(kon);
    { TODO -oUser -cConsole Main : Insert code here }
    end.
     
Загрузка...

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