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

1

Ответы и объяснения

2013-10-08T16:22:20+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.