Числа Фибоначчи

[sher_man]

ДАНО: натуральное число N.Нужно: заменить в нём цифру таким образом, что бы полученное число было как можно ближе к какому нибуть числу фибоначи...примерный скилет к 1\3 этой задичи выглидит я думаю так...Var st,t,n,c:integer;beginreadln(n);st: =1;repeat t:=n-(n div st) mod 10)*st;for c:=0 to 9 do write('тут надо мне ввести помоему формулу фибоначи')st:=st*10;writeln;until st>n;readln;end;-----Ну и второй кусок- это само нахождение чисел фибоначи...var n,i,dr,st,nov:integer;beginreadln (n);dr:=1;st:=1;for i:=3 to n dodeginnov:=dr+st;dr:=st;st:=nov;en d;writeln (nov)end.----Теперь кто может понять суть задачи, объясните как мне дописать последнюю 1\3 задачи, и как склеить 2\3 того что я уже написал в одну ЦЕЛУЮ ЗАДАЧУ?! если есть другие варианты способа этой задачи, буду только рад их увидеть! спасибо!

[Stilet]

Ну во первых: Из твоего сумбурина понял только одно что ты не знаеш как пишется Фибоначчи.
Во-вторых: Тебе это на бейсике?
Во-втретьих: Если я всетки тя правильно понят то вот ответ полностью на Делфе :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var n:integer;z,k:integer;
begin
 n:=StrToIntDef(Edit1.Text,0);
z:=1;k:=0;
label1.Caption:='';
while z<=n do begin
 z:=z+k;
 k:=z-k;
 label1.Caption:=label1.Caption+' '+inttostr(z);
end;
{$o-}
if (n-k)<=(z-n) then
n:=k
else
n:=z;
    caption:=inttostr(n);
end;

end.

[sher_man]

млин....дык я написал вроде нормально, а он мне все в одну строку тут выдал =)))) спасибо за твои стаания конечно.= ))) но ты мне написал очень-очень заумным языком, и мне надо на язке паскаля, а то препод меня сразу спалит, если я ему принесу в том виде как ты напечатал = )))

[kommunist]

вот тебе на pascal.

program fib;
uses crt;
var n,z,k:integer;
begin
clrscr;
writeln('vvedite n :');
readln(n);
z:=1; k:=0;
while z<=n do begin
z:=z+k;
k:=z-k;
writeln('z=',z);
end;
if (n-k)<=(z-n) then
n:=k
else
n:=z;
writeln('n=',n);
readln;
end;

[Stilet]

Жаль что ты сам принцип не увидел, ну ладно студенты лентяи, по себе знаю :

uses crt;
var n:integer;z,k:integer;

begin
write('Input numerik:');readln(n); write(n,' is ');
z:=1;k:=0;
while z<=n do begin
 z:=z+k;
 k:=z-k;
end;

if (n-k)<=(z-n) then
n:=k
else
n:=z;
writeln('so close in Fibonachi way to ',n);
readln;
end.

[sher_man]

О_о....как хорошо что вы меня поняли, да-да именно студент лентяй, но стараюсь понять делфи, нам просто учитель 7 дней лекции прочитал и уехал, а сижу пытаюсь по самоучителям догнать ПАСКАЛЬ = )))) спасибо за предложенные задачи = ))))

Не ну я понимаю вы мне щас скажите, совсем тупой и нечего не хотящий делать студент = ))) но вы мне показали как вывести число фибоначи = ))) а мне нужно немного другое!!! = ))))УСЛОВИЕ звучит так...ДАНО НАТУРАЛЬНОЕ число (N).замените в нём любую цифру таким образом, чтобы полученное число было как можно ближе к какому нибуть числу фибоначи... И uses crt; --- у меня вообще не воспринимает = ))))) пишет ошибка =) ( это я к комунисту обращаюсь) = )

ВОТ примерный скилет каторый нужен для решения этой задачи тут немного её мадефицировать надо с помощь программы фибоначи, так мне преподователь сказал!!! var st,t,n,c: integer;begin readln(n); st:=1; repeat t:=n-((n div st) mod 10)*st; for c:=0 to 9 do write (t+c*st,' '); st:=st*10; writelnж until st>n; readln;end.

Ой.....i'm sorry Komynist....я не сразу понял принцып дейстия программы, все нормально работает, спасибо!

[Stilet]

Шерман, чет я тебя не пойму, что значит "Заменить цыфру"?
Если я в своем примере ввожу 24, то программа найдет цифру 21 - вот и считай что цифра 4 в числе 2 заменена...
Или тебе еще и эту цифру нуна вывести?

[kommunist]

прога и должна нормально работать я проверял

а модуль crt и clrscr всегда можно убрать это на программе никак не отразится.

[Saniok]

Люди а формула чисел фиббаначи какая? Мы месяц назад записывали а у мну конспект с лекциями стырили(*********) но помоему такая:

n_3=n_1+n_2

Правильно?

[kommunist]

. Числа Фиббоначчи строятся следующим образом: F(0)=F(1)=1; F(i+1)=F(i)+F(i-1); для i>=1.