Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] четные и нечетные

Автор: STIFLER32 19.11.2009, 12:07

Всем привет! Помогите пожалуйста с решением задач на делфи и паскале и объясните что к чему smile

, а лучше всего выложите полный код, а не отдельную часть, буду очень признателен! Заранее спасибо!!!

Компилятор: delphi 7.

1. Дана числовая последовательность. Найти количество чисел, имеющих четные порядковые номера и являющиеся нечетными.

2. Дано действительное число a, натуральное число n. Вычислить: a(a+1)...(a+n+1).

3. Даны координаты четырёх точек x1, y1, x2, y2, x3, y3, x4, y4. Найти наименьший из периметров треугольников, вершины которых находятся в заданных точках (расстояние между двумя точками, минимум из двух чисел).

Компилятор: Turbo Pascal.

1. Найти все числа из массива, меньшие или равные заданному числу.

Автор: ~FoX~ 19.11.2009, 12:40

Для затравки:
1.

Код


var
  Suc: array[0..99] of integer; //последовательность
  Res: integer; //результат
  i: integer; //для цикла
begin
  randomize; //инитим генератор случайных чисел
  Res := 0; //на всякий случай
  for i := 0 to 99 do Suc[i] := random(100); //заполняем последовательность числами от 0 до 100


  for i := 0 to 99 do begin //поехали проверять чего там у нас
    if (odd(i) // порядковый номер четный
            and (not odd(Suc[i]))) //и является не четным
                 then Res := Res+1; //тогда прибавляем единичку к результату
  end; //if
  ShowMessage(IntToStr(Res)); //кажим результат

end;

Остальное в ЦЕНТР ПОМОЩИ!!! smile

Автор: Rrader 19.11.2009, 13:14

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!