Проектирование алгоритмов и программ с использованием цикла с предусловием - Turbo Pascal
Формулировка задачи:
Значения функций и определены в точках . Найти среднее значение расстояния между и в заданных точках.
Решение задачи: «Проектирование алгоритмов и программ с использованием цикла с предусловием»
textual
Листинг программы
uses crt; function f1(x:real):real; begin f1:=2.5+sin(4*x) end; function f2(x:real):real; begin f2:=2*cos(x/3) end; var xn,xk,dx,x,s:real; k:integer; begin clrscr; repeat writeln('Введите диапазон по х xn<xk'); readln(xn,xk); until xk>xn; repeat write('Введите шаг dx<',xk-xn:0:2,' dx='); readln(dx); until dx<xk-xn; x:=xn; s:=0; k:=0; while x<=xk do begin s:=s+abs(f1(x)-f2(x)); k:=k+1; x:=x+dx; end; s:=s/k; write('s=',s:0:2); readln end.
Объяснение кода листинга программы
- Объявлены функции f1 и f2, которые принимают аргумент типа real и возвращают значение типа real.
- В функции f1 используется функция sin, которая вычисляет синус аргумента, и константа 2.5.
- В функции f2 используется функция cos, которая вычисляет косинус аргумента, и константа 2.
- В основной программе объявлены переменные xn, xk, dx, x, s и k типа real.
- Переменные xn и xk используются для ввода диапазона значений x.
- Переменная dx используется для ввода шага изменения x.
- Переменная x используется для итерационного вычисления значений функции в заданном диапазоне.
- Переменная s используется для накопления разности значений функций f1 и f2.
- Переменная k используется для подсчета количества итераций.
- В цикле while происходит итерационное вычисление значений функции в заданном диапазоне.
- Значение переменной s обновляется на каждой итерации.
- Значение переменной k обновляется на каждой итерации.
- Значение переменной x обновляется на каждой итерации.
- Значение переменной dx не изменяется в основной программе.
- Значение переменной xn не изменяется в основной программе.
- Значение переменной xk не изменяется в основной программе.
- После выполнения цикла, значение переменной s выводится на экран.
- Значение переменной k не выводится на экран.
- Значение переменной x не выводится на экран.
- Значение переменной dx не выводится на экран.