Прежде, чем читать эту тему, ознакомьтесь с этой https://progaem.forum2x2.ru/forum-f3/tema-t81.htm
Итак, после описания типа, возникает вопрос, как мы будем считывать такие длинные числа?
Делается это просто:
ЭТО ПРИМЕР РЕАЛИЗАЦИИ НА DELPHI.
Теперь в основной программе просто пишем:
q := readlong;
q типа TLong;
Но как выписать наше число на экран/в файл?
Вот и все.
Итак, после описания типа, возникает вопрос, как мы будем считывать такие длинные числа?
Делается это просто:
- Код:
Function ReadLong: TLong;
Var s: string;
x: TLong;
i, j, k: integer;
Begin
ReadLn(s); //Считываем строку.
While (length(s) mod baselen <> 0) do s := '0' + s; //Добавляем строке ведущие нули, чтобы в каждом элементе массива было ровно baselen цифр.
Fillchar(x, sizeof(x), 0); //Опустошаем наше число.
x[0] := length(s) div baselen; //Просчитываем длину числа.
k := 0;
For i := x[0] downto 1 do
begin
For j := 1 to baselen do
begin
inc(k);
x[i] := x[i] * 10 + strtoint(s[k]);
end;
end;
ReadLong := x;
End;
ЭТО ПРИМЕР РЕАЛИЗАЦИИ НА DELPHI.
Теперь в основной программе просто пишем:
q := readlong;
q типа TLong;
Но как выписать наше число на экран/в файл?
- Код:
Procedure WriteLong(Var x: TLong);
Var i: integer;
s: string;
Begin
Write(x[x[0]]);
For i := x[0] - 1 downto 1 do
Begin
s := inttostr(x[i]);
While(length(s) < baselen) do s := '0' + s;
Write(s);
End;
WriteLn;
End;
Вот и все.
Ср Окт 12, 2016 2:43 am автор SeriousPasha
» требуется несколько JS разработчиков
Пт Окт 07, 2016 10:19 pm автор mrktwn1
» Защита приложения от взлома
Чт Июн 18, 2015 10:28 pm автор stradi
» Ищите программиста или дизайнера?
Пт Мар 27, 2015 6:25 am автор фриланс
» Создание и продвижение сайтов, их развитие.
Ср Мар 25, 2015 12:40 am автор asdfghhgfdsa
» Исходники для студентов + скайп-консультации,помощь в написании программ
Вт Окт 07, 2014 11:25 pm автор Horpion
» IT- технологии для развития бизнеса
Пн Июн 23, 2014 6:11 pm автор dvos12
» Стенли Кубрик "С Широко закрытыми Глазами"
Чт Июн 12, 2014 2:01 am автор Vertuozzz
» Каталог популярных хостинг компаний
Сб Май 10, 2014 7:18 pm автор naik