составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z.Когда нажимаю выполнить,просит ввести,k,w,z и потом безостановочно выдает строки с расчетом одним и тем же и не прекращается,бесконечно крч
в чем ошибка
var k,w,z,q,t:real;
begin
repeat
write('Введите начало интервала k>0 k=');
readln(k);
until k>0;
repeat
write('Введите конец интервала w>',k:0:1,' w=');
readln(w);
until w>k;
repeat
write('Введите шаг z<',w-k:0:1,' z=');
readln(z);
until z<w-k;
q:=k;
writeln('Результаты:');
repeat
t:=ln(14.5*q/152.9)+sin(5.3*q);
if t<>3.2 then writeln('При q=',q:0:2,' t=',t:6:2);
q:=q+z;
until q>w;
end.
Ничего не менял. Получил такие результаты - всё работает.