Объяснение:
сть несколько перевода чисел из любой системы счисления в десятичную. Один их них основан на алгоритме для вычисления значения многочлена в некоторой точке х, который носит название вычислительной схемы Горнера.
Для перевода целых чисел из десятичной системы счисления в систему счисления с основанием р:
Последовательно делить заданное число и получаемые целые части на новое основание счисления (р) до тех пор, пока целая часть не станет ровна нулю.
Полученные остатки от деления, представленные цифрами из нового счисления, записать в виде числа, начиная с последней целой части.
Пример 1. Перевести число 61 из десятичной системы счисления в двоичную:
(В дальнейшем будет использоваться краткая запись задания: 6110 = Х2)
61 = 30 • 2 + 1;
30 = 15 • 2 + 0;
15 = 7 • 2 + 1;
7 = 3 • 2 + 1;
3 = 1 • 2 + 1;
1 = 0 • 2 + 1.
ответ: 6110 = 1111012.
(Можно заметить, что рассмотренный «Пример 1» является противоположным «Примеру 1» рассмотренному в предыдущей теме. Таким образом, всегда можно делать проверку результата при переводе чисел из любой системы счисления в десятичную, и наоборот).
Пример 2. 27110 = Х8:
271 = 33 • 8 + 7;
33 = 4 • 8 + 1;
4 = 0 • 8 +4.
ответ: 27110 = 4178.
Пример 3. 1140610 = Х16:
11406 = 712 • 16 + 14;
712 = 44 • 16 + 8;
44 = 2 • 16 +12;
2 = 0 • 16 +2.
Учитывая, что в шестнадцатеричной системе счисления числу 14 соответствует цифра Е, а числу 12 цифра С, запишем ответ:
ответ: 1140610 = 2С8Е16.
(Будет не правильно записать ответ: 1140610 = 21281416)
Цикл выполнится 4 раза
a = 5 b = 16 s = 21
Объяснение:
a = 1 b = 1
Действия в цикле
a = a + 1
b = b * 2
Цикл заканчивается когда b > 8
s = a + b
a = 1 b = 1
a = a + 1 = 1 + 1 = 2
b = b * 2 = 1 * 2 = 2
b > 8 (2 > 8 - нет, цикл продолжается)
a = a + 1 = 2 + 1 = 3
b = b * 2 = 2 * 2 = 4
b > 8 (4 > 8 - нет, цикл продолжается)
a = a + 1 = 3 + 1 = 4
b = b * 2 = 4 * 2 = 8
b > 8 (8 > 8 - нет, цикл продолжается)
a = a + 1 = 4 + 1 = 5
b = b * 2 = 8 * 2 = 16
b > 8 (16 > 8 - да, цикл заканчивается)
s = a + b = 5 + 16 = 21
a = 5 b = 16 s = 21
Программа:
program z1;
var a,b,s:integer;
begin
a:=1 ;
b:=1 ;
repeat
a:=a+1 ;
b:=b*2 ;
until b>8 ;
s:=a+b;
writeln (s)
end.