Перевод в десятичную систему счисления одно целое двоичное число 1111100001 (шестнадцатеричное число E134)

Осуществить перевод чисел из одной системы счисления в другую и выполнить проверку вычислений.

1)  перевести в десятичную систему счисления одно целое двоичное число 1111100001.

2)  Перевести в десятичную систему счисления одно целое шестнадцатеричное число E134.

Решение.

1) Представим заданное число в развернутой форме и найдем его десятичное представление:

Проверка:

Выписываем получившиеся остатки от деления в обратном порядке и получаем, что

2) Представим заданное число в развернутой форме и найдем его десятичное представление:

Проверка:

Выписываем получившиеся остатки от деления в обратном порядке, учитывая, что  и получаем, что

Блок – схема:

Текст программы:

program z5;

uses crt;

var

x, f: real;

begin

clrscr;

write('vvedite x=');

readln(x);

f := (abs(x * ln(x) - 4) * sqrt(x)) * 1/exp(1/5*(4*x-1));

writeln('f=', f:1:3);

end.

Блок – схема:

Текст программы:

program z06;

uses crt;

var x1, y1, x2, y2, x3, y3: real;

begin

clrscr;

write('vvedite x1=');

readln(x1);

write('vvedite y1=');

readln(y1);

write('vvedite x2=');

readln(x2);

write('vvedite y2=');

readln(y2);

write('vvedite x3=');

readln(x3);

write('vvedite y3=');

readln(y3);

if sqrt(sqr(x1-x2)+sqr(y1-y2))<sqrt(sqr(x1-x3)+sqr(y1-y3)) then writeln('tochka N2 blizhe') else writeln('tochka N3 blizhe');

end.

Блок – схема:

Текст программы:

program z08;

uses crt;

var i, j, N, k: integer;

C: array[1..10, 1..10] of real;

label 1;

begin

clrscr;

1: write('vvedite N<=10  N=');

readln(N);

if N > 10 then goto 1;

k := 0;

for i:=1 to N do

for j:=1 to N do

begin

C[i,j] := sin(i+j/2);

if C[i,j] > 0 then k := k + 1;

end;

writeln(k);

end.

Блок – схема:

Текст программы:

program z5;

uses crt;

var

x, f: real;

begin

clrscr;

write('vvedite x=');

readln(x);

f := sqrt(exp(1/5*ln(x*x*x*x+exp(1/5*(4-x)))))+ln(abs(x-20.5));

writeln('f=', f:1:3);

end.