|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите решить три задачи
Пожалуйста помогите решить три задачи, очень срочно, нужна к пятнице.
1)Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Найти разность между суммой четных и нечетных значений. 2)Дано вещественное число x и натуральное число n. Вычислить (x-2)(x-4)...(x-2n)/(x-1)(x-3)...(x-2n-1). 3)Напишите процедуру сортировки строк в обратном алфавитном порядке. Заранее благодарен. |
#2
|
||||
|
||||
В Код на шару или выкладывай свои наработки, что не получается.
|
#3
|
|||
|
|||
Цитата:
Или в "Работа". PS. 1) Код:
var I : Integer; A : Array Of Integer; S_odd, S_even : Integer; begin S_odd := 0; S_even := 0; For I := Low(A) To High(A) Do If A[i] mod 2 = 1 Then S_odd := S_odd + A[i] Else S_even := S_even + A[i]; WriteLn('Sum of odd numbers = ',S_odd); WriteLn('Sum of even numbers = ',S_even); end; 2) Код:
var X : Integer; M_up : Double; M_dn : Double; begin M_up := 1; M_dn := 1; For I := 1 To N Do If I mod 2 = 1 Then M_dn := M_dn*(X-I) Else M_up := M_up*(X-I); Writeln('Result = ',M_up/M_dn); end; 3) Код:
var A : Array Of String; I, J : Integer; Buf : String; begin For I := Low(A) To High(A)-1 Do For J := I + 1 To High(A) Do If A[J]>A[i] Then Begin Buf := A[J]; A[J] := A[i]; A[i] := Buf; End; For I := Low(A) To High(A) Do WriteLn(A[i]); end; За готовым кодом - в раздел "Работа" со всеми вытекающими. |