Изобразить на экране дисплея графики функций

15.01.2012, 12:48. **Показов** 1194. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Изобразить на экране дисплея графики следующих функций (A принимает следующие значения: –1, 0.5, 1, 1.5):
y=A tg(x)
x:=[ 1.4,1.4]

15.01.2012, 16:16

Program graf;
uses crt,graph;
Var d,e,mx,my,x0,y0,px,py:integer; x,dx,y:real; A:real; y1,y2,x1,x2:integer;
begin
initgraph(d,e,'C:\ScoolPak\pak\BP\EGAVGA.bgi');
setBKColor(white);
setcolor(DarkGray);
x0:=320; y0:=240; mx:=120;my:=320;
line(10,y0,630,y0);
line(x0,20,x0,470);
A:=1;
x:= -1.4; repeat
x1:=x+120;
y1:=A*sin(x)/cos(x)+320;
x2:=x+0.1;
y2:=A*sin(x2)/cos(x2)+320;
line(x1,y1,x2,y2);
x:=x2;
until x=1.4;

Выдаёт ошибку 26 несоответствие типов...подскажите что делать?

@Gluhow · 15.01.2012, 19:23

Строка x1:=x+120;
В ней x1 - целое число, а x дробное. Вот и ругается. Чтобы не ругался, надо округлить x. Например
x1:=round(x)+120;

Nismo
		1
	Изобразить на экране дисплея графики функций 15.01.2012, 12:48. Показов 1194. Ответов 2 Метки нет (Все метки) Изобразить на экране дисплея графики следующих функций (A принимает следующие значения: –1, 0.5, 1, 1.5): y=A tg(x) x:=[ 1.4,1.4]

Nismo
	15.01.2012, 16:16	2
	Program graf; uses crt,graph; Var d,e,mx,my,x0,y0,px,py:integer; x,dx,y:real; A:real; y1,y2,x1,x2:integer; begin initgraph(d,e,'C:\ScoolPak\pak\BP\EGAVGA.bgi'); setBKColor(white); setcolor(DarkGray); x0:=320; y0:=240; mx:=120;my:=320; line(10,y0,630,y0); line(x0,20,x0,470); A:=1; x:= -1.4; repeat x1:=x+120; y1:=Asin(x)/cos(x)+320; x2:=x+0.1; y2:=Asin(x2)/cos(x2)+320; line(x1,y1,x2,y2); x:=x2; until x=1.4; Выдаёт ошибку 26 несоответствие типов...подскажите что делать?

@Gluhow 30 / 24 / 22 Регистрация: 12.11.2011 Сообщений: 181
	15.01.2012, 19:23	3
	Строка x1:=x+120; В ней x1 - целое число, а x дробное. Вот и ругается. Чтобы не ругался, надо округлить x. Например x1:=round(x)+120; 0

Опции темы