Ответы на вопрос:
USES Crt, Graph;
VAR
Gd, Gm : INTEGER; X0, Y0 : INTEGER; { Начало осей координат }
X, Y : INTEGER; Mx, My, I : INTEGER;
A, B, H, F : REAL;
BEGIN
WriteLn('Введите интервал и шаг изменения функции'); ReadLn(A,B,H);
WriteLn('Введите масштаб по X и Y'); ReadLn(Mx,My);
Gd:=Detect; Gm:=1;
InitGraph(Gd,Gm,'c:\tp7\bgi'); IF GraphResult<>0 THEN HALT(1);
{ Построение осей координат }
X0:=GetMaxX div 2; Y0:=GetMaxY div 2;
Line(10,Y0,GetMaxX,Y0); Line(X0,10,X0,GetMaxY);
{ Построение стрелок }
Line(X0,10,X0-10,20); Line(X0,10,X0+10,20);
Line(GetMaxX,Y0,GetMaxX-10,Y0-10);
Line(GetMaxX,Y0,GetMaxX-10,Y0+10);
OutTextXY(X0-25,10,'X'); OutTextXY(GetMaxX-20,Y0+20,'Y');
{ Разметка осей координат }
I:=X0;
REPEAT
I:=I+Mx;
PutPixel(I,Y0-1,15); PutPixel(2*X0-I,Y0-1,15);
UNTIL I>GetMaxX;
I:=Y0;
REPEAT
I:=I+My;
PutPixel(X0+1,I,15); PutPixel(X0+1,2*Y0-I,15);
UNTIL I>GetMaxY;
{ Построение графика функции }
REPEAT
F:=A*A; { функция }
X:=Trunc(X0+A*Mx); Y:=Trunc(Y0-F*My);
PutPixel(X,Y,15); A:=A+H;
UNTIL A>B;
ReadLn;
END.
VAR
Gd, Gm : INTEGER; X0, Y0 : INTEGER; { Начало осей координат }
X, Y : INTEGER; Mx, My, I : INTEGER;
A, B, H, F : REAL;
BEGIN
WriteLn('Введите интервал и шаг изменения функции'); ReadLn(A,B,H);
WriteLn('Введите масштаб по X и Y'); ReadLn(Mx,My);
Gd:=Detect; Gm:=1;
InitGraph(Gd,Gm,'c:\tp7\bgi'); IF GraphResult<>0 THEN HALT(1);
{ Построение осей координат }
X0:=GetMaxX div 2; Y0:=GetMaxY div 2;
Line(10,Y0,GetMaxX,Y0); Line(X0,10,X0,GetMaxY);
{ Построение стрелок }
Line(X0,10,X0-10,20); Line(X0,10,X0+10,20);
Line(GetMaxX,Y0,GetMaxX-10,Y0-10);
Line(GetMaxX,Y0,GetMaxX-10,Y0+10);
OutTextXY(X0-25,10,'X'); OutTextXY(GetMaxX-20,Y0+20,'Y');
{ Разметка осей координат }
I:=X0;
REPEAT
I:=I+Mx;
PutPixel(I,Y0-1,15); PutPixel(2*X0-I,Y0-1,15);
UNTIL I>GetMaxX;
I:=Y0;
REPEAT
I:=I+My;
PutPixel(X0+1,I,15); PutPixel(X0+1,2*Y0-I,15);
UNTIL I>GetMaxY;
{ Построение графика функции }
REPEAT
F:=A*A; { функция }
X:=Trunc(X0+A*Mx); Y:=Trunc(Y0-F*My);
PutPixel(X,Y,15); A:=A+H;
UNTIL A>B;
ReadLn;
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
alena67918.10.2020 09:36
-
Askas999906.04.2021 17:44
-
ofdgf11.12.2020 05:25
-
Dimaj21.12.2021 23:06
-
dmitrii6661302.04.2022 18:23
-
knowyourmemesboy14.08.2020 16:02
-
kcasimova201803.05.2020 18:28
-
agrdoon01.05.2022 23:56
-
Тане44ка26.08.2022 02:05
-
vika00vgbjh05.06.2022 09:03
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.