Цитата:
Сообщение от ДенисКО
Подскажите пожалуйста с программой:
Найти первую степень числа 3, превышающую данное целое число a. Язык Pascal.
program stepen;
var a:LongInt;y:real;
FUNCTION x2np(x:extended;n:integer) extended;
begin
writeln('vvedite 4islo a');
readln (a);
y:=x2np(3,n);
if y>a then
writeln ('n=',n);
readln (n);
end.
Проверьте пожалуйста и укажите на ошибки
|
Пожалуйста. Во-первых, отсутствует сама функция x2np (есть только заголовок), во-вторых, нет цикла поиска нужного значения степени, в третьих, перепутаны глобальные параметры с параметрами функции. Так что:
Код:
program stepen;
var
i:LongInt;
a:extended;
FUNCTION x2np(x:extended;n:integer):extended;
Var i:INTEGER;
y:Extended;
BEGIN
IF n=0 THEN x2np:=1 ELSE
IF n=1 THEN x2np:=x ELSE
BEGIN
y:=x;
FOR i:=2 TO n DO y:=y*x;
x2np:=y;
END;
END;
begin
write('vvedite 4islo a ');
readln (a);
i:=0;
REPEAT
INC(i);
UNTIL x2np(3,i)>a;
writeln ('n= ',i);
readln;
end.