доброго дня!
написал прогу для перевода чисел из 10-тичной системы в 2-чную.
только вот она значение выводит наоборот:

var
a,b,c:integer;

  procedure perevod(a:integer);
    var
      b,c:integer;
    begin
      b:=a mod 2;
      write(b);
      c:=a div 2;
      //writeln(c);
      while c>0 do begin
        b:=c mod 2;
        write(b);
        c:=c div 2;
      end;
      
  end;

begin
  writeln('введите десятичное число для перевода в двоичную систему: ');
  readln(a);
  perevod(a);
end.


как исправить?

>write(b)
ты вот это назвал переводом числа?

вынести первое деление за тело цикла это шедевр ящитаю

Обратись к toypaul
Он уже научился округлять, может и тебе поможет.

function perevod(a:integer):string;
    var
      b:integer;
      c,s:string;
    begin
      result:='';
      while a>0 do
      begin
        b:=a mod 2;
        str(b,c);
        result:=c+result;
        a:=a div 2;
      end;        
  end;

(0) Слушай, или учить паскаль на форум по паскалю, а?
http://www.forum.mista.ru/index.php?user_id=98271

(5) Если еще разок запостит схожую тему - забань его на годик.

(5)(6) Вы несправедливы. Ну изучает человек программирование на ископаемом языке, ну не может найти тематический форум (может его в гугле забанили, почем знать?), ну наткнулся на мисту, что ж теперь сделаешь? И потом, кто нам пятничное настроение будет создавать?

Это же прелесть:
>>написал прогу для перевода чисел из 10-тичной системы в 2-чную
>>как исправить?

(5) (6) А что такого? С каких пор на мисте запрещены другие языки программирования?

(7) Да, я такой. И вообще, миста детям не игрушка.

(5)(6) надо расщиряться.
Миста- волшебный форум :).
Даешь отделные секции под другие языки :)

(10) А пенсионерам не забава!))

(11) А я думал, что тут можно не только языком.
(12) Хм-м-м-м, до нее еще одинэсить и одинэсить...

почему про формулу-1 можно, а про паскаль нельзя?
для многих ностальгия опять же.

(14) Это тима типа: Папа купил мне спорткар, ключи есть, подскажите как открыть дверь и куда ключ вставить чтобы завести?!

(15) злой ты, это тема "мама, папа, смотрите как я умею".
и это гораздо лучше, чем изливать желчь в темах типа Крыша едет. Почему Окр(0,36472,2,1) = 0.36?

(16) Эх-х... Проморгал темку...
:))

(15) (16) Гораздо больше надоели темы, типа "а помогите выбрать шапочку для бассейна". Не понимаю, почему человек может открыть форум и не может открыть гугл.

А паскаль - это весело. Опять же, как верно упомянуто - ностальгия

(18) когда я прошу девушку помочь сварить мне борщ, это вовсе не значит, что мне нужен борщ ;)

Ок. Был не прав.

А ктонить подскажет как перевесить дверь на холодильнике?

(21) проще перевернуть

(21) Флуд в тематических ветках запрещен)))
Ты что, не выспался сегодня? :)

(20) Так, то - борщ с девушкой, а то - форум с шапочкой...
Для меня такие сочетания не взаимозаменяемы. ;)

выкинь паскаль, пользуйся javascript:

(12).toString(2)

(0) теперь переводчик исходных текстов в машинные коды пиши, типа "введите текст:"

(0) Рекурсия написана как-то коряво.

(4) а зачем использовать result:=''; ?

вот мой вариант:
var
  a,b,c:integer;
  procedure perevod(a:integer);
    var
      b,e:integer;
      c,d:string;
    begin
      if a<=0 then
        writeln('введенное число должно быть положительно и больше нуля!!!');
      while a>0 do begin
        b:=a mod 2;
        str(b,c);
        d:=d+c;
        a:=a div 2;
      end;
        e:=length(d);
        for e:=e downto 1 do begin
          write(d[e]);
        end;
  end;
  
begin
  writeln('введите число для перевода из 10-ти значного в 2-ух значное');
  readln(a);
  perevod(a);
end.

(29) Дитё! Вот тебе мой подзатыльник! Тебе за использование переменных, которые не отражает суть задачи нужно дополнительно 100 раз отжаться перед решением каждой задачи и 100 задач дать на решение. А за то, что ты одни и теже переменные впихиваешь в процедуру и в основную часть программы говорит о твоей неаккуратности, только сам себя путаешь.

(20) Борщ - это мой метод! Авторские права соблюдай!

(30) так то лучше:

var
  a:integer;
  procedure perevod(a:integer);
    var
      b,e:integer;
      c,d:string;
    begin
      if a<=0 then
        writeln('введенное число должно быть положительно и больше нуля!!!');
      while a>0 do begin
        b:=a mod 2;
        str(b,c);
        d:=d+c;
        a:=a div 2;
      end;
        e:=length(d);
        for e:=e downto 1 do begin
          write(d[e]);
        end;
  end;
  
begin
  writeln('введите число для перевода из 10-ти значного в 2-ух значное');
  readln(a);
  perevod(a);
end.

(32) Удали лишние переменные. Минимизируй количество переменных.

(33) все! меньше сложно уже думать...:
предлагаем не стисняемся




var
  a:integer;
  procedure perevod(a:integer);
    var
      e:integer;
      c,d:string;
    begin
      if a<=0 then
        writeln('введенное число должно быть положительно и больше нуля!!!');
      while a>0 do begin
        str(a mod 2,c);
        d:=d+c;
        a:=a div 2;
      end;
        e:=length(d);
        for e:=e downto 1 do begin
          write(d[e]);
        end;
  end;
  
begin
  writeln('введите число для перевода из 10-ти значного в 2-ух значное');
  readln(a);
  perevod(a);
end.

var c:char;
while a>0 do begin
        c=chr((a mod 2)+ord('0'));
        d:=c+d;
        a:=a div 2;
end;
writeln(s);

ну или так: слизано и переделано с сайта http://pas1.ru/decproc


var
    k: integer;
    s: byte;

procedure scale (a: integer);
    begin
            if a > 1 then
                scale (a div 2);
            write (a mod 2)
    end;

begin

    write ('Введите число: ');
    readln (k);

    scale (k);

readln
end.

или даже так:

var
  k: integer;

procedure scale(a: integer);
begin
  if a > 1 then
    scale(a div 2);
  write(a mod 2)
end;

begin
  write('Введите число: ');
  readln(k);
  scale(k);
  readln
end.

> слизано и переделано
ТС на пути к просветлению, однако

(0) Юзай стандартную функцию DecToBin