программирование алгоритмов циклической структуры

[arai uzbekova]

составить программу вычисления значений функции F(x) на отрезке (a,b) с шагом h.Результат представить в виде таблицы,первый столб-значение аргумента,второй-соответствующие значения функции.Программу составить двумя способами: с предусловием и с циклом постусловия.
F(x)=sqrt(x)*sqr(cos)*x

[Stilet]

... Вводим данные
while a<=b do begin writeln(a:5:2,f(a):5:2);a:=a+h;end;

... Вводим данные
repeat writeln(a:5:2,f(a):5:2);a:=a+h; until a>=b;

Где

function f(x:double):Double;begin f:=sqrt(x)*sqr(cos(x));end;

Идея понятна?

[arai uzbekova]

не совсем

[Stilet]

Что не понятно?

[arai uzbekova]

я сама не могу составить программу,вот в чем проблема((

[Stilet]

Тогда открой для себя учебник )
Надо же с чего-то начинать познания или не морочь голову - покупай решения.

[arai uzbekova]

program p1;
var a,b:byte;
function f(x:double):double;
begin
f:=sqrt(x)*sqr(cos(x));
end;
repeat
writeln(a:5:2,f(a):5:2);
a:=a+h;
until a>=b;
readln;
end.

где ошибкаа?(

ой там Double написано

[BDA]

var
  a, b, h: double;
  
function f(x: double): double;
begin
  f := sqrt(x) * sqr(cos(x));
end;

BEGIN
  readln(a, b, h);
  repeat
    writeln(a:5:2, f(a):5:2);
    a := a + h;
  until a >= b;
  readln;
END.

Не забывайте пользоваться кнопочкой решетка # для оформления кода.
Свои сообщения можно редактировать в течение 24 часов.

[arai uzbekova]

можно с циклом while?ну пожаааалуйста

[BDA]

Все то же самое, только замените тело цикла.
Stilet привел оба цикла выше - они взаимозаменяемые.