Построить алгоритм ДО и алгоритм ПОКА
помогите пож-та найти ошибки в коде (препод сказал что алгоритм ДО и ПОКА два разных алгоритма)
Задание: .Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [а,b] с шагом h. Написать программу.
F= x - sin x
помогите пож-та найти ошибки в коде (препод сказал что алгоритм ДО и ПОКА два разных алгоритма)
Задание: .Построить алгоритм ДО и алгоритм ПОКА для вычислений значения функции на отрезке [а,b] с шагом h. Написать программу.
F= x - sin x
Код:
uses crt;
function F(x:real):real;
begin
F:=x-sin(x);
end;
var x,a,b,h,y:real;
n,i:integer;
begin
clrscr;
write('Начало интервала a=');
readln(a);
repeat
write('Конец интервала >',a:0:2,' b=');
readln(b);
until b>a;
repeat
write('Шаг табулирования <',(b-a):0:2,' h=');
readln(h);
until h<b-a;
n:=round((b-a)/h)+1;
writeln('Цикл ДО:');
x:=a;
repeat
writeln('x=',x:5:2,' F(x)=',F(x):8:4);
x:=x+h;
until x>b+0.000001;
write('Press Enter...');
readln;
writeln('Цикл ПОКА:');
x:=a;
while x<b+0.000001 do
begin
writeln('x=',x:5:2,' F(x)=',F(x):8:4);
x:=x+h;
end;
write('Press Enter...');
readln
end.
, мб у циклов ДО и ПОКА должны быть разные условия выхода из цикла?
