Цитата:
|
Сообщение от Moonlight
нужно написать програму для обчисления!
я зделал прогу, но она на h=0,6 выбивает ошибку!(((( в чём проблема?
uses
SysUtils;
var x1,x2,h,x,y:real;
begin
write('Введите начало интервала x1=');
readln(x1);
write('Введите конец интервала x2=');
readln(x2);
write('Введите шаг табуляции h=');
readln(h);
x:=x1;
while x<=x2 do
begin
y:= x*cos(x)/sin(x);
writeln('x=',x:4:1,' y=',y:6:2);
end;
x:=x+h;
end;
readln
end.
|
Вижу 2 ошибки:
1) при вводе в консоль 0.6 перейдите на английскую раскладку, так как консоль работает только с точкой, как с десятичным разделителем
2) x:=x+h; выполняется за пределами цикла, то есть только 1 раз, в самом конце, а цикл будет вычеслять только при х