Помогите! Правильно ли я написал программу на языке Pascal. Функции и процедуры.

[Skipper Ok]

program lab3_8variant;
var
x,result:real;
function solve(x:real):real;
begin
  solve:=x-(sqr(x)/2)+((sqr(x)*x)/3)-((sqr(x)*sqr(x))/4)+((sqr(x)*sqr(x)*x)/5);
end;
procedure init;
begin
writeln('Enter the number between 0 and 10: ');
read(x);
while (x<0) or (x>10) do
begin
    writeln('Error! Enter the numbers between 0 and 10');
read(x);
end;
end;
procedure answer;
begin
result:=solve(x);
writeln('ln(1+',x,') = ',result);
end;
begin
init();
answer();
end.

Само задание:

[type_Oleg]

А что, запускать не пробовали?
После

writeln('ln(1+',x,') = ',result);

добавьте

Readln;

чтобы окошко сразу не закрылось.

PS А если бы надо было не 5 членов использовать, а 50 например?

[Skipper Ok]

Дело в том, что после компиляции, после запуска самой программы... допустим я даю x значение 1, следовательно ln(1+1) программа выдает значение 0.7833333, я считаю сам, ответ иным выходит, то же самое значение, придав x, посчитав выходит 0,6931471, разница небольшая, но может быть, что я что-то не так написал?!

После добавления:

readln;

тот же результат, как и первоначально выводит

[type_Oleg]

Нет, на самом деле ln(2) = 0.693147181, по приближенной формуле с 5-ю слагаемыми 0.783333333.
Сами проверьте на калькуляторе или Excel.

То есть считает правильно. Только зачем параметры передавать через глобальные переменные? Или такое задание было?
Можно же что-то типа procedure init(var x:real); ... и т.д.

[Skipper Ok]

Спасибо! я что-то сам не догадался... Да я начинающий, поэтому так пока понятнее для себя пишу, хотя, так больше вероятность допустить ошибки!

[SaLoKiN]

readln;

тот же результат, как и первоначально выводит

readln никак не влияет на результат.
это ожидание ввода с клавиатуры, для того чтобы можно было посмотреть результат после выполнения.
обычно его вешают в конце мэин функции,после всех выводов.