Написать программу, которая выводит на экран узор

@Василий92 · Регистрация: 15.09.2011

Студворк — интернет-сервис помощи студентам

Написать программу, которая выводит на экран узор, изображенный ниже. Контур прямоугольников окружностей должен быть разного цвета (см. таблицу кодировки цветов). Прямоугольники должны быть разного цвета. Использовать заливку каждому квадрату. При нажатии на клавишу Tab стирать экран, при нажатии на Enter продолжать рисовать, при нажатии на Esc выполнить завершение программы.

@Puporev · 01.04.2012, 09:14

Pascal

uses graph,crt;
var xc,yc,d,a,i,k:integer;
    c:char;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
a:=150;
d:=10;
k:=-1;
outtextXY(xc-40,20,'Enter-Draw');
outtextXY(xc-40,40,'Tab-Clear');
outtextXY(xc-40,60,'Esc-Exit');
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #13:begin
      k:=k+1;
      for i:=1 to 15 do
       begin
        setfillstyle(1,(i+k) mod 16);
        bar(xc-a+(i-1)*d,yc-a+(i-1)*d,xc+a-i*d,yc+a-i*d);
       end;
      end;
  #9:begin
     setfillstyle(1,0);
     bar(xc-a,yc-a,xc+a,yc+a);
     end;
  #27:exit;
  end;
 end;
until c=#27;
end.

@Василий92 2 / 2 / 0 Регистрация: 15.09.2011 Сообщений: 38
		1
	Написать программу, которая выводит на экран узор 31.03.2012, 21:47. Показов 3717. Ответов 1 Метки нет (Все метки) Написать программу, которая выводит на экран узор, изображенный ниже. Контур прямоугольников окружностей должен быть разного цвета (см. таблицу кодировки цветов). Прямоугольники должны быть разного цвета. Использовать заливку каждому квадрату. При нажатии на клавишу Tab стирать экран, при нажатии на Enter продолжать рисовать, при нажатии на Esc выполнить завершение программы. Изображения 0

Опции темы

Написать программу, которая выводит на экран узор

Решение