в общем имеется текстовый файл. в котором каждая строчка - шестнадцатеричное число.
задача - сложение всех чисел файла и вывод результата на экран.. язык - паскаль..
нашел подобную для десятичных чисел, а как реализовать для шестнадцатеричных - не шарю.. Уважаемые гуру. помогите. иначе не засчитают мне практику..
program a1;
uses crt;
var a,b:string;
i,j,k,m:integer; c,d,x:array[1..253] of integer;
begin
clrscr;
readln(a);
readln(b);
j:=length(a);
for i:=1 to length(a) do
begin
val(a,c[j],m); j:=j-1;
end;
j:=length(b);
for i:=1 to length(b) do
begin
val(b,d[j],m); j:=j-1;
end;
if length(a)<length(b) then k:=length(b) else k:=length(a);
k:=k+1;
for i:=1 to k do
x:=0;
for i:=1 to k do
begin
x:=c+d+x;
if x>=10 then
begin
x[i+1]:=x[i+1]+1;
x:=x mod 10;
end;
end;
if x[k]=0 then k:=k-1;
for i:=k downto 1 do write(x[i]);
readkey;
end.
Задачка - очень простая, она - на прямое запрограммирование алгоритма сложения столбиком, а система счисления - здесь вовсе не причём. Алгоритм сложения столбиком помнишь? Вот, как раз его и надо записать - в одной строке циферки, в другой строке циферки, а третья строка - сумма циферок в двух предыдущих.