ВУЗ:
Составители:
Рубрика:
Выбрать масштаб увеличения можно следующим образом:
•
определить горизонтальный и вертикальный размеры графика
(для э
ьного
значе ьным
я за необходимый
й абсциссе y и выполнить рисование точки. Так как
на экр х,
x,y,mx,my,m,x1,x2,y1,y2,h:real;
func
end;
отрезка’);
ln(x1);
‘x2=’); Readln(x2);
); y2:=f(x2);
2–x1); {масштаб по x}
сштаб}
еляем шаг}
ни ический режим}
того вводятся границы области значений и определяются макси-
мальное и минимальное значения функции на заданной области опреде-
ления, затем вычисляются разности максимального и минимал
ний аргументов и функции, которые и являются горизонтал
и вертикальным размерами графика соответственно);
•
определить масштаб (сначала определяются масштабы изо-
бражения по горизонтали и вертикали) с учетом размеров выбранного
экрана по формуле
масштаб(г/в) = размер экрана (по г/в) / размер графика (по г/в),
затем из них выбирается меньший, который и принимаетс
масштаб. В нашем случае графический экран имеет размеры 640 на 480.
В любом случае, чтобы высветить на экране точку, надо взять x,
вычислить по данно
ане можно получить лишь ограниченное количество значений
то их перебираем с помощью цикла.
Пример 10.1. Построить график функции y = x
2
.
program parabola;
uses graph,crt;
var gd,gm: integer;
tion f(x:real):real;
begin
f:= Sqr(x);
begin
clrscr;
Writeln(‘Введите границы
x1=’); ReadWrite(‘
ite(Wr
y1:=f(x1
mx:=640/(x
my:=480/(y2–y1); {масштаб по y}
if mx<my then m:=mx
else m:=my; {min ма
редh:=1/m; {оп
x:=x1;
gd:=detect; {и циализируем граф
7\bgi’); Initgraph(gd,gm,‘c:\tp
86
Страницы
- « первая
- ‹ предыдущая
- …
- 83
- 84
- 85
- 86
- 87
- …
- следующая ›
- последняя »
