Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal]Задача Создать множество из чисел Фибоначи, F(n)=F(n-1)+F(n-2), F(0)=0, F(1)=1 
:(
    Опции темы
Curator
Дата 15.1.2007, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.1.2007

Репутация: нет
Всего: нет
Та же задача
На попытку запустить эту программу выдается ошибка

"File not found (SysUtils.TPU)
В чем ошибка?

Код


program Project1;
uses
  SysUtils,integer_asm;
  const N=100;
var Mas:array [0..N-1] of TypeStr; //массив для хранения чисел Фиббоначи
      i:integer;
begin
  Mas[0]:='0';
Mas[1]:='1';
for i:=2 to N-1 do
 Mas[i]:=Add(Mas[i-1],Mas[i-2]);
for i:=0 to N-1 do
Writeln(Mas[i]);
Readln;
end.


Это сообщение отредактировал(а) Kuvaldis - 17.1.2007, 23:18
PM MAIL   Вверх
Romikgy
Дата 15.1.2007, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
если паскаль чистый
то 
Код

program Project1;
uses
  integer_asm;
  const N=100;
var Mas:array [0..N-1] of TypeStr; //массив для хранения чисел Фиббоначи
      i:integer;
begin
  Mas[0]:='0';
Mas[1]:='1';
for i:=2 to N-1 do
 Mas[i]:=Add(Mas[i-1],Mas[i-2]);
for i:=0 to N-1 do
Writeln(Mas[i]);
Readln;
end.



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Curator
Дата 15.1.2007, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.1.2007

Репутация: нет
Всего: нет
Все равно
(File not found INTEGER_ASM.tpu)


Далал на Borland Pascal 7.0

Это сообщение отредактировал(а) Curator - 15.1.2007, 22:58
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(Romikgy @  11.1.2007,  21:54 Найти цитируемый пост)
Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  Finabochi.zip_ 30,58 Kb

там есть файл 
Цитата(Curator @  15.1.2007,  21:57 Найти цитируемый пост)
INTEGER_ASM

с расшерением .pas вот его надо в папку проекта закинуть


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Curator
Дата 16.1.2007, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.1.2007

Репутация: нет
Всего: нет
Цитата(Romikgy @ 15.1.2007,  22:16)
если паскаль чистый
то 
Код

program Project1;
uses
  integer_asm;
  const N=100;
var Mas:array [0..N-1] of TypeStr; //массив для хранения чисел Фиббоначи
      i:integer;
begin
  Mas[0]:='0';
Mas[1]:='1';
for i:=2 to N-1 do
 Mas[i]:=Add(Mas[i-1],Mas[i-2]);
for i:=0 to N-1 do
Writeln(Mas[i]);
Readln;
end.

Просьба исправить  и добавить, если я что не так говорю:

Uses                                          1)  ------(перечень используемых библиотек)
integer_asm                              2)  ------(что делает эта команда?)
Const = 100                             3) -------(Кол-во элементов массива)
Var                                           4)  ------(перечень переменных)
Mas:array [0..N-1] of TypeStr   5)  ------(Задача массива и его типа, от 0 до N-1,
i:integer                                   6)-------(Какая-то переменная типа интеджер, что она делает?)
begin                                       7)  ------(Начало программы)
Mas [0]:= '0'                            8) ------(присвоение первому элементу массива значения 0, )                                                       
Mas [1]:= '1'                            9)  -------(а второму - 1)
for i:=0 to N-1 do                   10) -------(Что делает эта команда?)
Writeln(Mas[i]);                     11)-------(вывод массива на экран)
Readln                                   12) -------(ожидание нажатия клавиши)
end                                        13) ------(окончание работы программы)
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Curator, а может те книжки по паскалю почитать?
особенно после этого
Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
Uses                                          1)  ------(перечень используемых библиотек)
integer_asm                              2)  ------(что делает эта команда?)



Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
for i:=0 to N-1 do                   10) -------(Что делает эта команда?)

цикл это


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Curator
Дата 16.1.2007, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.1.2007

Репутация: нет
Всего: нет
 Просто я показал это преподу - он сказал, что это "бред".
 Совсем.
 Вот я и решил прикинуться тупым ))). Может я че-то не понимаю...

 Он сказал, что совсем не понимает как это буит работать, и при выполнении этой проги создастся массив, но не с числами фибоначчи.
И отправил на пересдачу.

 
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Можешь ему сказать что в паскале, имхо , числа фибоначчи до 100 значения не влезут по нехватке разрядной сетки чисел ,
стандартно их 32 бита, это 4294967296,.
в дельфи появился 64 битные числа до 18446744073709551616
может их и хватит,
дык вот если все таки нужно до 100 значения , то используется сторонний модуль
Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
integer_asm

он лежит в отдельном файле с тем же названием но расширением . pas 
этот модуль работает с большими целыми числами , представленными в качестве строки (что бы хватило знаков для представления 100 значения  массива чисел финабоччи)
 а дальше все просто
начальные значения
Цитата(Curator @  9.1.2007,  19:12 Найти цитируемый пост)
F(0)=0

Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
 Mas[0]:='0';

Цитата(Curator @  9.1.2007,  19:12 Найти цитируемый пост)
F(1)=1 

Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
Mas[1]:='1';

само вычисления ряда (используя суммирование из модуля integer_asm  - Add)
Цитата(Curator @  9.1.2007,  19:12 Найти цитируемый пост)
F(n)=F(n-1)+F(n-2)

Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
Mas[i]:=Add(Mas[i-1],Mas[i-2]);

заполнение массива от 2 до Н-1 (почему от 2 , потому что 0 и 1 элементы массива уже заданы, 
почему до Н-1, потому что надо первых 100 элементов, а массив у нас нумеруется с нуля, отсюда и минус один)
Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
for i:=2 to N-1 do
 Mas[i]:=Add(Mas[i-1],Mas[i-2]);

и вывод всего массива на экран
Цитата(Curator @  16.1.2007,  19:02 Найти цитируемый пост)
for i:=0 to N-1 do
Writeln(Mas[i]);

Теперь больше вопросов не будет ? вроде уже все разжевал!


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Curator
Дата 16.1.2007, 23:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.1.2007

Репутация: нет
Всего: нет
 Спасибо огромное за терпение!
Правда, очень помог.
ИМХО надо на форуме ввести что-то вроде + от новичков, а то так плюсы до 100 сообщений не поставишь, Я б тебе  уже +10 поставил!
PM MAIL   Вверх
Romikgy
Дата 17.1.2007, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(Curator @  16.1.2007,  22:55 Найти цитируемый пост)
Я б тебе  уже +10 поставил!

а смысл их десяти?
плюс ме поставили, хотя это и не принципиально,
просто тема необычная, вот и свои знания освежил smile
Цитата(Curator @  16.1.2007,  22:55 Найти цитируемый пост)
Спасибо

да пазям smile
заходите еще, если что интересное будет , то я мож помогу, не интересное людей много помогут smile


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Alexeis
Дата 17.1.2007, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Curator, не забывайте выделять код!


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0915 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.