2 ответов в этой теме

[CherryPah]

[object]http://www.justsayhi.com/bb/files/countdown/countdown.swf?co=5EC9FF&bgcolor=666666&date_month=07&date_day=08&date_year=1&un=LHC%20ACTIVATION&size=giant&mo=07&da=08&yr=2008[/object]

[Телевизора Боялись]

чиста заодно ТЕСТ
чтоб новую тему не делать=)

[Мяут]

{===============================DRAW==================}
procedure draw(b: wide_vector_p);
var:
	F: wide_vector_p;
	gdrv, gmode: integer;
	i,j,k: integer;
	xsize, ysize, x0, y0: integer;
	xmin, ymin, xmax, ymax, xs, ys: extended;
begin
	gdrv := 0; gmode := 0;
	initgraph(gdrv, gmode, '');
	if graphresult <> 0 then begin
		writeln('Ошибка графики');
		halt;
	end;
	
	xsize := 600;
	ysize := 450;
	x0 := 20;
	y0 := 15;
	
	xmin := b[1].x;
	xmax := b[WVSIZE].x;
	ymax := b[1].y;
	ymin := b[1].y;
	for k := 2 to WVSIZE do begin
		if b[k].y > ymax then ymax := b[k].y;
		if b[k].y < ymin then ymin := b[k].y;
	end;
	
	xs := (xmax - xmin) / xsize;
	ys := (ymax - ymin) / ysize;
	
	moveto(round((b[1].x - xmin) / xs),
		   round((b[1].y - ymin) / ys)  );
	
	for k := 2 to WVSIZE do begin
		lineto(round((b[k].x - xmin) / xs),
			   round((b[k].y - ymin) / ys)   );
	end;
	
end;

{===============================DRAW==================}procedure draw(b: wide_vector_p);var:	F: wide_vector_p;	gdrv, gmode: integer;	i,j,k: integer;	xsize, ysize, x0, y0: integer;	xmin, ymin, xmax, ymax, xs, ys: extended;begin	gdrv := 0; gmode := 0;	initgraph(gdrv, gmode, '');	if graphresult <> 0 then begin		writeln('Ошибка графики');		halt;	end;		xsize := 600;	ysize := 450;	x0 := 20;	y0 := 15;		xmin := b[1].x;	xmax := b[WVSIZE].x;	ymax := b[1].y;	ymin := b[1].y;	for k := 2 to WVSIZE do begin		if b[k].y > ymax then ymax := b[k].y;		if b[k].y < ymin then ymin := b[k].y;	end;		xs := (xmax - xmin) / xsize;	ys := (ymax - ymin) / ysize;		moveto(round((b[1].x - xmin) / xs),		   round((b[1].y - ymin) / ys)  );		for k := 2 to WVSIZE do begin		lineto(round((b[k].x - xmin) / xs),			   round((b[k].y - ymin) / ys)   );	end;	end;

Тест ;-)