Помогите написать программу Опции

[st3lz]

Помогите написать программу.
Вобщем условие следующее...

Какие из трёх значений:

1. AA'16;
2. 240'8 + 1010'2;
3. A'16 + A'16.

совпадают между собой.

(то что после апострофа это система счисления.)

Буду рад вашей помощи.

[Айра]

st3lz, вот, если самому искать трудно..
~Sl1z3r*, с таким подходом, ты, скорее всего, ошибся ресурсом..

[st3lz]

Спасибо за ссылку. очень помогла.
Ток не пойму как "спасибо" сказать

Собсно вот что вышло...всё работает...всё отлично.

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.

Сообщение отредактировано: st3lz - 16.03.2009 13:34