Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.10.2012, 20:06
Newel Newel вне форума
Прохожий
 
Регистрация: 11.10.2012
Сообщения: 1
Репутация: 10
По умолчанию Помогите решить три задачи

Пожалуйста помогите решить три задачи, очень срочно, нужна к пятнице.

1)Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Найти разность между суммой четных и нечетных значений.

2)Дано вещественное число x и натуральное число n. Вычислить (x-2)(x-4)...(x-2n)/(x-1)(x-3)...(x-2n-1).

3)Напишите процедуру сортировки строк в обратном алфавитном порядке.

Заранее благодарен.
Ответить с цитированием
  #2  
Старый 11.10.2012, 20:19
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

В Код на шару или выкладывай свои наработки, что не получается.
Ответить с цитированием
  #3  
Старый 11.10.2012, 22:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,068
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от YVitaliy
В Код на шару или выкладывай свои наработки, что не получается.

Или в "Работа".

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;

За готовым кодом - в раздел "Работа" со всеми вытекающими.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:45.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter