проверьте решение задачи.

[Macya]

Есть две задачи и их решение, так как не особо разбираюсь в паскале, хочу проверить у знающих людей, может какие то есть ошибки?

Задача 1.

решение:

Program summa;
Var
n:integer; S,A:real;
Begin
n:=1; S:=0;
While n<=10 do
begin
A:=(2*n)/(4*n*n-1);
S:=S+A;
n:=n+1;
end;
Writeln ('S=',S);
End.

Задача 2.

Решение:

Program zadacha;
Const
a=2,3;
Var
f,x: real;
begin
x:=0,1;
repeat
if x>0,3 then f:=sqrt(x+a);
if x=0,3 then f:=ln(Abs(x+a));
if x<0,3 then f:=5*x;
writeln ('f(',x,')=',f);
x:=x+0,1;
Until x>0,5:
end.



Пожалуйста проверте и если есть ошибки подскажите где нужно исправить.

[Luuzuk]

if x=0,3 then f:=ln(Abs(x+a));
if x<0,3 then f:=5*x;

Внимательно перечитайте условия задачи. f:=5*x будет при х=0.3, а не при x<0.3

И, да, вас просят вычислить значения функции Z. Поэтому перед writeln ('f(',x,')=',f) вычислите саму Z (4*sqr(f) / (2 + f)), и выводите Z вместо F

[Macya]

A:=(2*n)/(4*n*n-1); - правильно ли формулу расписала?

[Luuzuk]

Да, вполне. В паскале еще есть отдельная функция для возведения в квадрат, но тут дело вкуса

[Macya]

Приавльно ли я поняла выводите Z вместо F

writeln ('z(',x,')=',z)

[Macya]

Program zadacha;
Const
a=2,3;
Var
f,x: real;
begin
x:=0,1;
repeat
if x>0,3 then f:=sqrt(x+a);
if x=0,3 then f:=ln(Abs(x+a));
if x<0,3 then f:=5*x;
writeln ('f(',x,')=',f);
x:=x+0,1;
Until x>0,5:
end.

У меня в программе не где нет Z куда его вставить ? и какой он будет Integer или real?

[Luuzuk]

Z будет Real, вставить перед writeln ('z(',x,')=',z)

Вы вообще читали что я здесь писАл? Ошибка с вычислением F при х<0,3 так и осталась неисправленной

[Macya]

Да спасибо , я заметила ошибку. Не правильно переписала с тетради , там правильно записано)).
Все спасибо вам большое за помощь.