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.


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

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

Задачу сделал сам.

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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Горячая тема (нет новых ответов) Помогите, пожалуйста, моей дочери выжить!
благотворительный топик
30 vitvirtual 3816 19.5.2018, 8:30
автор: vitvirtual
Открытая тема (нет новых ответов) Продвигаю страницу по запросу "Как сделать игру". Помогите советом, пожалуйста
Я секу в теме! Но подать статью угодным поисковикам образом не смо
22 coremission 2216 8.5.2018, 12:33
автор: coremission
Открытая тема (нет новых ответов) Помогите с выбором ноута
20 rokot 920 23.4.2018, 12:09
автор: Room
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыПомогите с идеями для форума про успех
Спасибо за каждую идею
43 Zoya83 5196 12.4.2018, 11:42
автор: Zoya83
Открытая тема (нет новых ответов) Лендинг или сайт-визитка для ИП? Помогите определиться
6 Yas18 1144 31.3.2018, 20:57
автор: Yas18


 



RSS Текстовая версия Сейчас: 28.5.2018, 1:33
Дизайн