Предмет: Информатика,
автор: akabanova8
Как нарисовать олимпийские кольца в PascalABC?
Ответы
Автор ответа:
0
uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
setpenwidth(8);
setpencolor(clBlue);
drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clgreen);
Drawcircle(x,y,50);
inc(x,110);
end.
var x,y:integer;
begin
x:=100;
y:=100;
setpenwidth(8);
setpencolor(clBlue);
drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clgreen);
Drawcircle(x,y,50);
inc(x,110);
end.
Похожие вопросы
Предмет: Математика,
автор: olesyapolevich1234
Предмет: Алгебра,
автор: 23458204
Предмет: Русский язык,
автор: as6071266
Предмет: Алгебра,
автор: komatozova15
Предмет: Физика,
автор: duda25