四个大学编程题求助!

Question

超着急.寻求帮助.请大家帮下忙.
四个大学的编程题.请大家帮忙写一下程序.
1. 编写一个过程，根据圆心坐标和半径画出圆。
2. 编写一个过程，根据三角形的三个顶点画出一个三角形。
3. 编写一个程序实现将memo中的内容保存到一个名字为d:\1.txt的文件中。
4. 编写一个将结构为学号、姓名、年龄和性别等字段的表中性别为男、年龄20以上的记录复制到另一个表中的过程。
谢谢大家了.我在线等.请大家帮下忙.辛苦了.!!!

Answer 1

1. 编写一个过程，根据圆心坐标和半径画出圆。 procedure TForm1.DrawCircle(x, y, r: Integer);
begin
  Self.Canvas.Ellipse(x-r,y-r,x+r,y+r);
end;2. 编写一个过程，根据三角形的三个顶点画出一个三角形。 procedure TForm1.DrawAngel(p1, p2, p3: TPoint);
var
  ps:array [0..2] of TPoint;
begin
  ps[0] := p1;
  ps[1] := p2;
  ps[2] := p3;
  self.Canvas.Polygon(ps);
end;

Answer 2

3. 编写一个程序实现将memo中的内容保存到一个名字为d:\1.txt的文件中。 
Memo.Lines.SaveToFile

Answer 3

4. 编写一个将结构为学号、姓名、年龄和性别等字段的表中性别为男、年龄20以上的记录复制到另一个表中的过程。 
两个表复制吗,如果是,就是Insert into A(字段....) select 字段... from B where 性别='男' and 年龄>20

Answer 4

1、辛苦bdmh了
2、对于此类问题，建议楼主还是自己动手练习比较好一些。关键不在于怎么写，而在于思考和实践的过程

Answer 5

谢谢bdmh了.帖子我结了.
但是第三题没看懂.
就那么一句话就可以吗?