Pascal. Одномерный массив\нечетность и фибоначчи

Тема в разделе "Pascal and Delphi", создана пользователем Rivet, 20 ноя 2010.

  1. Rivet

    Rivet Гость

    Вводится размер вектора, состоящего из целых чисел, и его элементы.Найти прозведение элементов, стоящих на нечётных местах и при этом являющихся числами Фибоначчи.
    Никак не могу совместить условия проверки четности и фибоначчи. Прогу написала, но она не работает. Помогите, пожалуйста, исправить ошибки. Вот прога:
    Код:

    var
    a:array [1..100] of integer;
    n,i,f0,f1,f2,p:integer;
    begin
    writeln('Введите количество элементов:');
    readln(n);
    writeln('Введите элементы');
    p:=1;
    for i:=1 to n do
    begin
    readln(a);
    for i:=1 to n do
    if i mod 2=0 then

    f0:=0;
    f1:=1;
    f2:=1;
    while f2<=a do
    begin
    f0:=f1;
    f1:=f2;
    f2:=f0+f1;
    end;

    if a=f2 then
    p:=p*a;
    end;

    writeln('p=',p);
    readln;
    readln;
    end.
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Попробуйте так:
    Код (Delphi):
    var
    a:array [1..100] of integer;
    n,i,f0,f1,f2,p:integer;
    begin
    writeln('Введите количество элементов:');
    readln(n);
    writeln('Введите элементы');
    p:=1;
    for i:=1 to n do {}
    readln(a[i]);
    for i:=1 to n do
    begin       {}
    if i mod 2=0 then
    begin        {}
    f0:=0;
    f1:=1;
    f2:=1;
    while f2<=a[i] do
    begin    {}
    f0:=f1;
    f1:=f2;
    f2:=f0+f1;
    end;         {}
    end;
    if a[i]=f2 then
    p:=p*a[i];
    end;

    writeln('p=',p);
    readln;
    readln;
    end.
     
  3. Rivet

    Rivet Гость

    как я не мучаю эту прогу, в итоге она мучает меня. не идет, вернее идет, но неверно((
    в чем же ошибка? пожскажите, пожалуйста!
     
  4. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    if i mod 2=1 then
    так ведь?
    или там if Odd(i) then
     
  5. Rivet

    Rivet Гость

    А я решила, решила!!!!)))
    урра!! все равно спасибо за помощь :)
     
Загрузка...
Похожие Темы - Pascal Одномерный массивнечетность
  1. avizer
    Ответов:
    5
    Просмотров:
    731
  2. Даниил
    Ответов:
    0
    Просмотров:
    817
  3. vera2014
    Ответов:
    0
    Просмотров:
    1.071
  4. FaRReLL
    Ответов:
    0
    Просмотров:
    908
  5. FaRReLL
    Ответов:
    0
    Просмотров:
    654

Поделиться этой страницей