1 / 1 / 1
Регистрация: 18.06.2012
Сообщений: 9
1

Разностное уравнение формирующее числа Фибонначи, перевод с Pascal

18.06.2012, 22:08. Показов 1081. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужна помощь в переводе программы с Pascal-я на Assembler
Выручите, пожалуйста.. Я в Ассеблере вообще ноль.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program fibonachi;
uses crt;
function fib(i:integer): integer;
begin
    if (i = 0) then
        fib :=0
    else
        begin
          if (i <= 2) then
             fib := 1
          else
             fib := fib(i-1) + fib(i-2);
        end;
end;
const n=32;
var
    i,b,k,z,j:integer;
    m:array[1..n] of integer;
    F:text;
    st:string;
begin
  assign(F,'D:\Êóðñîâàÿ.txt');
  rewrite(F);
  z:=0;
  i:=0;
    while (z<4294967295) do
      begin
      i:=i+1;
      k:=z;
      j:=0;
          repeat
            j:=j+1;
            m[j]:=k mod 2;
            k:=k div 2;
          until(k<1);
      b:=j;
          for j:=b downto 1 do
            begin
              write(m[j]:1);
              write(F,m[j]);
            end;
      writeln(' ');
      writeln(F,'  ');
      z:=fib(i);
    end;
  st:='i=';
  write(F,st);
  writeln('i=',i);
  write(F,i);
  close(F);
end.
Добавлено через 2 минуты
программа решает разностное уравнение формирующее числа Фибонначи. Числа формируются по след. закону: a(i)=a(i-2)+a(i-1) с начальным условием a1=0, a2=1. Вычисление организовано в рекурсивной процедуре. Счет останавливается при таком i, что число ai, не помещяется в двойное слово (4 байта). Выводится на экран и в файл это i, и набор чисел в двоичной форме...
0
Лучшие ответы (1)
18.06.2012, 22:08
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.06.2012, 22:08
Ответы с готовыми решениями:

Разностное уравнение
Здравствуйте, извините, если не по теме. Помогите решить разностное уравнение под номером 2, пожалуйста.

Разностное уравнение
Решить разностное уравнение y(x+2)-8y(x+1)+15y(x)={3}^{x}

Разностное уравнение
Здравствуйте, помогите дорешать пожалуйста \large x_{n+3}+\large 4x_{n+2}+ \large 4x_{n+1}= \large 3 \cdot (-2)^n \large -3n+1 ...

1
1779 / 757 / 153
Регистрация: 03.06.2009
Сообщений: 5,935
19.06.2012, 20:21 2
Лучший ответ Сообщение было отмечено как решение

Решение

Осторожно! ТС Мошенник. Выходит на связь предлагает сделать программу за деньги. Когда программа сделана и выслан экзешник, начинается шоу, якобы он оплатил, но деньги придут через несколько часов, а программа нужна срочно, давит на жалость. Предлагает выслать скан чека. Но как и следовало полагать, так ничего и не приходит. Исходный код он так и не получил, поэтому скорей всего будет пытаться провернуть аферу повторно. Если увидите данное задание на форумах или предложат сделать за деньги летом 2012, будьте предельно осторожны. Поциент может сменить ник, аську и почту. Беритесь за данное задание только с предоплатой. Скорей всего поциент обладает madskillz в фотошопе и будет пытаться впарить рисованный чек. Цените свое время и не дайте себя обмануть.
3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.06.2012, 20:21
Помогаю со студенческими работами здесь

Разностное уравнение
помоги с программой, выдаёт неправильный результат, где косяк? ;Разностное уравнение Yn = Xn - 0.85Xn-1 + Xn-2 - 0,85Xn-3 – Yn-1 ...

разностное уравнение
Программа вычисляет значение m в зависимости от такта k.k=; a=k-1; disp(a) for i=1:10 if a(i)&lt;0 e=0; else e=1; ...

Разностное уравнение 1 порядка
объясните, пожалуйста, как решить разностное уравнение первого порядка.Знаю, что немного не в тему, но не знала в какой раздел написать

Неоднородное разностное уравнение
Помогите дорешать уравнение. Комментарий преподавателя: не правильно найдено частное решение неоднородного уравнения Решение: ...

Рекуррентное (разностное) уравнение
необходимо решить уравнение f(n+2)-f(n)=n ; f(0)=0, f(1)=2 ___________________________________________________ Пример: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
Отличия интерфейсов и типов в TypeScript
hw_wired 13.02.2025
TypeScript - мощное средство для создания качественного и поддерживаемого кода, который расширяет возможности JavaScript, добавляя систему статической типизации. В отличие от динамической типизации. . .
Async/await в циклах JavaScript
hw_wired 13.02.2025
Современная веб-разработка немыслима без асинхронного программирования. Когда приложение выполняет длительные операции - загрузку данных с сервера, чтение файлов или обработку медиа-контента, важно. . .
Git не работает на MacOS после апдейта
hw_wired 13.02.2025
После очередного обновления MacOS многие разработчики сталкиваются с неприятным сюрпризом - Git перестает работать и выдает ошибку "xcrun: error: invalid active developer path". Эта проблема особенно. . .
Git отказывается объединять несвязанные истории
hw_wired 13.02.2025
Git работает безупречно, пока мы не сталкиваемся с особыми ситуациями вроде объединения веток с разными корнями истории. В таких случаях система контроля версий может преподнести неприятный сюрприз в. . .
Проверка email с помощью JavaScript
hw_wired 13.02.2025
Email-адреса имеют довольно запутанную спецификацию, которая допускает множество неочевидных вариантов написания. Например, знали ли вы, что адрес вида "name+tag@domain. com" или даже. . .
Замена всех вхождений строки с помощью JavaScript
hw_wired 13.02.2025
JavaScript предлагает несколько способов для выполнения операций замены в строках, каждый из которых имеет свои особенности и область применения. От простейшей замены первого найденного вхождения до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru