Форум программистов, компьютерный форум, киберфорум
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 1
Регистрация: 18.06.2012
Сообщений: 9
1

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

18.06.2012, 22:08. Показов 1089. Ответов 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)
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,936
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
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Node.js 20: Новые возможности и улучшения производительно­сти
Reangularity 14.03.2025
Что же принёс нам релиз Node. js 20? В первую очередь, это существенные улучшения в производительности. Движок V8 получил серьёзные оптимизации, благодаря чему JavaScript-код выполняется заметно. . .
Безопасность кластеров Apache Kafka
Javaican 14.03.2025
Apache Kafka стал одним из ключевых компонентов современных архитектур, обрабатывающих потоки данных в режиме реального времени. Его используют тысячи компаний от стартапов до технологических. . .
Контейнеризация ML моделей с помощью Docker и Kubernetes
Mr. Docker 14.03.2025
Перенос ML-моделей из лаборатории в продакшн сопровождается целым комплексом проблем. Нередко код, который отлично работает на локальной машине, отказывается функционировать в промышленной среде. . . .
Организация масштабируемого хранилища с Apache Cassandra
Codd 14.03.2025
Изначально разработанная в Facebook, а затем переданная Apache Software Foundation, Cassandra сочетает в себе принципы Amazon's Dynamo и Google's BigTable. Эта комбинация создает уникальную. . .
Kafka или Pulsar: Что лучше для потоковой обработки в Java
Javaican 14.03.2025
Среди множества решений для потоковой обработки данных Apache Kafka долгое время удерживала лидирующие позиции, став де-факто стандартом в индустрии. Однако в последние годы всё больше внимания. . .
Создание и использование компонентов в Vue 3
Reangularity 14.03.2025
Компонент в Vue - это автономный блок интерфейса, который содержит собственную разметку, логику и стили. Представьте себе кнопку, форму ввода или даже целую панель навигации - всё это можно оформить. . .
Vue 3: Создаем современное веб-приложение с Composition API
Reangularity 14.03.2025
В фронтенд-разработке Vue 3 выделяется своим прагматичным подходом. В отличие от React с его минималистичной философией "всё — JavaScript" или Angular с его всеобъемлющим корпоративным подходом, Vue. . .
Разработка контекстных меню в iOS
mobDevWorks 14.03.2025
С приходом iOS 13 Apple представила новый API для контекстных меню, который полностью заменил предыдущую технологию 3D Touch peek & pop. Хотя многие разработчики и пользователи испытывают ностальгию. . .
Лучшие практики оптимизации Docker Image
Mr. Docker 13.03.2025
Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .
Вопросы на собеседовании по Docker
Mr. Docker 13.03.2025
Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер