М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
gamer2280
gamer2280
07.12.2021 20:11 •  Информатика

Pascal: вычислить значение выражения y=x^n – z^k. вычисление значения степени оформить в виде рекурсии.

👇
Ответ:
antonzagarinp00ule
antonzagarinp00ule
07.12.2021
Function Pow(x:real;n:integer):real;
begin
  if n=0 then Pow:=1
  else Pow:=Pow(x,n-1)*x
end;

var
  x,z:real;
  n,k:integer;
begin
  Writeln('Введите x,n,z,k: '); Read(x,n,z,k);
  Writeln(Pow(x,n)-Pow(z,k))
end.

Пример
Введите x,n,z,k:
3.7 5 2.18 4
670.85426424
4,6(65 оценок)
Открыть все ответы
Ответ:
Suslik1111
Suslik1111
07.12.2021
1. Первая цифра отводится на знак (1 - это -, 0 - это +). Остальные 7 - число в двоичной системе счисления. Причём если число отрицательное, то исходное двоичное число инвертируется, и к нему прибавляется 1.
а) 33 | 16 | 8 | 4 | 2 | 1 - в двоичной системе оно выглядит как 100001
      1 |  0  | 0 | 0 | 0 | 1
Так как оно положительное, то в начале ставится 0. Так как чисел всего 6, а не 7, то после первого нуля следует поставить ещё один.
ответ: 0'0100001
б) -63₁₀ = -111111₂ (переводить уже не буду подробно)
Так как число отрицательное, то в начале ставим 1, так как цифр 6, то ставим после 1 0.
1'0111111
Инвертируем:
1'1000000
Прибавляем 1:
1'1000001
ответ: 1'1000001
в) -254₁₀ = -11111110
Так как цифр 8, то последнюю отбрасываем, а далее по алгоритму:
1'1111111 >> 1'0000000 >> 1'0000001
ответ: 1'0000001

2.' ' '                   . . . . .
а) 11110  б)  10101010
   + 1101     -       11011
=101011     =10001111
в)   1101
     *  101
      1101
+1101
=1000001
Всё, как в обычной арифметике.
4,6(69 оценок)
Ответ:
odminsovet
odminsovet
07.12.2021
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  a, b: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    ЕСЛИ ЧЕТ(сч) ТО
      b[сч] := a[сч] * 2
    ИНАЧЕ
      b[сч] := a[сч] * 3
    КОН
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
  КОН

КОН Задание.
4,7(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ