Задание, помогите., из 2 в 10 систему счисления. Опции

[Enot1]

Надо написать программу, которая переводит число из 2 в 10 систему счисления!

Добавлено через 1 мин.
Заранее спасибо.!

[Tan]

Общие вопросы по математике

[Enot1]

а есть самый простой способ? просто только начал учить язык TP...там не всё понятно!((

[volvo]

Что именно не понятно, скажи...

[Enot1]

function ToDec(n:string; radix:longint):longint;, например эта строка)

вот нашёл...скажите плз, что обозначает выделенное...
var
x:longint;
c:char;
begin
while not eoln do
begin
read©;
x:=x*2+ord©-48;
end;
writeln(x);
end.

[Ozzя]

eoln - end of line (конец строки)

[Enot1]

это я знаю, но всё же не понимаю, что эта строка выполняет(

[Артемий]

Пока не закончится строка,будет происходить какое-то действие...

[Ozzя]

Где ты там такой код увидел??????????????

Добавлено через 1 мин.
По той ссылке, которая приводилась?

[Enot1]

это не оттуда...
там не понятна вот эта строка - function ToDec(n:string; radix:longint):longint;, например эта строка)

[Ozzя]

n:string; // исходная строка, например 10101011
radix:longint // основание системы счисления , например 2-ная

[Enot1]

фишка в том, что мы прошли очень поверхностно теорию по Pascal....И из этих знаний надо написать прогу)

[Артемий]

фишка в том, что мы прошли очень поверхностно теорию по Pascal....И из этих знаний надо написать прогу)

Может будем подробнее?? Пиши что не понятно, и тебе ответят!А то мы не телепаты..

[Ozzя]

Тогда реализуй стандартный алгоритм перевода из 2-ной в 10-ную.
бери 1-й символ из последовательности 2-ных цифр
умножай на 2 в степени номера позиции цифры в числе-1
и т.д.
Сам алгоритм-то ведь знаешь?

[Enot1]

алгоритм перевода да, как в паскале не совсем)

[Ozzя]

for i:=1 to length(s) do
  begin
     val(s[i],c,code); { взяли очередной символ из последовательности цифр и преобразовали его из символа в число }
     q:=q+c*power(2,Length(s)-i); { складываем сумму с очереной йифрой*на 2^i
  end;

Ф-йия power есть в той же теме в ФАК

[Enot1]

большое спасибо!