АГ
Алёна Григорьева
Задача Pascal на объекты.
Одинаковые трубы в количестве N штук уложены пирамидой. Получить на экране вид пирамиды с торца для произвольного числа N.
Одинаковые трубы в количестве N штук уложены пирамидой. Получить на экране вид пирамиды с торца для произвольного числа N.
может быть это поможет
program gvinog;
uses graphABC,crt;
var
n:integer;
begin
//delay(100);
setwindowwidth(500);
setwindowheight(600);
SetBrushColor(clgreen);
circle(250,490,30); // нижний
circle(280,440,30); // средний
circle(220,440,30); //
circle(250,390,30); // верхний
circle(310,390,30); //
circle(190,390,30); //
SetPenColor(clBrown);
line(250,360,270,250);
end.