Question

Помогите решить задачу(pascal) через while и repeat f(x)=sqrt(x)*cos^2*x

Answer 1

Var
  a,b,h,x,f:real;
begin
  Write('Введите a,b,h: ');
  Read(a,b,h);
  x:=a;
  while x<=b do
  begin
    f:=sqrt(x)*sqr(cos(x));
    Writeln(x:5:3,f:15:8);
    x:=x+h
  end
end.

Тестовое решение
Введите a,b,h: 0 3 0.25
0.000     0.00000000
0.250     0.46939564
0.500     0.54457910
0.750     0.46364281
1.000     0.29192658
1.250     0.11116410
1.500     0.00612832
1.750     0.04202995
2.000     0.24491094
2.250     0.59190315
2.500     1.01482406
2.750     1.41675413
3.000     1.69755726

var
  a,b,h,x,f:real;
begin
  Write('Введите a,b,h: ');
  Read(a,b,h);
  x:=a;
  repeat
    f:=sqrt(x)*sqr(cos(x));
    Writeln(x:5:3,f:15:8);
    x:=x+h
  until x>b
end.

Тестовое решение
Введите a,b,h: 0 3 0.25
0.000     0.00000000
0.250     0.46939564
0.500     0.54457910
0.750     0.46364281
1.000     0.29192658
1.250     0.11116410
1.500     0.00612832
1.750     0.04202995
2.000     0.24491094
2.250     0.59190315
2.500     1.01482406
2.750     1.41675413
3.000     1.69755726