Процедура, возвращающая N членов последовательности Фибоначчи в массив

@Vol4_OK · Регистрация: 11.09.2013

Студворк — интернет-сервис помощи студентам

Поместить в модуль процедуру, возвращающую N членов последовательности Фибоначчи в массив. Продемонстрировать работу модуля в основной программе.

Добавлено через 2 часа 56 минут
Если можно, сделайте с коментариями

Добавлено через 18 часов 39 минут
Неужели никто не знает модулей?

@ildwine · 15.11.2013, 17:47

Модуль:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit ildwine;
interface
function Fib(n:integer):integer;
implementation
function Fib(n:integer):integer;
var i,f1,f2,f:integer;
begin
  if (n = 1) or (n = 2) then Fib := 1 else
  begin
    f1:=1;
    f2:=1;
    for i:=3 to n do
    begin
      f:=f1+f2;
      f1:=f2;
      f2:=f
    end;
    Fib:=f
  end
end;
end.

Программа для тестирования:

Pascal
1
2
3
4
5
6
7
8
9
10
uses ildwine;
var n, i : integer;
begin
  repeat
    write('введите n (до 47): ');
    readln(n)
  until n >= 0;
  for i := 1 to n do
    write(Fib(i):5)
end.

@Puporev · 15.11.2013, 17:52

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

Неужели никто не знает модулей?

Так написал бы это без модуля, а люди бы модуль сделали.. Пиши уж что вообще ни хрена не знаешь...
Модуль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
unit modul;
const nmax=46;
var n:byte;
type mas=array[1..nmax] of integer;
procedure fib(var a:mas);
var i,k:byte;
begin
a[1]:=1;
a[2]:=1;
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
writeln('Последовательность первых ',n,' чисел Фибоначчи');
k:=0;
for i:=1 to n do
 begin
  writeln(a[i]);
  k:=k+1;
  if k=24 then
   begin
    write('Нажмите Enter');
    readln
   end
 end
end;
end.

Программа

Pascal
1
2
3
4
5
6
7
8
9
uses crt,modul;
var a:mas;
begin
repeat
write('Количество чисел от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
fib(a);
end.

@ildwine · 15.11.2013, 17:54

Я задание плохо прочитал. Виноват.

@Puporev · 15.11.2013, 17:56

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

n (до 47)

Здесь 47 лишка, последнее будет отрицательным.
Да и вывод не кузявый....

@ildwine · 15.11.2013, 18:02

Не по теме:

Puporev, ну да ладно, думаю ТС вашим вариантом удовлетворится.

@Vol4_OK · 16.11.2013, 11:23 **[ТС]**

Спасибо всем! Я не писал программу, т.к. думал, что в модуле другая структура программы. Как писать не по теме?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Vol4_OK 2 / 2 / 1 Регистрация: 11.09.2013 Сообщений: 85

	Процедура, возвращающая N членов последовательности Фибоначчи в массив 15.11.2013, 17:17. Показов 1437. Ответов 6 Метки нет (Все метки) Поместить в модуль процедуру, возвращающую N членов последовательности Фибоначчи в массив. Продемонстрировать работу модуля в основной программе. Добавлено через 2 часа 56 минут Если можно, сделайте с коментариями Добавлено через 18 часов 39 минут Неужели никто не знает модулей? 0

@ildwine Почетный модератор 6201 / 2963 / 1300 Регистрация: 04.03.2013 Сообщений: 5,797 Записей в блоге: 1
	15.11.2013, 17:54
	Я задание плохо прочитал. Виноват. 0

@ildwine
	15.11.2013, 18:02
	Не по теме: Puporev, ну да ладно, думаю ТС вашим вариантом удовлетворится. 0

@Vol4_OK 2 / 2 / 1 Регистрация: 11.09.2013 Сообщений: 85
	16.11.2013, 11:23 [ТС]
	Спасибо всем! Я не писал программу, т.к. думал, что в модуле другая структура программы. Как писать не по теме? 0