Function t10_q(x,q:longint):string; const s='0123456789ABCDEFGHI'; var t,m:longint; r:string; begin t:=x; r:=''; while t>=q do begin m:=t mod q; r:=s[m+1]+r; t:=t div q end; t10_q:=s[t+1]+r end;
{ тестирование } var q,n:longint; begin Write('Введите основание системы счисления (2-20): '); Readln(q); Write('Введите натуральное число для перевода: '); Readln(n); Writeln(n,'(10)=',t10_q(n,q),'(',q,')') end.
Тестовое решение: Введите основание системы счисления (2-20): 16 Введите натуральное число для перевода: 16350 16350(10)=3FDE(16)
1. Задаются переменные s, i с целыми числовыми значениями. 2. Начало кода 3. Переменной s присваивается значение 0. 4. Цикл. Условие: при значении i от 1 до 5. Действие: присвоить переменной s значение, увеличенное на i. 5. Вывод значения переменной s. 6. Конец кода
Summa2. Анализ
1. Задаются переменные s, i с целыми числовыми значениями. 2. Начало кода 3. Переменной s присваивается значение 0, переменной i - значение 1. 4. Цикл. Условие: до тех пор, пока i меньше или равно 5. Действие: увеличить значение переменной s на і, значение переменной і - на 1. 5. Вывод значения переменной s. 6. Конец кода
Summa3. Анализ
1. Задаются переменные s, i с целыми числовыми значениями. 2. Начало кода 3. Переменной s присваивается значение 0, переменной i - значение 1. 4. Цикл. Условие: пока i не станет больше 5. Действие: увеличить значение переменной s на і, значение і - на 1. 5. Вывод значения переменной s. 6. Конец кода
const
s='0123456789ABCDEFGHI';
var
t,m:longint;
r:string;
begin
t:=x; r:='';
while t>=q do
begin
m:=t mod q;
r:=s[m+1]+r;
t:=t div q
end;
t10_q:=s[t+1]+r
end;
{ тестирование }
var
q,n:longint;
begin
Write('Введите основание системы счисления (2-20): '); Readln(q);
Write('Введите натуральное число для перевода: '); Readln(n);
Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.
Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)