Задача: Составить программы для построения таблицы значений функции на [a,b] с шагом h
с использованием операторов: а) Repeat; б) While. Ввод параметров a, b, h осуществить с помощью оператора Read.


МОЙ ОТВЕТ (а):
Program Task_5;
Var
x,y,a,b,h: Real;
Begin
Readln(x,a,b,h);
Repeat
x:=a;
If x<b Then y:=2*Sqrt(x)*x-Abs(Sin(x))
Else Writeln(x,y)
Until x>=b;
Repeat
x:=x+h;
If x<b Then y:=2*Sqrt(x)*x-Abs(Sin(x))
Else Writeln(y)
Until x>=b
End.


МОЙ ОТВЕТ (б):
Program Task_5b;
Var
x,y,a,b,h: Real;
Begin
Readln(x,a,b,h);
x:=a;
While
x<b
Do
If x>=b Then y:=2*Sqrt(x)*x-Abs(Sin(x))
Else Writeln(x,y);
x:=x+h;
While
x<b
Do
If x>=b Then y:=2*Sqrt(x)*x-Abs(Sin(x))
Else Writeln(y)
End.

Получается много цифр, и причём одних и тех же.