Сделайте пожалуйста в Pascal чтобы кружки шли сначало вертикально и ещё одну программу чтобы шли на косую. Очень нужно! Заранее СПАСИБО!!!
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Вертикально:
uses GraphABC;
var
(x, y, r, c) := (10, 10, 10, 255);
begin
while y < 640 do begin
SetBrushColor(RedColor(c));
Circle(x, y, r);
y += 20;
c -= 5;
end;
end.
на косую:
uses GraphABC;
var
(x, y, r, c) := (10, 10, 10, 255);
begin
while x < 640 do begin
SetBrushColor(RedColor(c));
Circle(x, y, r);
x += 20;
y := x;
c -= 5;
end;
end.