Нужно построить график функции - Pascal
Формулировка задачи:
Создать программу , которая вводит на экран график функции y:=2*sin*(x)*Exp(5/x)
Решение задачи: «Нужно построить график функции»
textual
Листинг программы
program p1; uses crt, graph; var d,m:integer; x,y:real; begin clrscr; initgraph(d,m,''); line(320,0,320,469); line(0,240,639,240); x:=-20; while x<=20 do begin y:=trunc(20* ( sin(x) ); {вместо sin(x) можна поставить любую функцию} putpixel(round(20*x)+320,240-round(y),15); x:=x+0.001; end; readln; closegraph; end.
Объяснение кода листинга программы
- Объявлены переменные d, m, x, y, которые будут использоваться в программе.
- Программа использует библиотеки CRT и Graph.
- Задаются параметры для функции initgraph: d, m, пустая строка.
- Строки, которые будут использоваться для построения графика.
- Устанавливаются начальные значения переменных x и y.
- Запускается цикл while, который будет выполняться, пока значение переменной x не превысит 20.
- В каждой итерации цикла вычисляется значение переменной y с использованием функции sin(x).
- Значение переменной y округляется с помощью функции trunc.
- С помощью функции putpixel отображается точка на графике.
- Значение переменной x увеличивается на 0.001 после каждой итерации цикла.
- После завершения цикла запрашивается ввод данных с помощью функции readln.
- График закрывается с помощью функции closegraph.
- Завершается выполнение программы.