есть программа

program ZZZZ;
const
xn = 3.2;
xk = 7.2;
hx = 0.8;
a  = 4.1;
var
x : real;
Y : real;
begin
writeln('xn = ', xn:1:2);
writeln('xk = ', xk:1:2);
writeln('hx = ', hx:1:2);
writeln('a  = ', a:1:2);
writeln;

x := xn;
Y := 0;

while ( x <= xk ) do
 begin
  if ( x <= a ) then
   Y := Exp( 2 * x - 5)
  else
   Y := Sqr( sin( x / 5 ) / cos( x / 5 ) );
  write('x = ', x:1:2);
  writeln('      Y = ', Y:1:4);
  x := x + hx;
 end;
writeln;
writeln('Press "ENTER" to exit.');
readln;
end.

когда x становится равным 7.2 цикл не выполняется? почему? кто-нибудь может объяснить?

while ( x <= xk ) do читай как
while ( 7.2 <= 7.2 ) do

Ну так условие в цикле с передпроверкой стоит

Перепиши на repeat untel

*until

(3) напиши условие окончания цикла

(2) и что? условие же истинно

(2) при равенстве должно выполниться
(0) хз, надо гонять в отладчике, так-то должно выполниться.

repeat
begin
end
until x > xk

(0) там же отладчик встроенный есть

(7) "при равенстве должно выполниться " а вот не хочет
(8) тоже не хочет так работать

Знчит тип real плохой :)
Видно числит х=7,2000000000001

А если х все время округлять до 1 знака после запятой?

(10) тип real имеет "шум" на оконечных знаках. Если задается явно, тогда без шума, при выполнеиии арифметических операций появляется этот "шум".
сам посмотри
while ( x <= xk ) do
 begin
  if ( x <= a ) then
   Y := Exp( 2 * x - 5)
  else
   Y := Sqr( sin( x / 5 ) / cos( x / 5 ) );
  write('x = ', x:1:2);
  writeln('      Y = ', Y:1:4);
  x := x + hx;
  writeln('x = ', x);
 end;
writeln;

То есть в последней итерации он пишет тебе что Х = 6.6?

округление до 1 знака после запятой

то есть 6.4?

(16) да 6.4

(17) округляй, а вообще правильней задавать полшага больше, т.е.
while ( x <= (xk + hx/2)) do

Тогда попробуй (15)

(0) Сделай xk = 7.3;

погрешность, так сказать.

(20) Обойти то можно, интересней узнать, почему условие = false ))

(17)Выведи x без форматирования

(23) я уже в (13) намекнул, но все пофиг...

все=ТС

2+2=4 int
или (случайно для real, зависит от скачков напряжения:)
2,0+2,0=4,000000001  
или
2,0+2,0=4.0 real
или
2,0+2,0=3,999999999999

(23) ниче это не дало .... нули дополнились и все. делал так

(27)Округлить, попробуй округлить уже

(22) абсолютно йес

(28) секунду щас сделаем :)

(26) ты уверен, что это для real, а не для single/double?

чтож за народ, вот смотрите:
xn =  3.20000000000000E+0000
xk =  7.20000000000000E+0000
hx =  8.00000000000000E-0001
a  =  4.10000000000000E+0000

x = 3.20      Y = 4.0552
x =  4.00000000000000E+0000 xk =  7.20000000000000E+0000
x = 4.00      Y = 20.0855
x =  4.80000000000291E+0000 xk =  7.20000000000000E+0000
x = 4.80      Y = 2.0402
x =  5.60000000000582E+0000 xk =  7.20000000000000E+0000
x = 5.60      Y = 4.2682
x =  6.40000000000873E+0000 xk =  7.20000000000000E+0000
x = 6.40      Y = 11.1646
x =  7.20000000001164E+0000 xk =  7.20000000000000E+0000

x =  7.20000000001164E+0000 - это последняя итерация. 1164 все видят? или только я?

(31) для всех типов с плавающей точкой думаю такие гляки будут
Причем если через ОЛЕ читать, то еще и не такие округления бывают

(6) Уверен? А если не 2 десятчных знака вывести, а все, и посмотреть?

гы)

(32) Ну вот, а ТС нагло врет в (27) и честным людям голову морочит.

(33)О, да, OLE еще та проказница :(

(32) "Ты думаешь я тут арбузы продаю? Нет! Я с людми тут общаюсь!" (с)

(32)чисто академический интерес:
а если сменить рил на дубль или экстендед?

(39) доубль норм будет, экстендет проверять надо...

это для доубля:
xn =  3.20000000000000E+0000
xk =  7.20000000000000E+0000
hx =  8.00000000000000E-0001
a  =  4.10000000000000E+0000

x = 3.20      Y = 4.0552
x =  4.00000000000000E+0000 xk =  7.20000000000000E+0000
x = 4.00      Y = 20.0855
x =  4.80000000000000E+0000 xk =  7.20000000000000E+0000
x = 4.80      Y = 2.0402
x =  5.60000000000000E+0000 xk =  7.20000000000000E+0000
x = 5.60      Y = 4.2682
x =  6.40000000000000E+0000 xk =  7.20000000000000E+0000
x = 6.40      Y = 11.1646
x =  7.20000000000000E+0000 xk =  7.20000000000000E+0000
x = 7.20      Y = 57.7878
x =  8.00000000000000E+0000 xk =  7.20000000000000E+0000

Это для экстендед:
xn =  3.20000000000000E+0000
xk =  7.20000000000000E+0000
hx =  8.00000000000000E-0001
a  =  4.10000000000000E+0000

x = 3.20      Y = 4.0552
x =  4.00000000000000E+0000 xk =  7.20000000000000E+0000
x = 4.00      Y = 20.0855
x =  4.80000000000000E+0000 xk =  7.20000000000000E+0000
x = 4.80      Y = 2.0402
x =  5.60000000000000E+0000 xk =  7.20000000000000E+0000
x = 5.60      Y = 4.2682
x =  6.40000000000000E+0000 xk =  7.20000000000000E+0000
x = 6.40      Y = 11.1646
x =  7.20000000000000E+0000 xk =  7.20000000000000E+0000

вот еще и видно в каком знаке погрешность:
xn =  3.20000000000000E+0000
xk =  7.20000000000000E+0000
hx =  8.00000000000000E-0001
a  =  4.10000000000000E+0000

x = 3.20      Y = 4.0552
x =  4.00000000000000E+0000 xk =  7.20000000000000E+0000
x-xk = -3.20000000000000E+0000
x = 4.00      Y = 20.0855
x =  4.80000000000000E+0000 xk =  7.20000000000000E+0000
x-xk = -2.40000000000000E+0000
x = 4.80      Y = 2.0402
x =  5.60000000000000E+0000 xk =  7.20000000000000E+0000
x-xk = -1.60000000000000E+0000
x = 5.60      Y = 4.2682
x =  6.40000000000000E+0000 xk =  7.20000000000000E+0000
x-xk = -8.00000000000000E-0001
x = 6.40      Y = 11.1646
x =  7.20000000000000E+0000 xk =  7.20000000000000E+0000
x-xk =  8.67361737988404E-0019

йопт почему константа
xn = 3.2
после присвоения ее иксу икс равен  
x = 3.200000000000727600.

(43) Да ладно!

(44)я знаю почему, а вообще спасибо тебе.