Несколько задач

[Wilda]

Помогите решить пожалуйста
1.
Указание.Использовать оператор цикла с параметром. Массивы не использовать.
Дано действительное число x. Составить программу для вычисления многочлена по схеме Горнера:
y1=x^10+2x^9+3x^8+...+10x+11,
y2=11x^10+10x^9+9x^8+...+2x+1.

2.
Указание.Массивы не использовать.
Организовать циклические процессы с использованием оператора цикла в сочетании с оператором условного перехода.

Даны натуральные числа n, q1, q2, ..., qn. Найти те члены последовательности q1, q2, ..., qn, которые имеют чётные порядковые номера и являются нечётными числами.

Заранее спасибо.

[Stilet]

1. сходу по памяти:

  for i:=10 downto 1 do begin
    y:=y+(10-i)*exp(i*ln(x))
  end;
  for i:=11 downto 2 do begin
    y2:=y2+i*exp(i*ln(x))
  end;

2.

 qn:=1;
 for n:=1 to 10 do begin
  if (qn mod2<>0)and(n mod 2=0) then 
       writeln(qn);
  qn:=qn+13;
 end;

[Wilda]

В Паскале ничего не понимаю(((
Если не затруднит, можешь написать полный текст программы...((

[Alex21]

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

Если не затруднит, можешь написать полный текст программы...((

Учиться никогда не поздно. Вам уже дали 95% ответа.
Открываем учебник и смотрим структуру описания программ.

[_Dmitry]

Решение первой задачи по схеме Горнера (что и требовалось в условии)

var
  y1,y2,x: real;
  i: integer;
begin
  write('x='); readln(x);
  y1:=1; y2:=11;
  for i:=1 to 10 do
    begin
      y1:=1+i+y1*x;
      y2:=11-i+y2*x;
    end;
  writeln('y1=',y1);
  writeln('y2=',y2);
  readln;
end.

Тема уже была на форуме http://www.programmersforum.ru/showthread.php?t=9099

[Wilda]

Всем огромное спасибо.