Uploaded by Антон Шевцов

Отчет по информатике БНТУ

advertisement
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Автотракторный факультет
Кафедра «Гидропневмоавтоматика и гидропневмопривод»
ОТЧЁТ
по лабораторной работе №18
На тему: «»
Выполнил:
Шевцов А.А.
студент группы:10105123
Проверил:
Чикилевский Я.А.
преподаватель кафедры
"ГПА и ГПП"
Минск 2024
Цель работы:
1) Изучение механизма передачи параметров в процедурах.
2) Получение навыков в написании программ с использованием передачи
значений массивов в процедурах
. ЗАДАНИЕ
Разработать процедуру преобразования данных в соответствии с
вариантом задания. Составить программу решения задачи с использованием
разработанной процедуры. Результаты выполнения программы вывести во
внешний файл, снабдив их соответствующими комментариями и
предусмотрев форматный вывод числовых значений.
Программа:
program Lab_18;
var
a,b,eps,delta,x:real;
function f_mdp(x:real):real;
begin
f_mdp:=0.6*power(3,x)-2.3*x-3
end;
procedure mdp (a,b,eps,delta:real;var x:real);
begin
repeat
x:=(a+b)/2;
if (f_mdp(a)*f_mdp(x)>0) then
a:=x
else
b:=x;
until (abs(a-b)<eps) or (abs(f_mdp(x))<delta);
end;
begin
a:=2;
b:=3;
delta:=0.00001;
eps:=0.00001;
mdp(a,b,eps,delta,x);
writeln('Корень x=',x:7:6);
end.
2
Блок схема:
3
Download