ЦИКЛЫ БЕЗ ПАРАМЕТРА

[Ananim-Pbl6ak]

Числа Фибоначчи определяются формулами F0=F1=1 Fn=Fn-1+Fn-2 n=2. 3...

Вывести на экран первое число Фибоначчи, большее некоторого наперед заданного числа А, и число Фибоначчи, стоящее перед ним

[juzam]

Program Phibon;
uses CRT;
const N = 32;
var Arr: Array[1..N] of Longint;
Sum: Longint;
i : Integer;
Begin
{ Очищаем экран }
ClrScr;

{ Заполняем массив и считаем сумму }
Arr[1] := 1; Arr[2] := 1; Sum := Arr[1] + Arr[2];
for i := 3 to N do
begin
Arr[i] := Arr[i-1] + Arr[i-2];
Sum := Sum + Arr[i];
end;

{ Выводим массив на экран }
WriteLn('Числа Фибоначчи:');
for i := 1 to N do
begin
Write(Arr[i]: 8);
if i mod 8 = 0 then WriteLn;
end;
WriteLn; WriteLn; WriteLn('Сумма ряда: ', Sum);

{ Ждём нажатия любой клавиши }
Repeat Until KeyPressed;
End. может поможет,я просто почти не шарю^__^

[Ananim-Pbl6ak]

спасибо конечно но мне как нить попроще,
1. Использовать только простые типы данных.
2. В задании х, А и В - вещественные числа, К - натуральное.
3. Задание реализовать в двух вариантах: для организации циклов использовать оператор а) WHILE; б) REPEAT.

[Stilet]

Уже обсуждалось. Рули поиском по форуму словом фибоначчи.

[Ananim-Pbl6ak]

такой задачи нету искал

[Ananim-Pbl6ak]

ну может кто нить поможет, желательно репитом

[Костя КС]

Program qw;
uses CRT;
var
  f,f1,f2: integer;
  a : real;
Begin
  ClrScr;
  write('A = ');
  read(a);
  f1 := 0;
  f2 := 1;
  
  repeat
     f := f1+f2;
   f1 := f2;
   f2 := f
  until f > a;
  writeln(f);
  writeln(f1);
End.

[Костя КС]

Program qw;
uses CRT;
var
f,f1,f2: integer;
a : real;
Begin
ClrScr;
write('A = ');
read(a);
f1 := 0;
f2 := 1;
 f := 0;
while  f < a  do
 begin
 f := f1+f2;
 f1 := f2;
 f2 := f
 end;
  writeln(f);
  writeln(f1);
End.

[Ananim-Pbl6ak]

Program Laba3b;
{ўлЇ®«*Ё« ђ®¬**®ў Ђ*в®*}
var
f,f1,f2: integer;
a : real;
Begin
write('введите нижний придел значений чисел Фибоначчи = ');
readln(a);
f1 := 1;
f2 := 1;
if a>1
then
repeat
f := f1+f2;
f1 := f2;
f2 := f
until f > a;
writeln('число ',f,' - первое число Фибаначчи, больше ',a:4:2);
writeln('число ',f1,' стоит перед ',f,'');
else
writeln('нет чисел Фибоначчи, стоящих перед ',a);
End.


народ помогите не работает программа, где нужно исправить??