Правильно ли?

[Vadim7721]

Задание. Постановка задачи:
Составить программу вычисления значений функции F(X) на отрезке [A,B] в
точках X1=А+Н, где Н=(В-А)/М, М – заданное число. Функция Arcsin(x). А=0 Б=1 М=2

Program DeeKey;
var
a,b,x,y,m,h:real;
begin
Writeln(' Введите число ');
readln ( m );
a:=0;
b:=1;
h:=0;
h:=(b-a)/m;
x:=a;
y:= arctan(sqrt(1-sqr(X))/X);
writeln ( ' y=' , y);
while x <= b do
begin
x:= x+h;
y:= arctan(sqrt(1-sqr(X))/X);
writeln ( ' y=' , y);
end;
Writeln( ' Программу сделал DeeKey ');
end.

[Stilet]

А на листочке с калькулятором посчитать хотя бы первые 4 числа и сравнить что выдает программа не хочешь?

[Vadim7721]

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

А на листочке с калькулятором посчитать хотя бы первые 4 числа и сравнить что выдает программа не хочешь?

Мне не ответ важен, а так ли программа написана или нет

[Stilet]

Ну в теории правильно, если не считать что тригонометрия расчитывается в радианах и прога не успеет отобразить результаты - закроется.
А впрочем чего это я - ответ то не важен )
Садись - пять!

[Vadim7721]

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

Ну в теории правильно, если не считать что тригонометрия расчитывается в радианах и прога не успеет отобразить результаты - закроется.
А впрочем чего это я - ответ то не важен )
Садись - пять!

Можешь сказать тогда, как правильно сделать то её?

[Stilet]

Да расслабься ) Говорю же - сделано нормально, коль результат не важен такие моменты можно упустить.

[Vadim7721]

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

Да расслабься ) Говорю же - сделано нормально, коль результат не важен такие моменты можно упустить.

А если важен, просто ответ не получаеься

[Stilet]

А если важен то садись - два.
Повторю: во-первых если память не отшибло аргументы arctan нужно переводить в радианы - это нужно проверить. Во-вторых поставить readln; в конец программы чтоб задержать консоль на экране для просмотра результатов.

[Vadim7721]

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

А если важен то садись - два.
Повторю: во-первых если память не отшибло аргументы arctan нужно переводить в радианы - это нужно проверить. Во-вторых поставить readln; в конец программы чтоб задержать консоль на экране для просмотра результатов.

Вот так надо сделать?

Program DeeKey;
var
a,b,x,y,h:real;
i,m:integer;
begin
Writeln(' Введите число ');
readln ( m );
a:=0;
b:=1;
h:=(b-a)/m;
x:=a;
For i:=0 to m-1 do
begin
y:= arctan(x/sqrt(1-sqr(X)));
Write (' x=', x) ;
writeln ( ' y=' , y);
X:=x+h;
end;
Writeln( ' Программу сделал DeeKey ')
end.

[ZX Spectrum-128]

Не прочитал того, что тебе сказали. От слова "совсем".