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

Автор: Enot1 12.05.2007 18:05

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

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

Автор: Tan 12.05.2007 18:06

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

Автор: Enot1 12.05.2007 18:10

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

Автор: volvo 12.05.2007 18:10

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

Автор: Enot1 12.05.2007 18:14

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я 12.05.2007 18:17

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

Автор: Enot1 12.05.2007 18:21

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

Автор: Артемий 12.05.2007 18:25

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

Автор: Ozzя 12.05.2007 18:29

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

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

Автор: Enot1 12.05.2007 18:32

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

Автор: Ozzя 12.05.2007 18:34

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

Автор: Enot1 12.05.2007 18:38

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

Автор: Артемий 12.05.2007 18:40

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

Автор: Ozzя 12.05.2007 18:41

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

Автор: Enot1 12.05.2007 18:43

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

Автор: Ozzя 12.05.2007 18:52

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 12.05.2007 18:55

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