[gremt]

написать программу, проверяющую, является ли число M степенью числа N и наоборот. M и N вводит пользователь. M и N не обязательно являются целыми числами.
_________________________________

Помогите сделать,отблагодарю!

[lmikle]

Где-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

uses Math;   function IsPower(M,N : Integer) : Boolean; var   P, I : Integer; begin   I := 0;   P := 0;   Result := False;   While P < M Do     Begin        Inc(I);        P := Power(N,I);        Result := P = M;        If Result Then Break;     End; end;

функция предполагает, что числа положительные.

[Nyctos Kasignete]

lmikle,

Сообщение от gremt

M и N не обязательно являются целыми числами

***
Все гораздо проще =)
На самом деле, достаточно воспользоваться определением логарифма.

Код:

1 2 3 4 5 6 7

function IsPower(N, M: Real): Boolean; var   RealPower: Real; begin   RealPower := ln(M) / ln(N); <font color="RoyalBlue"><i>// это степень, в которую нужно возвести N, чтобы получить M</i></font>   Result := (RealPower - Trunc(RealPower) < 1E-7); <font color="RoyalBlue"><i>// проверяем степень близости к целому с допуском 1E-7</i></font> end;

Поскольку числа вещественные, обязательно должен быть какой-то допуск (я выбрала 1E-7), при непревышении которого степень будет считаться фактически целочисленной.

[lmikle]

Да, невнимательно прочитал.
Тогда твой вариант, наверное, проще.

[gremt]

помогите плиз.

Разобрать программу и выполнить:
1) Ввести размерность квадратной матрицы N;
2) Двумя способами ввести элементы:
а) с клавиатуры;
б) с помощью random(k) (генератор случайных числе) в диапазоне 0..(К-1)
диапазон чисел [-50;50]
y:= random (101) -50
3) построить треугольную матрицу, получающуюся в результате выделения элементов ниже побочной диагонали, включая её.

4)Распечатать полученную матрицу
5)Вычислить положительное среднее арифметическое значение полученной матрицы.