Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ формула Горнера
Автор: eugenek 26.02.2005 1:00
В этом файле 2 задачи. (19 kB)
Не могу привести текст здесь из-за степеней.
Помогите чем можете... да воздастся вам за дела ваши...
Прикрепленные файлы
gorner.doc ( 19 килобайт )
Кол-во скачиваний: 789
Автор: Altair 26.02.2005 1:36
Соблюдайте правила. Перед тем как вопрос задать, поиском пользуйтесь.
Про степень подробно вот здесь:
http://forum.pascal.net.ru/index.php?showtopic=3073&hl=рекурсивные
и другое задание где-то было.
Автор: virt 26.02.2005 2:03
Код
program gorner_scheme;
var a:array[0..10]of integer;
i:integer;
x0,s:longint;
begin
read(x0);
for i:=0 to 10 do read(a[i]);
s:=a[10];
for i:=10 downto 1 do s:=s*x0+a[i-1];
writeln;
write(s);
end.
var a:array[0..10]of integer;
i:integer;
x0,s:longint;
begin
read(x0);
for i:=0 to 10 do read(a[i]);
s:=a[10];
for i:=10 downto 1 do s:=s*x0+a[i-1];
writeln;
write(s);
end.
Код
program gorner2;
var x:double;
n:integer;
function stepen(n:integer):double;
begin
if n = 0 then stepen:=1 else
begin
if n>0 then stepen:=stepen(n-1)*x else
stepen:=1/(stepen(n+1)*x);
end;
end;
begin
readln(x);
readln(n);
writeln(stepen(n):0:3);
end.
var x:double;
n:integer;
function stepen(n:integer):double;
begin
if n = 0 then stepen:=1 else
begin
if n>0 then stepen:=stepen(n-1)*x else
stepen:=1/(stepen(n+1)*x);
end;
end;
begin
readln(x);
readln(n);
writeln(stepen(n):0:3);
end.