Помощь - Поиск - Пользователи - Календарь
Полная версия: Задание, помогите.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Enot1
Надо написать программу, которая переводит число из 2 в 10 систему счисления!

Добавлено через 1 мин.
Заранее спасибо.!
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я

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

Добавлено через 1 мин.
По той ссылке, которая приводилась? blink.gif
Enot1
это не оттуда...
там не понятна вот эта строка - function ToDec(n:string; radix:longint):longint;, например эта строка)

Ozzя
n:string; // исходная строка, например 10101011
radix:longint // основание системы счисления , например 2-ная
Enot1
фишка в том, что мы прошли очень поверхностно теорию по Pascal....И из этих знаний надо написать прогу)
Артемий
Цитата
фишка в том, что мы прошли очень поверхностно теорию по Pascal....И из этих знаний надо написать прогу)
dry.gif Может будем подробнее?? Пиши что не понятно, и тебе ответят!А то мы не телепаты..
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
большое спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.