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

[st3lz]

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

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

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

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

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

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

[Unconnected]

Попробуй привести все значения к десятеричной системе счисления, например, и сравнивай..В интернет полно примеров перевода из одной системы счисления в другую на Delphi,например.

[amega]

спешел фо ю до 512 хватит?

[volvo]

В интернет полно примеров перевода из одной системы счисления в другую на Delphi,например

А чего это в интернете? У нас в FAQ-е лежит. И не на Дельфи, а на Паскале.

amega, дубликат поста удалил...

[~Sl1z3r*]

1 и 2 по 170.
3 = 20

[volvo]

1 и 2 по 170.
3 = 20

И что? Это что, программно вычислено? Или простой флейм? Что толку с этих результатов? А преподаватель при сдаче попросит сравнить
206'16
240'8 + 101100010'2;
1006'8
И что делать? Говорить ему: "секунду, я сейчас у ~Sl1z3r*-а спрошу, погодите"? Топикстартеру сказали, где искать программы перевода, НЕ НАДО за него переводить числа. Это его задание, пускай он и решает.

[~Sl1z3r*]

И что?

Ничего.

Это что, программно вычислено?

Нет, на листочке.

Или простой флейм?

сложный.

Что толку с этих результатов?

Можно перепроверить свои.

А преподаватель при сдаче попросит сравнить
206'16
240'8 + 101100010'2;
1006'8
И что делать? Говорить ему: "секунду, я сейчас у ~Sl1z3r*-а спрошу, погодите"?

Тоже вариант.

[Айра]

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