Циклы с предусловием и постусловием - Turbo Pascal (248028)

Узнай цену своей работы

Формулировка задачи:

F(x)=sin*(x-3)/sqrt(sqr(x+3)/5 интервал x[3;10] количество точек n=10 три спосаба for repeat while пожалуйста.

Решение задачи: «Циклы с предусловием и постусловием»

textual
Листинг программы
var
  dx, x, f: real;
  k: integer;
 
begin
  x := 3;
  dx := 0.7;
  for k := 1 to 10 do
  begin
    f := sin(x - 3) / sqrt(sqr(x + 3) / 5);
    writeln('Точка № ', k:4, x:8:2, f:8:2);
    x := x + dx;
  end;  
end.

Объяснение кода листинга программы

  1. Объявлены переменные: dx, x, f (с типами данных real и integer)
  2. Инициализированы переменные: x = 3, dx = 0.7
  3. Задается цикл for, который выполняется 10 раз (от k = 1 до k = 10)
  4. Внутри цикла вычисляется значение переменной f по формуле sin(x - 3) / sqrt(sqr(x + 3) / 5)
  5. Выводится сообщение с номером точки и значениями x и f (используется функция writeln, параметры которой оформлены в виде строки с использованием символа '№' и переменных x и f)
  6. Значение переменной x увеличивается на значение dx (x := x + dx)
  7. Цикл завершается

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы