Рекурсивный перевод в различные системы счисления - Turbo Pascal

  1. Дано натуральное число n>1. Перевести его в систему счисления 7.


textual

Код к задаче: «Рекурсивный перевод в различные системы счисления - Turbo Pascal»

function recursion(n:longint):string;
var ch:char;
begin
   if n<>0 then
   begin
      ch:=char(n mod 7 +48);
      recursion:=recursion(n div 7)+ch;
   end
   else recursion:='';
end;
 
var n:longint;
begin
   write('Введите натуральное число>0: ');
   readln(n);
   writeln('Семиричная система: ',recursion(n));
   readln;
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5



Похожие ответы
  1. Здравствуйте,помогите перевести паскаль на С++ writeln - cout,я понял а остальное

  1. Я в паскале ещё тупой не могу написать программу: пользователь вводит слово и программа капсит все буквы

  1. Ребят,у меня проблема.Вот задача:Известно, что IP-адрес записывается в нескольких вариантах. Наиболее известен «человеческий» вариант. Например, 192.168.0.1. Программа получает запись IP-адреса в «человеческом» виде и преобразует его к двоичному виду. При этом каждый байт должен состоять из восьми разрядов. Байты отделяются друг от друга пробелами. Точки между байтами не допускаются.Мне бы алгоритм ну или просто объясните на примере ,а то додуматься не могу.

  1. Записать функцию b=f(x,y,z) по правилам языка Паскаль b=|x-y|(sin3z+tgz)

  1. Здравствуйте! Помогите, пожалуйста, перевести этот код в Паскаль.C#1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 double[] array = new double[20]; Console.WriteLine("Введите массив"); for (int a = 0; a<20;a++) {       array[a] = Convert.ToDouble(Console.ReadLine()); } int countOfChanges = 0; string currentSign; if (array[0] >= 0) {     currentSign = "+"; } else {     currentSign = "+"; } for (int b = 1; b<=19;b++) {      if (array[b] < 0 && currentSign == "+")      {          countOfChanges +=1;          currentSign = "-";       }       else if (array[b] >= 0 && currentSign == "-")       {           countOfChanges +=1;           currentSign = "+";        } } Console.WriteLine("Введенный массив"); for(int c = 0; c < 20; c++); {         Console.Write(array[c] + " "); } Console.WriteLine(); Console.WriteLine("Количество смен знака = " + countOfChanges); Console.ReadKey(); }

  1. Люди добрые, помоги пожалуйста. Написал 2 программы ( 2 программу писал не сам ) только сейчас узнал, что нужно написать на turbo pascal, но сколько ТП я скачивал, выдают несовместимость с системой. Прошу, можете мои программы скинуть, на ТП?

  1. По введенному символу установить в каких позициях его двоичного кода записаны нули.

  1. программа считает в real , потом переводит файлы в double для матлаба , а теперь не могу сделать обратный перевод в real из double

  1. Напишите рекурсивную процедуру для перевода десятичного числа в P-ичную систему счисления, не использующую в своей работе массив. Входные данные На вход программе сначала подается значение P (1P10), а во второй строке — десятичное число. Выходные данные Вывод осуществляйте следующим образом: сначала выведите введенное число в десятичной системе счисления, за ним укажите его систему счисления в круглых скобках, то есть (10), затем ставится знак "=" и аналогично выводится результат работы вашей программы — число в P-ичной системе счисления. Весь вывод осуществляется без пробелов. Примеры входные данные 3 123 выходные данные 123(10)=11120(3)

  1. Реализовать вывод известного детского стишка "У попа была собака.." с использованием рекурсивных методов.