Информатика Информационные ресурсы и сервисы Интернета

const  A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.

Объяснение:

sqr(x) -- квадрат x.

sqrt(x) -- квадратный корень x.

power(x, y) -- x в степени y.

real.IsNaN(x) -- x не является числом (условие).

В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).

Алгоритм можно написать по выше данному коду.

Пример работы:

"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."

Переводим число 1984 в десятичную СС:
198416 = 1∙163+9∙162+8∙161+4∙160 = 4096+2304+128+4 = 65321
Десятичное в двоичную:
6532/2=3266 (остаток 0)
3266/2=1633 (остаток 0)
1633/2=816 (остаток 1)
816/2=408 (остаток 0)
408/2=204 (остаток 0)
204/2=102 (остаток 0)
102/2=51 (остаток 0)
51/2=25 (остаток 1)
25/2=12 (остаток 1)
12/26 (остаток 0)
6/2=3 (остаток 1)
3/2=1
Теперь справа налево собираем наши остатки (ответную единицу тоже)
Получаем: 1100110000100
Теперь нам нужно сделать нашу двоичную систему отрицательной:
Делаем реверс (справа налево) нашей двоичной системы (1100110000100)
Получаем: 0011001111011 (Заменили все наши нули на единицы, а единицы на нули)
Теперь мы должны прибавить единицу к нашей двоичной системе:
Получаем: 0011001111100
Единицу мы прибавили так:
0011001111011
+
1
1+1=10 (единицу запомнили, переходим к следующей цифре, с.л. единица уже перейдёт в 0)
1+1=10 (опять запомнили и опять единица перешла в 0, переходим к следующей)
1+0=1 (записываем единицу)
Правила прибавления:
1+1=10
0+1=1
0+0=0