Составить программу табулирования функции на данном отрезке с данным шагом - Turbo Pascal (29173)
Формулировка задачи:
подпрограммы функций
y=sqrt(x^2+5*x+8) на интервале 0,2 с шагом 0,1
Решение задачи: «Составить программу табулирования функции на данном отрезке с данным шагом»
textual
Листинг программы
uses crt;
function f(x:real):real;
begin
f:=sqrt(x*x+5*x+8);
end;
const a=0;
b=2;
h=0.2;
var x:real;
begin
clrscr;
x:=a;
while x<b+h/2 do{h/2 для того чтобы не проскочить b
за счет компьютерногоокругления }
begin
writeln('x=',x:4:1,' y=',f(x):6:3);
x:=x+h;
end;
readln
end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с числовыми значениями.
- Создается функция f, которая принимает аргумент x типа real и возвращает значение типа real. Внутри функции выполняется вычисление квадратного корня из суммы квадрата x и 5*x и 8.
- Далее определяются три константы: a, b и h. Значение переменной h равно 0.2.
- Переменная x инициализируется значением a.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равно b плюс h/2.
- Внутри цикла выводится значение переменной x и результат вызова функции f(x) с помощью функции writeln.
- После окончания внутреннего цикла значение переменной x увеличивается на h.
- Программа завершается вызовом функции readln для чтения пользовательского ввода.