• Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.

Ответы 1

  • uses graph;var n,i,x,y,height,width: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 ('N = ');  readln (n);  randomize;  init;  if graphresult = 0 then    begin      for i:=1 to n do        begin

              setcolor (random(14)+1);          x:=random(640);          y:=random(480);          height:=random(91)+10;          width:=random(101)+20;          rectangle (x,y,x+width,y+height);        end;    end else error;end.

    • Автор:

      uriahh3g6
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years