VPF::Длинная арифметика - Форум программистов

Frogs2009

Дата 24.12.2008, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.6.2008

Репутация: нет
Всего: нет

Составить программу для вычисления степеней чисел вида a^n, если a> Maxint, n > 10
примерно типа если а=512412512515 и n=10 то никаких типов не хватает,можно использовать массивы,но не знаю как умножить,вот что намудрил и то не знаю правильно или нет

Код


program dlin;
uses crt;
var
a,b:array[1..100] of integer;
s:string;
i,j,n,d,u:integer;
begin
clrscr;
writeln('введи а  ');
readln(s);
d:=length(s);
for i:=1 to d do
 begin
 val(s[i],a[i],a[i]);
 b[i]:=a[i];
 end;
 writeln;

   for i:=d downto 1 do
    begin
    b[i]:=b[i]*a[i]+u;
    u:=0;
    b[i]:=b[i] mod 10;
    u:=b[i] div 10;
    end;

for i:=1 to d do
 write(b[i]);
 readln
end.Код

volvo877

Дата 24.12.2008, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Тебе уже сказали, что у Окулова есть все, что тебе надо... А за тебя это делать никто не будет, это твое задание, и делать его тебе.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »