Нужно построить график функции - 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.

Объяснение кода листинга программы

  1. Объявлены переменные d, m, x, y, которые будут использоваться в программе.
  2. Программа использует библиотеки CRT и Graph.
  3. Задаются параметры для функции initgraph: d, m, пустая строка.
  4. Строки, которые будут использоваться для построения графика.
  5. Устанавливаются начальные значения переменных x и y.
  6. Запускается цикл while, который будет выполняться, пока значение переменной x не превысит 20.
  7. В каждой итерации цикла вычисляется значение переменной y с использованием функции sin(x).
  8. Значение переменной y округляется с помощью функции trunc.
  9. С помощью функции putpixel отображается точка на графике.
  10. Значение переменной x увеличивается на 0.001 после каждой итерации цикла.
  11. После завершения цикла запрашивается ввод данных с помощью функции readln.
  12. График закрывается с помощью функции closegraph.
  13. Завершается выполнение программы.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы