Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!! Числа Фибоначчи (fn) определяются формулами: f0=f1=1; fn=fn-1+fn-2 при n=2,3,... Составить программу: а) определения f - 40-е число Фибоначчи; б) поиска f - первого числа Фибоначчи, большего m (m>1); в) вычисления S - суммы всех чисел Фибоначчи, которые не превосходят 1000

Answer 1

// A) ..............................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var Count := 2;

 

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

   Count += 1

 until Count = 40;

 

 Write(f2)

end.

// B) ...................................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var m := ReadlnInteger();

 

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 > m;

 

 Write(f2)

end.

// C) ...............................

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var S := f1;

 

 repeat

   S += f2;

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 >= 1000;

 

 Write(S)

end.

Answer 2

Для решения задачи в Паскале с использованием цикла с постусловием для вычисления чисел Фибоначчи, можно использовать следующий код:

pascalCopy code
program Fibonacci;

var
  fn, fn_1, fn_2, m, S, count: Integer;

begin
  // а) определение f - 40-го числа Фибоначчи
  fn_1 := 1;
  fn_2 := 1;

  for count := 3 to 40 do
  begin
    fn := fn_1 + fn_2;
    fn_2 := fn_1;
    fn_1 := fn;
  end;

  writeln('40-е число Фибоначчи: ', fn);

  // б) поиск f - первого числа Фибоначчи, большего m (m > 1)
  m := 50; // Замените это значение на желаемое m
  fn_1 := 1;
  fn_2 := 1;
  fn := 0;

  while fn <= m do
  begin
    fn := fn_1 + fn_2;
    fn_2 := fn_1;
    fn_1 := fn;
  end;

  writeln('Первое число Фибоначчи, большее ', m, ': ', fn);

  // в) вычисление S - суммы всех чисел Фибоначчи, которые не превосходят 1000
  S := 0;
  fn_1 := 1;
  fn_2 := 1;
  fn := 0;

  while fn <= 1000 do
  begin
    S := S + fn;
    fn := fn_1 + fn_2;
    fn_2 := fn_1;
    fn_1 := fn;
  end;

  writeln('Сумма всех чисел Фибоначчи, не превосходящих 1000: ', S);
end.

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