Меню сайта
Наш опрос
Оцените мой сайт
Всего ответов: 6
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » 2014 » Июль » 22 » Длинная арифметика
15:05
Длинная арифметика
Вы хотите найти новых друзей? Тогда чат Израиля будет лучшим вариантом.

Стандартный алгоритм вычисления суммы длинных чисел можно оформить в виде посимвольного сложения цифр из строк и запоминанием цифры 1 для переноса в следующий разряд. Перед работой рекомендуется выровнять длину строк, т.е. заполнить строку слева нулями.program summa;var a,b,c:string; p,d,l1,l2,i,z,x,y:integer;beginreadln (a); readln (b);//каждая строка чисел считывается +b; +a; 0'); //выделяем цифру  0'))+c;//перевод числа в символ и добавление к сумме слеваend;if d>0 +c; writeln(c);end. Немного о переводе символа в число: известно, что в кодовой таблице числа как символы идут подряд от 0 до 9. Таким образом, зная только код числа 0 ord('0') и код нужного числа ord(a[i]), можно вычислить саму цифру:   0');И наоборот, зная код цифры p и нуля, можно получить символ:   chr(p+ord('0')).Можно воспользоваться и стандартными функциями перевода:val(a[i],y,code); - перевод символа в число,str(p,cp); - перевод числа в строку символов.Но при этом нужно вводить лишние переменные:var code:integer; cp:string;И кроме этого с процедурой нельзя работать внутри выражений, т.е. использовать ее как функцию. В Delphi и Lazarus такая проблема снята - там есть функции:strtoint(a[i]) и inttostr(p).По аналогии запишем алгоритм умножения больших чисел. Здесь выравнивать числа не обящательно, а результат вычислений лучше сразу хранить в массиве чисел.program multiplay;type massiv =array[1..1000]of byte;var a,b:string; c:massiv; j,i,l1,l2:integer; p,w,d,z,x,y,q:byte;beginreadln (a); readln begin0');d:=0;//перенос при умноженииfor write (c[i]); writeln;end.Все эти программы можно переписать с использованием массива или стека.Вот пример реализации со стеком умножения длинного числа на 2. Стек реализован с помощью массива (можно и через указатели).Например, Stask full')   else  begin     Stack underflow (стек


Вас интересуют туры из тюмени? Тогда заказать туры из Тюмени можно на туристическом сайте в интернете.
Просмотров: 122 | Добавил: admin | Рейтинг: 0.0/0
Всего комментариев: 0
avatar
Форма входа
Календарь
«  Июль 2014  »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
28293031
Архив записей