[i-slayer]

День добрый!
Написать программку на Паскале и построить блок схему!




Задача простейшая, но нужна сегодня вечером!

[mss]

icq 169 527 143

[i-slayer]

Люди неужели никто не может написать!!! mss offline!!!

[lmikle]

Готовое - никто. Причем не от жадности, а потому что нефиг. Либо в раздел "Работа", либо выкладываешь свои наработки и спрашиваешь КОНКРЕТНО что не получается.

ЗЫ. Сама вычислялка будет примерно такая:

Код:

function F(X, A : Extended) : Extended;
begin
  If X > A
    Then Result := sin(X)*A*X/(sqr(X) + A)
    Else Result := A*X*cos(X);
end;

[dr. F.I.N.]

Сообщение от lmikle

Готовое - никто. Причем не от жадности, а потому что нефиг. Либо в раздел "Работа", либо выкладываешь свои наработки и спрашиваешь КОНКРЕТНО что не получается.

ыыы..... полюбому зашел по ссылке "новые сообщения" и не глянул раздел и тему топика

[i-slayer]

Цена вопроса 300р на мобилу!!!

[lmikle]

Сообщение от dr. F.I.N.

ыыы..... полюбому зашел по ссылке "новые сообщения" и не глянул раздел и тему топика

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

Гм, я бы сделал, но мне на мобильник ты не заплатишь технически, да и бессмысленно, бо как у меня просто за месяц оплата...

Код:

program task;

{$APPTYPE CONSOLE}

const 
  A = 4.5;
  X : Array [0..7] Of Integer = (-7, 4, -2, 5, 3, -4, -12, 16);

var
  Z : Array [0..7] Of Extended;
  Sp, Sn : Extended;

function F(fX, fA : Extended) : Extended;
begin
  If fX > fA
    Then Result := sin(fX)*fA*fX/(sqr(fX) + fA)
    Else Result := fA*fX*cos(fX);
end;

procedure Run;
var
  I : Integer;
begin
  Sp := 0;
  Sn := 0;
  For I := Low(X) To High(X) Do
    Begin
      Z[i] := F(X[i],A);
      If Z[i] < 0 Then Sn := Sn + Z[i] Else Sp := Sp + Z[i];
    End;
end;

begin
  Run;
  WriteLn('Sum(Z[i]), Z[i] > 0     = ', Sp);
  WriteLn('Sum(Z[i]), Z[i] < 0     = ', Sn);
  ReadLn;
end;

[i-slayer]

Какой вариант оплаты устроит?