Question

Составьте программу , которая рисует отрезок с координатами концов (100,100),(100,200), если введено число 1 , и рисует окружность с центром (200,100) и радиусом 50, если введено число 2.

Answer 1

uses crt,graph;
var n:integer;
procedure init;
var gd,gm:integer;
begin
  gd:=vga;
  gm:=vgahi;
  initgraph (gd,gm,'');
end;
procedure error;
begin
  closegraph;
  writeln ('error!');
end;
begin
  write ('Number: ');
  readln (n);
  init;
  if graphresult=0 then
   begin
    if n=1 then line(100,100,100,200) else
     if n=2 then circle(200,100,50);
   end else error;
end.