Переведите десятичные числа в шестнадцатеричную систему счисления ( желательно подробно как это получилось, а не просто число): 1) 128 2) 100 3) 0.125 4) 345.75
1) Целая часть от деления: Остаток от деления: 128 div 16 = 8 128 mod 16 = 0 8 div 16 = 0 8 mod 16 = 8 0 div 16 = 0 0 mod 16 = 0 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 080 128 = 080^16 2) Целая часть от деления Остаток от деления 100 div 16 = 6 100 mod 16 = 4 6 div 16 = 0 6 mod 16 = 6 0 div 16 = 0 0 mod 16 = 0 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 064 100 = 064^16 3) Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения. 0.125*16 = 2 (целая часть 2) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) Получаем число в 16-ой системе счисления: 2000 0.125 = 2000^16 4) Целая часть от деления Остаток от деления 345 div 16 = 21 345 mod 16 = 9 21 div 16 = 1 21 mod 16 = 5 1 div 16 = 0 1 mod 16 = 1 Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 159 345 = 159^16 Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения. 0.75*16 = 12 (целая часть 12) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) 0*16 = 0 (целая часть 0) Получаем число в 16-ой системе счисления: C000 0.75 = C000^16 В итоге получаем число: 159.C000^16
{Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.}const nmax = 20;var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer; beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end; writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i>j then begin write(A[i,j]:4);sumN:= sumN + A[i,j];end;end;writeln;end; writeln;writeln; for i:=1 to n do beginfor j:=1 to n do beginif i < j then begin write(A[i,j]:4);sumV:= sumV + A[i,j];end; end;writeln;end;if sumN > sumV then write('Cумма элементов лежащих под главной диагональю больше')else write('Cумма элементов лежащих над главной диагональю больше');end.
Program schet; var a:integer; label h; begin h: begin writeln('Введите количество палочек: '); readln(a); if (a<=0) then goto h else a:=a+3; writeln('У Тани стало ', a, ' палочек'); end; readln; end.
Program schet; var a,b:integer; begin a:=2015; writeln('Сколько лет проводится олимпиада?'); readln(b); a:=a-b; writeln('Первая олимпиада была проведена в ',a,' году.'); readln; end.
Program schet; var a,b,c,i:integer; begin writeln('Сколько семечек посадил Пятачок?'); readln(a); writeln('Сколько семечек не выросло?'); readln(b); a:=a-b; writeln('Сколько не плодоносных яблонь?'); readln(c); a:=a-c; writeln('На скольки яблонях вкусные яблоки?'); readln(i); a:=a-i; if (a<0) then writeln('Выросло 0 яблонь с невкусными яблоками.') else writeln('Выросло ',a,' яблонь с невкусными яблоками.'); readln; end.
Program schet; var a:real; begin writeln('Введите число, которое нужно округлить:'); readln(a); a:=round(a); writeln('ответ после округления: ',a); readln; end.
128 div 16 = 8 128 mod 16 = 0
8 div 16 = 0 8 mod 16 = 8
0 div 16 = 0 0 mod 16 = 0
Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 080
128 = 080^16
2) Целая часть от деления Остаток от деления
100 div 16 = 6 100 mod 16 = 4
6 div 16 = 0 6 mod 16 = 6
0 div 16 = 0 0 mod 16 = 0
Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 064
100 = 064^16
3) Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения.
0.125*16 = 2 (целая часть 2)
0*16 = 0 (целая часть 0)
0*16 = 0 (целая часть 0)
0*16 = 0 (целая часть 0)
Получаем число в 16-ой системе счисления: 2000
0.125 = 2000^16
4) Целая часть от деления Остаток от деления
345 div 16 = 21 345 mod 16 = 9
21 div 16 = 1 21 mod 16 = 5
1 div 16 = 0 1 mod 16 = 1
Остаток от деления записываем в обратном порядке. Получаем число в 16-ой системе счисления: 159
345 = 159^16
Для перевода дробной части числа последовательно умножаем дробную часть на основание 16. В результате каждый раз записываем целую часть произведения.
0.75*16 = 12 (целая часть 12)
0*16 = 0 (целая часть 0)
0*16 = 0 (целая часть 0)
0*16 = 0 (целая часть 0)
Получаем число в 16-ой системе счисления: C000
0.75 = C000^16
В итоге получаем число: 159.C000^16