Вычислить значение ряда по формуле. Паскаль

[OlS]

Сообщение от BDA

Добавьте перед begin:

function Arcsin (x : real) : real;
begin
Arcsin := Arctan(x/Sqrt(1-x * x));
end;

спасибо))) заработала!
вот теперь не читается последняя формула, в результате работы значения по нулям

[whatever]

Сообщение от OlS

спасибо))) заработала!
вот теперь не читается последняя формула, в результате работы значения по нулям

Ну дык... Сначала выводишь значение, потом считаешь, конечно будет по нулям. Строчки перед readln поменяй местами.

[OlS]

Сообщение от whatever

Ну дык... Сначала выводишь значение, потом считаешь, конечно будет по нулям. Строчки перед readln поменяй местами.

СПАСИБО!!!!!

[OlS]

Сообщение от whatever

Ну дык... Сначала выводишь значение, потом считаешь, конечно будет по нулям. Строчки перед readln поменяй местами.

извините все, но хочу еще обратиться со второй лабораторной. тоже проблема.
Задание


прога:
program laba2;
Uses CRT;
var x,y,i:integer;
begin
clrscr;
writeln('x=');
readln(x);
y:=0;
for i:=1 to 23 do
begin
i:=i+2;
if i=3 or 7 or 11 or 15 or 19 or 23
then y=y+(1/i*exp(i*ln(x)));
else y=y-(1/i*exp(i*ln(x)));
end;
writeln('y=', y);
readln;
end.

[OlS]

Сообщение от BDA

Добавьте перед begin:

function Arcsin (x : real) : real;
begin
Arcsin := Arctan(x/Sqrt(1-x * x));
end;

подскажите пожалуйста, как объяснить это действие преподавателю)

[BDA]

"Так как в паскале без подключения дополнительных модулей отсутствует arcsin, то была написана своя реализация оной с использованием доступных операций"

Проверьте счет:

program laba2;
Uses CRT;
var
  x, s, y: real;
  i: integer;
begin
  clrscr;
  writeln('x =');
  readln(x);
  y := -1 / x;
  i := 1;
  s := 0;
  while i <= 23 do
  begin
    s := s + y / i;
    y := -y / (x * x);
    inc(i, 2);
  end;
  writeln('y = ', s); 
  readln;
end.

[OlS]

Сообщение от BDA

"Так как в паскале без подключения дополнительных модулей отсутствует arcsin, то была написана своя реализация оной с использованием доступных операций"

Проверьте счет:

program laba2;
Uses CRT;
var
  x, s, y: real;
  i: integer;
begin
  clrscr;
  writeln('x =');
  readln(x);
  y := -1 / x;
  i := 1;
  s := 0;
  while i <= 23 do
  begin
    s := s + y / i;
    y := -y / (x * x);
    inc(i, 2);
  end;
  writeln('y = ', s); 
  readln;
end.

пишет неизвестный индификатор

[OlS]

Сообщение от BDA

"Так как в паскале без подключения дополнительных модулей отсутствует arcsin, то была написана своя реализация оной с использованием доступных операций"

Проверьте счет:

program laba2;
Uses CRT;
var
  x, s, y: real;
  i: integer;
begin
  clrscr;
  writeln('x =');
  readln(x);
  y := -1 / x;
  i := 1;
  s := 0;
  while i <= 23 do
  begin
    s := s + y / i;
    y := -y / (x * x);
    inc(i, 2);
  end;
  writeln('y = ', s); 
  readln;
end.

и почему игрику присваиваем -1 а не ноль?

[BDA]

Окей, просто я немного переименовал идентификаторы:

program laba2;
Uses CRT;
var
  x, y, a: real;
  i: integer;
begin
  clrscr;
  writeln('x =');
  readln(x);
  a := -x;
  i := 1;
  y := 0;
  while i <= 23 do
  begin
    y := y + 1 / (i * a);
    a := -a * x * x;
    inc(i, 2);
  end;
  writeln('y = ', y); 
  readln;
end.

Почему не компилируется, не знаю.

PS Не нужно цитировать весь пост. Можете цитировать только часть или не цитировать вообще, если понятно, к кому Вы обращаетесь, или нет вопросов по посту, требующих цитирования.
И не пишите несколько постов подряд - для добавления мыслей есть кнопочка "Редактировать".

[OlS]

Хорошо) я тут новенькая просто)))
прога все равно не работает