Преобразование двоичных чисел в десятичные Допустим, дано двоичное число 1100012. Для перевода в десятичное запишите его как сумму по разрядам следующим образом: Может потребоваться перевести десятичное число в двоичное. Один из это деление на два и формирование двоичного числа из остатков. Например, нужно получить из числа 77 его двоичную запись: 77 / 2 = 38 (1 остаток) 38 / 2 = 19 (0 остаток) 19 / 2 = 9 (1 остаток) 9 / 2 = 4 (1 остаток) 4 / 2 = 2 (0 остаток) 2 / 2 = 1 (0 остаток) 1 / 2 = 0 (1 остаток) Собираем остатки вместе, начиная с конца: 1001101. Это и есть число 77 в двоичном представлении. Проверим:
2. var n,s,i:integer; begin writeln ('Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)'); write ('Введите n: '); readln (n); for i:=11 to n do if i mod 2 = 1 then s:=s+i; writeln ('Сумма нечетных чисел от 11 до ',n,' равна ',s) end.
1. var a,b:real; begin writeln ('Программа для решения уравнения ax=b'); write ('Введите a и b: '); readln (a,b); if (a=0) and (b=0) then writeln ('x - любое число') else if (a=0) and (b<>0) then writeln ('решений нет') else writeln ('x = ',b/a) end.
Var n,m,osn: integer; function nmbdec(var n,osn: integer): integer; var nmb,l,s,k: integer; begin nmb:=0; s:=0; k:=n; l:=1; while k>0 do begin s:=k mod 10; k:=k div 10; nmb:=nmb+l*s; l:=l*osn; end; Result:=nmb; end; { конец функции} begin write('число: '); readln(n); write('квадрат какого числа: '); readln(m); osn:=10; while osn>=2 do begin osn:=osn-1; if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then begin writeln('основание системы = ',osn); break; end; end; end.
Допустим, дано двоичное число 1100012.
Для перевода в десятичное запишите его как сумму по разрядам следующим образом:
Может потребоваться перевести десятичное число в двоичное. Один из это деление на два и формирование двоичного числа из остатков. Например, нужно получить из числа 77 его двоичную запись: 77 / 2 = 38 (1 остаток)
38 / 2 = 19 (0 остаток)
19 / 2 = 9 (1 остаток)
9 / 2 = 4 (1 остаток)
4 / 2 = 2 (0 остаток)
2 / 2 = 1 (0 остаток)
1 / 2 = 0 (1 остаток) Собираем остатки вместе, начиная с конца: 1001101. Это и есть число 77 в двоичном представлении. Проверим: