|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Задача для первокурсника
День добрый!
Написать программку на Паскале и построить блок схему! Задача простейшая, но нужна сегодня вечером! |
#2
|
|||
|
|||
icq 169 527 143
|
#3
|
|||
|
|||
Люди неужели никто не может написать!!! mss offline!!!
|
#4
|
|||
|
|||
Готовое - никто. Причем не от жадности, а потому что нефиг. Либо в раздел "Работа", либо выкладываешь свои наработки и спрашиваешь КОНКРЕТНО что не получается.
ЗЫ. Сама вычислялка будет примерно такая: Код:
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; |
#5
|
||||
|
||||
Цитата:
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
m1sclick (22.03.2012)
|
#6
|
|||
|
|||
Цена вопроса 300р на мобилу!!!
|
#7
|
|||
|
|||
Цитата:
Ну да, сорь, не глянул. Настолько привык к тому, что пишут такое в других разделах... Гм, я бы сделал, но мне на мобильник ты не заплатишь технически, да и бессмысленно, бо как у меня просто за месяц оплата... Код:
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; Последний раз редактировалось lmikle, 22.03.2012 в 23:12. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
i-slayer (26.03.2012)
|
#8
|
|||
|
|||
Какой вариант оплаты устроит?
|