Помогите с генератором чисел на Pascal

[vadmaruschak]

Вот случайный генератор чисел... Мне надо знать что такое power и x в этой формуле y:=(power(2,2*x+1)+1)/3;, если я правильно понял, по ней идет генерация чисел....Обьясните пожалуйста...

program EvgeniiSp;
uses Crt;
cоnst n = 5;
var
y: real;
flag: boolean;
i,j,x: integer;

//--------Analysis ---------//
procedure Analysis;
begin
for i:=1 to n do
begin
flag:=true;
x:=random(36);
write('x',i,' = ',x,' ');
for j:=2 to x-1 do
if (x mod j) = 0 then flag:=false;
if flag = true
then
begin
y:=(power(2,2*x+1)+1)/3;
writeln('y = ',y:10:4)
end
else writeln('число ',x,' не простое.');
end;
end;

begin
ClrScr;
Randomize;
Analysis;
end.

[Вавел из ГМТУ]

Вобще генерация чисел выглядит так:

Begin
Randomize;
Writeln(Random(101));
End;

Программа сгенерирует случайное число от 0 до 100.

Что касается Power, то если мне не изменяет память, то это функция возведения в степень. (также названна функция и в JS).

Та прога, что ты привёл, занимается чемто сложнее "генерации случайного числа".

[Alex Cones]

else writeln('число ',x,' не простое.');

Программа или раскладывает число на простые числа или... Меня смущает

x:=random(36);

...

[ОДИНОЧЕСТВО В СЕТИ]

имхо эта прога генерирует 5 чисел в промежутке [0..35] потом проверяет простые ли они и если простые то вычисляет y=(2^(2x+1)+1)/3

[vlad00777]

x:=random(36);

Тут все правильно смущать не должно ...

if (x mod j) = 0 then flag:=false;
if flag = true

-----------------
Это вроде должго выглядить так:

if (x mod j) = 0 then flag:=false else 
begin
y:=(power(2,2*x+1)+1)/3;
writeln('y = ',y:10:4)
end
else writeln('число ',x,' не простое.');
end;
end;

А вто переменной power нету ни в вар ни к константе.

[Alex Cones]

А вто переменной power нету ни в вар ни к константе.

Если смущает POWER(X,Y) - замени на EXP(Y*LN(X)) Они делают одно и тоже X в степени Y

[ОДИНОЧЕСТВО В СЕТИ]

а power смущает потому что модуль math не подключен а функция используется!