Версия для печати темы

Автор: Oren 26.11.2007 19:28

Перевести чсло из одной системы счисления в десятиричную. Пожалуйста помогите,очень надо. И как можно скорее. Буду очень признателен. Спасибо.

Автор: Ozzя 26.11.2007 19:34

http://forum.pascal.net.ru/index.php?showtopic=4535 для кого был написан, осмелюсь спросить?

Автор: Гость 26.11.2007 19:36

Ну извини, плиз. Могу создать тему в факе. Только решите пожалуйста!

Автор: Ozzя 26.11.2007 19:38

Там, по ссылке, для тех, кто в Т-34, решение твоей задачи.

Автор: Oren 26.11.2007 19:44

Цитата(Ozzя @ 26.11.2007 15:38)

Там, по ссылке, для тех, кто в Т-34, решение твоей задачи.

Автор: Ozzя 26.11.2007 19:45

http://forum.pascal.net.ru/index.php?showtopic=4535&st=0&p=38226&#

Автор: Oren 26.11.2007 19:48

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

Автор: volvo 26.11.2007 19:50

Слова "и наоборот" у тебя не отображаются? Глюк форума, наверное?

Автор: Ozzя 26.11.2007 19:52

Ты следующую процедуру по ссылке (ToDec) удосужишься посмотреть?

Автор: Oren 26.11.2007 19:53

Цитата(volvo @ 26.11.2007 15:50)

Автор: Ozzя 26.11.2007 19:55

Цитата(Oren @ 26.11.2007 16:53)

Автор: Oren 26.11.2007 19:59

Цитата(Ozzя @ 26.11.2007 15:55)

Автор: Ozzя 26.11.2007 20:04

Цитата(Oren @ 26.11.2007 16:59)

Автор: asu2006 26.11.2007 20:07

Заходи суда помогу:
http://baikalsoft.easyforum.ru

Автор: Oren 26.11.2007 20:08

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых:-)

Автор: Oren 26.11.2007 20:09

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых, да Ozzя?:-)

Автор: Oren 26.11.2007 20:09

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых, да Ozzя?:-)

Автор: Ozzя 26.11.2007 20:11

Цитата(Oren @ 26.11.2007 17:09)

Автор: Гость 26.11.2007 20:14

Цитата(Ozzя @ 26.11.2007 16:11)

На слабо берете, уважаемый?

Автор: Oren 26.11.2007 20:14

Цитата(Ozzя @ 26.11.2007 16:11)

На слабо берете, уважаемый?

Автор: drug 26.11.2007 20:33

а из какой точно? или из любой?

Автор: Гость 26.11.2007 20:33

Помогите хоть кто-нибудь!

Автор: Гость 26.11.2007 20:34

Цитата(drug @ 26.11.2007 16:33)

Автор: drug 26.11.2007 20:55

на

program sss;
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;
var
n:string;
k,ss:longint;
begin
writeln('vvedite chislo ');
readln (n);
writeln('vvedite sistemu schisleniya v kotoroy eto chislo');
readln(ss);
k:=todec(n,ss);
writeln('chislo v 10ss: ');
writeln(k);

end.

Автор: Oren 26.11.2007 21:14

Цитата(drug @ 26.11.2007 16:55)

Автор: klem4 26.11.2007 22:25

ну и дурдом ... Закрыто.