Разработать программу на языке программирования turbo pascal
найти среднее арифметическое значений функций y= (1-e^-x2)sin2x на интервале изменения аргумента от xn до xk с шагом h
б

1) -9

Найдем модуль числа:

|-9|=9

Найдем прямой код числа 9

9/2 = 4 ост 1

4 / 2 = 2 ост 0

2 / 2 = 1 ост 0

Запишем число в прямом коде 

9 = 1001(2 СС)

Дополним до до 8 разрядов

00001001

Инввертируем - заменяем каждую цифру обратным кодом (0 заменяем на 1, 1 заменяем на 0)

11110110 - это обратный код чила

Прибавляем 1 (чтобы получить дополнительный код)

11110110 + 1 = 11110111

2) -15

Модуль - |-15| = 15

Двоичное представление 15 = 1111(2)

Представление восьмиразрядное

00001111 - прямой код

Инвертируем:

11110000 - обратный код

Прибуавляем 1

11110001 - дополнительный код

3) -127

Модуль |-127| = 127

Двоичное число

127 = 1111111

Восьмиразрядное представление

01111111 - прямой код

Инвертируем

10000000 - обратный код

Добавляем 1

10000001- дополнительный код

4) |-128|

Модуль |-128| = 128

Двоичное число 128 = 10000000

Восьмиразрядное представление 10000000

Число в -128 в 8 разрядах представить нельзя - недостаток ячеек памяти

Program Maslovaalisa;
const n=7;
var last: array[1..n] of integer;
var new: array[1..n] of integer;
i: integer;
begin
  writeln('');
  for i:=1 to n do
  begin
    writeln('Введите температуру за ',i,'-й день недели: ');
    write('  - в году  ');readln(last[i]);
    write('  - в этом году  ');readln(new[i]);
   end;
  writeln('*** alphaues is thinking... ***');
  writeln();
  for i:=1 to n do
  begin
    if last[i] > new[i] then
writeln('В ',i,'-й день недели в году было теплее, чем в этом. Бр-р-р...')
    else
      if last[i] < new[i] then
writeln('В ',i,'-й день недели в году было холоднее, чем в этом. Уф-ф-ф...')
        else
writeln('Удивительно! В ',i,'-й день недели в году была такая же температура, как в этом!');
  writeln('');
  end;
end.