Помогите написать программу.
Вобщем условие следующее...
Какие из трёх значений:
1. AA'16;
2. 240'8 + 1010'2;
3. A'16 + A'16.
совпадают между собой.
(то что после апострофа это система счисления.)
Буду рад вашей помощи.
Попробуй привести все значения к десятеричной системе счисления, например, и сравнивай..В интернет полно примеров перевода из одной системы счисления в другую на Delphi,например.
спешел фо ю до 512 хватит?[attachmentid=7814]
1 и 2 по 170.
3 = 20
st3lz, http://forum.pascal.net.ru/index.php?showtopic=4535&st=0&p=38226entry38226, если самому искать трудно..
~Sl1z3r*, с таким подходом, ты, скорее всего, ошибся ресурсом..
Спасибо за ссылку. очень помогла.
Ток не пойму как "спасибо" сказать
Собсно вот что вышло...всё работает...всё отлично.
uses crt;
var a,b,c,d,e:string;
aa,bb,cc,dd,ee,i,j,l,m,k,q,w:longint;
v:integer;
function ToDec(n:string; radix:longint):longint;
var m, i: longint;
const digit: string[16]='0123456789ABCDEF';
begin
m:=0;
while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;
begin
clrscr;
readln(a);readln(aa);
readln(b);readln(bb);
readln©;readln(cc);
readln(d);readln(dd);
readln(e);readln(ee);
i:=ToDec(a,aa);
j:=ToDec(b,bb);
k:=ToDec(c,cc);
l:=ToDec(d,dd);
m:=ToDec(e,ee);
q:=j+k;
w:=l+m;
writeln('+++++++++++');
if (i=q) then writeln ('1 and 2 (',i,')') else
if (q=w) then writeln ('2 and 3 (',q,')') else
if (w=i) then writeln ('1 and 3 (',w,')') else
if (i=q) and (q=w) and (w=i) then writeln ('1,2 and 3 (',i,')') else
if (i<>q) and (q<>w) and (w<>i) then writeln ('Net sovpadenii')
readln;
end.