Question

протабулировать функцию f(x)=cos(x) на интервале [1;5] с шагом h=0,5, используя цикл repeat..until

Answer 1

var

  x,y:real;

begin

  x:=1;

  repeat

     y:=cos(pi*x/180);

     writeln ('X = ',x:0:1,'. F(x) = ',y:0:8);

     x:=x+0.5;

  until x>5;

  readln;

end. 

Значения косинуса выдает в градусах.

Answer 2

Язык не указан, потому программа на Pascal.

 

var
x:real;
begin
  x:= 1;
  repeat
  writeln('x= ', x:3, '   f(x)= ', cos(x));
  x:= x+0.5;
  until x>5;
end.

Answer 3

Для протабулирования функции f(x) = cos(x) на интервале [1;5] с шагом h = 0,5, используя цикл repeat..until, можно следовать следующему алгоритму:

1. Инициализировать переменную x со значением 1. 2. Начать цикл repeat..until, который будет выполняться до тех пор, пока значение x не станет больше 5. 3. Внутри цикла вычислить значение функции f(x) = cos(x) и вывести его на экран. 4. Увеличить значение x на шаг h = 0,5. 5. Повторить шаги 3-4 до тех пор, пока значение x не станет больше 5.

Вот пример кода на языке PascalABC, который реализует описанный алгоритм:

program TabulateFunction;
var
  x, result: real;
begin
  x := 1;
  repeat
    result := cos(x);
    writeln('f(', x:0:2, ') = ', result:0:2);
    x := x + 0.5;
  until x > 5;
end.

После выполнения этого кода, на экране будут выведены значения функции f(x) = cos(x) на интервале [1;5] с шагом 0,5.

Примечание: Данный код был написан на языке PascalABC. Если вы планируете использовать другой язык программирования, то синтаксис и некоторые детали могут отличаться. Однако, общий алгоритм останется примерно таким же.