Помогите решить задачу Pascal

kickmaster · 31.10.2012, 23:44

Доброго времени суток. Помогите пожалуйста решить задачу.

Free Pascal Lazarus.
Циклы с постусловием.
Написать программу для определения первого нечетного числа Фибоначчи.
Заранее спасибо.

Gruvi · 01.11.2012, 01:49

Программа, которая определяет, является ли заданное число числом Фибоначчи.

Входной текстовый файл INPUT.TXT содержит одно натуральное число в диапазоне от 2 до 1200000000.

Выходной файл OUTPUT.TXT должен содержать в первой строке 1, если заданное число является числом Фибоначчи, и 0, иначе. В первом случае во вторую строку требуется вывести его порядковый номер.

Turbo Pascal

Цитата:

Var a,b,c,i:longint;
f:text;

BEGIN

Assign(f,'INPUT.TXT');
Reset(f);
Read(f,c);

a:=1;
b:=1;
i:=2;
While c>b do
Begin
b:=a+b;
a:=b-a;
i:=i+1;
End;

Assign(f,'OUTPUT.TXT');
Rewrite(f);

If c=b then
Begin
Writeln(f,'1');
If i<>2 then Write(f,i)
else Write(f,'1 и 2');
End;

Close(f);

END.

программа не в тему конечно, но поможет разобраться.

Vladimir_S · 01.11.2012, 09:55

Цитата:

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

программа не в тему конечно, но поможет разобраться.

Да тут всё куда проще и глупее:

Код:

Var
 a,b,c:Integer;
Begin
 a:=0;
 b:=1;
 Repeat
  c:=a+b;
  a:=b;
  b:=c;
 Until (c>1) and ((c mod 2)=1);
 Writeln(c);
 Readln;
End.

AlexZir · 01.11.2012, 11:31

Можно еще проще

Код:

var a:integer;
begin
a:=1
writeln(a);
readln;
end.

Самое первое нечетное число ряда Фибоначчи равно 1

Vladimir_S · 01.11.2012, 14:08

Цитата:

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

Можно еще проще

Код:

var a:integer;
begin
a:=1
writeln(a);
readln;
end.

Самое первое нечетное число ряда Фибоначчи равно 1

Ну уж тогда так:

Код:

Begin
 Writeln('1');
 Readln
End.

Название: rastaman.gif
Просмотров: 1542

Размер: 5.4 Кб

kickmaster · 01.11.2012, 15:03

Спасибо =)

31.10.2012, 23:44	#1 (permalink)
kickmaster Member Регистрация: 09.10.2012 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу Pascal Доброго времени суток. Помогите пожалуйста решить задачу. Free Pascal Lazarus. Циклы с постусловием. Написать программу для определения первого нечетного числа Фибоначчи. Заранее спасибо.

01.11.2012, 11:31	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Можно еще проще Код: var a:integer; begin a:=1 writeln(a); readln; end. Самое первое нечетное число ряда Фибоначчи равно 1

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

01.11.2012, 15:03	#6 (permalink)
kickmaster Member Регистрация: 09.10.2012 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо =)