Изобразить рисунок, используя оператор цикла

@bagira_svs · Регистрация: 08.10.2012

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

Изобразить, используя оператор цикла:

@Puporev · 12.10.2012, 13:10

Pascal

uses graph;
var x,y,w,h,i:integer;
begin
initgraph(x,y,'');
w:=getmaxX div 16;{высота}
h:=getmaxY div 8;{ширина}
x:=getmaxX div 2-4*w;{левый край}
y:=getmaxY div 2;{середина высоты}
for i:=1 to 4 do
 begin
  line(x,y,x+w,y-h div 2);
  line(x,y,x+w,y+h div 2);
  line(x+w,y-h div 2,x+2*w,y);
  line(x+w,y+h div 2,x+2*w,y);
  x:=x+2*w;
 end;
readln
end.

@bagira_svs 0 / 0 / 1 Регистрация: 08.10.2012 Сообщений: 57
		1
	Изобразить рисунок, используя оператор цикла 12.10.2012, 12:01. Показов 1498. Ответов 1 Метки нет (Все метки) Изобразить, используя оператор цикла: Миниатюры 0

	12.10.2012, 13:10

Изобразить рисунок, используя оператор цикла

Решение