[Pascal] Помогите найти ошибку.

[Vladislav125]

Это программа работает,только результат немного не правильно,вывод должен быть вот так

Для угла в 2 градусов y=-0.139
Для угла в 2.1 градусов y=-0.104
Для угла в 2.2 градусов y=-0.069
Для угла в 2.3 градусов y=-0.034
Для угла в 2.4 градусов y= 0.001
Для угла в 2.5 градусов y= 0.036
Для угла в 2.6 градусов y= 0.071
Для угла в 2.7 градусов y= 0.106
Для угла в 2.8 градусов y= 0.141
Для угла в 2.9 градусов y= 0.176
Для угла в 3 градусов y= 0.211

а выводит только до 2.9 помогите найти ошибку


Код программы:

Program primerR;
Const a=2; b=3; h=0.1;
Var x,y:real;
Begin
  x:=a;
  Repeat
    y:=3*sin(sqrt(3))+0.35*x-3.8;
    Writeln('Для угла в ',x,' градусов',' y=',y:6:3);
    x:=x+h;
  Until x>b;
End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Вы столкнулись с погрешностью машинного представления вещественных чисел.

попробуйте после
x:=x+h;
написать

writeLn(x:0:18);

посмотрите, чему равен X, удивитесь...

подробнее об этом можно почитать в статьях по ссылкам ТУТ

теперь, когда выяснили, кто виноват, решим, что же делать.

вариантов много.
например, можно округлять x до одного знака после запятой:

x:=round(x*10)/10;

или просто изменить сравнение, сравнивать не с b, а величиной, которая больше b (но меньше, чем b+h, разумеется):

Until x>(b+h/2);

[Vladislav125]

а вот еще одна программа там такая же ситуация.Что посоветуете там сделать?

Program primerR;
Const a=2; b=3; h=0.1;
Var x,y:real;
Begin
x:=a;

While x<=b do
           Begin
           y:=3*sin(sqrt(3))+0.35*x-3.8;
           Writeln('Для угла в ',x,' градусов',' y=',y:6:3);
           x:=x+h;

           end;
End.

[Serge_Bliznykov]

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

а вот еще одна программа там такая же ситуация.Что посоветуете там сделать?

так я же описал способы решения выше.
либо округляйте X,
либо не сравнивайте x с конечной величиной. (вместо x<=b напишите x<(b+h/2)