Вычислить значение выражения

@Golandets · Регистрация: 03.11.2016

Студворк — интернет-сервис помощи студентам

Привет ребят не оч шарю в паскале, нужна помощь в задаче: Вычислить значение выражения y=xn – zk. Вычисление значения степени оформить в виде рекурсии. Зарание спасибо !!

@Cyborg Drone · 07.11.2016, 00:19

Имеется ввиду y=xⁿ – z^k, да?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function Pow(q: double; n: longint): double;
begin
  if n = 1
    then Pow := q
    else Pow := q * Pow(q, n - 1)
end;
 
procedure ReadLnQ(s: string; var q: longint);
begin
  repeat
    write(s, ' > 0;  ', s, ' = ');
    readln(q)
  until q > 0
end;
 
var x, y, z: double;
    n, k: longint;
begin
  write('x = ');
  readln(x);
  ReadLnQ('n', n);
  write('z = ');
  readln(z);
  ReadLnQ('k', k);
  y := Pow(x, n) - Pow(z, k);
  writeln('y = x^n - z^k = ', y);
  readln
end.

Не по теме:

Пользуйтесь форматированием текста с помощью BB-кодов и редактором формул. А то как-то странно получается: шрифт увеличить (кстати, форматирование текста без веских на то оснований запрещено) Вы прям мастер, а xⁿ написать, что куда как важнее для понимания задания, у Вас как-то не получается. От этого появляется нехорошее подозрение, что помощь Вам не требуется, поскольку Ваше задание Вам по фиг.

@bormant · 07.11.2016, 08:41

Cyborg Drone,
я б глубину рекурсии при возведении в степень уменьшил:
Возведение в степень

@Cyborg Drone · 07.11.2016, 09:09

bormant, вот не глядя... Алгоритм быстрого возведения в степень, да?

@bormant · 07.11.2016, 09:38

Cyborg Drone, безусловно

@Cyborg Drone · 07.11.2016, 09:44

Не по теме:

Эх, слаб человек... Не вытерпел, посмотрел...

@bormant · 07.11.2016, 09:57

В сухом остатке:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function Pwr(r: Real; n: Integer): Real;
var t: Real;
begin
  if n>=0 then begin
    if Odd(n) then t:=r else t:=1;
    if n>1 then t:=t*Sqr(Pwr(r,n div 2));
  end else t:=1/Pwr(r,-n);
  Pwr:=t;
end;
var
  x, z: Real;
  n, k: Integer;
begin
  Write('x n z k: '); ReadLn(x,n,z,k);
  WriteLn('x^n - z^k = ',Pwr(x,n)-Pwr(z,k));
end.

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

Вычислить значение выражения

Решение

Решение

@Golandets 0 / 0 / 0 Регистрация: 03.11.2016 Сообщений: 17

	Вычислить значение выражения 03.11.2016, 20:51. Показов 1167. Ответов 6 Метки нет (Все метки) Привет ребят не оч шарю в паскале, нужна помощь в задаче: Вычислить значение выражения y=xn – zk. Вычисление значения степени оформить в виде рекурсии. Зарание спасибо !! 0

@bormant Модератор 7810 / 4630 / 2835 Регистрация: 22.11.2013 Сообщений: 13,149 Записей в блоге: 1
	07.11.2016, 08:41
	Cyborg Drone, я б глубину рекурсии при возведении в степень уменьшил: Возведение в степень 0

@Cyborg Drone Модератор 10231 / 5519 / 3373 Регистрация: 17.08.2012 Сообщений: 16,878
	07.11.2016, 09:09
	bormant, вот не глядя... Алгоритм быстрого возведения в степень, да? 0

@bormant Модератор 7810 / 4630 / 2835 Регистрация: 22.11.2013 Сообщений: 13,149 Записей в блоге: 1
	07.11.2016, 09:38
	Cyborg Drone, безусловно 0

@Cyborg Drone
	07.11.2016, 09:44
	Не по теме: Эх, слаб человек... Не вытерпел, посмотрел... 0

Опции темы