|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.10.2007, 22:19 | #1 |
Пользователь
Регистрация: 18.10.2007
Сообщений: 41
|
Числа Фибоначчи
ДАНО: натуральное число 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 того что я уже написал в одну ЦЕЛУЮ ЗАДАЧУ?! если есть другие варианты способа этой задачи, буду только рад их увидеть! спасибо!
|
19.10.2007, 08:06 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну во первых: Из твоего сумбурина понял только одно что ты не знаеш как пишется Фибоначчи.
Во-вторых: Тебе это на бейсике? Во-втретьих: Если я всетки тя правильно понят то вот ответ полностью на Делфе : Код:
I'm learning to live...
Последний раз редактировалось Вадим Мошев; 16.11.2015 в 19:45. |
19.10.2007, 09:04 | #3 |
Пользователь
Регистрация: 18.10.2007
Сообщений: 41
|
млин....дык я написал вроде нормально, а он мне все в одну строку тут выдал =)))) спасибо за твои стаания конечно.= ))) но ты мне написал очень-очень заумным языком, и мне надо на язке паскаля, а то препод меня сразу спалит, если я ему принесу в том виде как ты напечатал = )))
|
19.10.2007, 09:26 | #4 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
вот тебе на pascal.
Код:
I like WPF
Последний раз редактировалось Вадим Мошев; 16.11.2015 в 19:46. |
19.10.2007, 09:27 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Жаль что ты сам принцип не увидел, ну ладно студенты лентяи, по себе знаю :
Код:
I'm learning to live...
Последний раз редактировалось Вадим Мошев; 16.11.2015 в 19:46. |
19.10.2007, 15:04 | #6 |
Пользователь
Регистрация: 18.10.2007
Сообщений: 41
|
О_о....как хорошо что вы меня поняли, да-да именно студент лентяй, но стараюсь понять делфи, нам просто учитель 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....я не сразу понял принцып дейстия программы, все нормально работает, спасибо! Последний раз редактировалось Вадим Мошев; 16.11.2015 в 19:46. |
19.10.2007, 16:13 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Шерман, чет я тебя не пойму, что значит "Заменить цыфру"?
Если я в своем примере ввожу 24, то программа найдет цифру 21 - вот и считай что цифра 4 в числе 2 заменена... Или тебе еще и эту цифру нуна вывести?
I'm learning to live...
|
19.10.2007, 17:06 | #8 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
прога и должна нормально работать я проверял
а модуль crt и clrscr всегда можно убрать это на программе никак не отразится.
I like WPF
Последний раз редактировалось kommunist; 19.10.2007 в 19:09. |
19.10.2007, 22:01 | #9 |
Символ Добра
Пользователь
Регистрация: 27.09.2007
Сообщений: 22
|
Люди а формула чисел фиббаначи какая? Мы месяц назад записывали а у мну конспект с лекциями стырили(*********) но помоему такая:
n_3=n_1+n_2 Правильно? |
20.10.2007, 18:45 | #10 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
. Числа Фиббоначчи строятся следующим образом: F(0)=F(1)=1; F(i+1)=F(i)+F(i-1); для i>=1.
I like WPF
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с алгоритмом Фибоначчи | kardan | Помощь студентам | 8 | 01.04.2008 20:22 |
Определить n-ое число Фибоначчи - Рекурсия | Xeon332 | Помощь студентам | 3 | 09.01.2008 19:01 |
задача:Паскаль и ряд чисел Фибоначчи | SEREG@ | Помощь студентам | 20 | 16.12.2007 20:05 |
расчет числа фибоначчи | tro | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.12.2007 11:52 |
эти ужасные числа фибоначчи!!! | галя | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 24.12.2006 20:23 |