X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Помогите с длинкой на паскале
Dryn9
Dryn9
Topic Starter сообщение 21.11.2011, 18:49; Ответить: Dryn9
Сообщение #1


Новичок
*

Группа: User
Сообщений: 23
Регистрация: 23.9.2011
Поблагодарили: 4 раза
Репутация:   -1  


Привет форумчане вообщем есть код

var a,b:string;
    x,y,z:array [1..1001] of integer;
    i,f,nx,ny,nz:longint;

begin
    readln(a);
    readln(b);
    nx:=length(a);
    ny:=length(b);
    for i:=1 to nx do
          val(a[i],x[nx-i+1],f);

    for i:=1 to ny do
          val(b[i],y[ny-i+1],f);
    if nx>ny then nz:=nx
                         else nz:=ny;
    for i:=1 to nz do
         begin
          z[i]:=z[i]+y[i]+x[i];
          if z[i]>9 then begin z[i]:=z[i] mod 10;z[i+1]:=1;end;
         end;
    if z[nz+1]<>0 then nz:=nz+1;
    for i:=nz downto 1 do
         write(z[i]);
end.

это длинная арифметика.
Надо всунуть ее в процедуру и потом вызвать чтобы вместо f[i-1]+f[i-2]; делалась длинка. СПС.

var f:array[0..1000]of int64;
n,i:longint;
begin
readln(n);
f[1]:=1;
f[2]:=3;
f[3]:=5;
for i:=4 to n do
f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
end.


просто попросили помочь, думал справлюсь а вот оно как, нехочется подводить человека

проще говоря найти числа фибоначчи длинной арифметикой.

Задачу сделал сам.
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Помогите выбрать программу
Помогите выбрать программу
11 impak 1347 11.12.2017, 13:11
автор: Mikki
Открытая тема (нет новых ответов) Помогите найти плагин на WP
Отзывы с профилей соц сетей
1 SEOMR 441 30.11.2017, 7:18
автор: Nell
Открытая тема (нет новых ответов) Помогите найти проблему
Долгий ответ сервера
6 maxim1249 694 29.11.2017, 17:27
автор: genjnat
Открытая тема (нет новых ответов) Помогите оценить новотник. Плиз
1 Alex-777 527 29.11.2017, 7:18
автор: grumdas
Открытая тема (нет новых ответов) Помогите с неймингом для сборника советов
советы по разработки и жизни
11 coremission 1882 15.11.2017, 22:23
автор: rogefer


 



RSS Текстовая версия Сейчас: 16.12.2017, 8:10
Дизайн