Var h:integer; begin h:=40; line(window.Width-300,window.Height,window.Width-300,0); floodfill(window.Width-20,20,clGray); rectangle(window.Width-200,100,window.Width-100,300); floodfill(window.Width-150,140,clGold); while h<>window.Height-40 do begin circle(window.Width div 2,h-40,10); floodfill(window.Width div 2,h-40,clGreen); circle(window.Width div 2,h,30); floodfill(window.Width div 2,h,clRed); rectangle(0,0,window.Width div 2+40,window.Height); floodfill(window.Width div 2+40,window.Height,clWhite); inc(h); end; circle(window.Width div 2,h-40,10); floodfill(window.Width div 2,h-40,clGreen); circle(window.Width div 2,h,30); floodfill(window.Width div 2,h,clRed); end.
Открытая архитектура- это архитектура компьютера, любого перефирийного устройства(устройства ввода-вывода) или ПО (программного обеспечения), на которые опубликованы спецификации(документ, в котором указаны все узлы и детали изделия), то есть любой производитель может разработать дополнительные устройства к системам с открытой архитектурой Принцип открытой архитектуры заключается в том, что производитель не скрывает узлы и детали, из которых состоит компьютер. Они могут быть легко заменены другими. Большинство современных компьютеров- с открытой архитектурой. Обратный пример- с закрытой архитектурой это продукция Apple (айфон,айпад, макбук), к которым не подходят детали других производителей По просту говоря, к любому компьютеру можно подключить любой принтер, мышку или другой гаджет не важно какого производителя
Uses
GraphABC;
Var
h:integer;
begin
h:=40;
line(window.Width-300,window.Height,window.Width-300,0);
floodfill(window.Width-20,20,clGray);
rectangle(window.Width-200,100,window.Width-100,300);
floodfill(window.Width-150,140,clGold);
while h<>window.Height-40 do
begin
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
rectangle(0,0,window.Width div 2+40,window.Height);
floodfill(window.Width div 2+40,window.Height,clWhite);
inc(h);
end;
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
end.