вторник, 15 декабря 2009 г.

перевод десятичного целого положительного числа в сиситему счисления с основанием 7

Вот сама задача, ее нада сделать)))...
Написать программу перевода десятичного целого положительного числа в сиситему счисления с основанием 7.
СПАСИБО ЗАРАНЕЕ!!!!


const
   N = 7; {поменяйте на нужное число}
var
   x: integer;
   ostatok: integer;
   s: string;
   c: string;
begin
   s:='';
   write('введите десятичное число: ');
   read(x);
   while x >= N do
   begin
      ostatok:=x mod N;
      Str(ostatok, c);
      s:=c+s;
      x:=x div N;
   end;
   
   if x > 0 then begin
      str(x, c);
      s:=c+s;
   end;
   writeln('в системе счисления по основанию ', N, ' это число = ', s);
end.

вывод:
введите десятичное число: 14
в системе счисления по основанию 7 это число = 20

2 комментария:

  1. решение этой задачи по с++ мне очень понравилось!
    Помогите теперь решить вот эту более сложную задачку заранее спасибо!

    Задание:
    Отсортировать половину массива размером 20 методом вставок, а вторую половину – методом пузырьков.

    ОтветитьУдалить