Протабулировать функцию на заданном интервале - Free Pascal (836)
Формулировка задачи:
x от 1 до 5 с шагом 1
Оператор цикла: while...do
(Паскаль не знаю, поэтому можно самым простым и понятным способом)
Решение задачи: «Протабулировать функцию на заданном интервале»
textual
Листинг программы
var x: integer;
begin
x := 1;
while x <= 5 do
begin
writeln('y(', x, ') = ', (x + 1 / sqrt(x)) * (x * x - 3 * x - 8):14:10);
inc(x)
end;
readln
end.
Объяснение кода листинга программы
- Объявлена переменная
xтипа integer со значением 1. - Задано условие цикла while, которое выполняется до тех пор, пока значение переменной
xне станет больше 5. - Внутри цикла while выполняется блок begin, который содержит две операции:
a. Вывод на экран значения функции
y(x)с помощью функции writeln. Значение функции вычисляется по формуле (x + 1 / sqrt(x)) (x x - 3 * x - 8). Форматирование вывода чисел с использованием 14 знаков после запятой и 10 знаков после запятой соответственно. b. Увеличение значения переменнойxна единицу с помощью функции inc. - После выполнения цикла while программа ожидает ввода данных с помощью функции readln.