主题：如何根据数据画坐标图
mingtongling
[专家分：0] 发布于 2009-07-12 06:03:00
求教各位高手，如何根据以下数据画出坐标图
X Y
1 1
3 7
4 5
5 13
7 9
最后更新于：2009-07-12 06:15:00
回复列表 （共5个回复）
沙发
mingtongling [专家分：0] 发布于 2009-07-12 06:07:00
我是新手，不知如何画图。求助各位高手帮忙。谢谢！
3 楼
小田甜 [专家分：3910] 发布于 2009-07-13 12:23:00
uses graph;
procedure GraphIni;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
end;
var
fin:text;
x,y:byte;
begin
graphini; setcolor(white);
line(150,100,150,400);
line(100,350,400,350);
assign(fin,'filein.txt');reset(fin);
readln(fin);
while not eof(fin) do begin
readln(fin,x,y);
putpixel(150+10*x,350-10*y,lightgreen);
end;
readln;
closegraph;
end.
4 楼
tzhlryy [专家分：270] 发布于 2009-08-02 18:43:00
X Y
1 1
3 7
4 5
5 13
7 9
* 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 * 0 0 0 0 0 0
0 0 0 0 * 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 *
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 * 0 0 0 0
X Y指的就是*号点
5 楼
mingtongling [专家分：0] 发布于 2009-08-20 03:48:00
非常谢谢 小田甜，tzhlryy ！
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 如何根据数据画坐标图