Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 08:52
675
Нужно создать две программы в Паскале АВС, срочно!
(должны получиться рисунки как на фото)
1
ответ
4) uses graphABC;
begin line(40,40,180,40);
line(40,40,110,0);
line(110,0,180,40);
line(40,40,110,80);
line(110,80,180,40);
setbrushcolor(clred);
circle(20,40,20);
circle(200,40,20);
floodfill(110,30,clblue);
floodfill(110,60,clgreen);
end.
5) uses graphABC;
procedure Fig(x1,y1,x2,y2,x3,y3,r,c,k:integer);
begin SetPenColor(c);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
floodfill((x2+x3)div 2,y2-5,c);
if k=3 then
begin floodfill((x2+5),y2-5,c);
floodfill((x3-5),y2-5,c);
end; circle(x1,y1,r);
floodfill(x1,y1,c);
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight-50;
Fig(x-180,y-200,x-100,y,x,y,10,clBlue,1);
Fig(x+180,y-200,x,y,x+100,y,10,clLime,2);
Fig(x,y-230,x-50,y,x+50,y,10,clRed,3);
end.
begin line(40,40,180,40);
line(40,40,110,0);
line(110,0,180,40);
line(40,40,110,80);
line(110,80,180,40);
setbrushcolor(clred);
circle(20,40,20);
circle(200,40,20);
floodfill(110,30,clblue);
floodfill(110,60,clgreen);
end.
5) uses graphABC;
procedure Fig(x1,y1,x2,y2,x3,y3,r,c,k:integer);
begin SetPenColor(c);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
floodfill((x2+x3)div 2,y2-5,c);
if k=3 then
begin floodfill((x2+5),y2-5,c);
floodfill((x3-5),y2-5,c);
end; circle(x1,y1,r);
floodfill(x1,y1,c);
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight-50;
Fig(x-180,y-200,x-100,y,x,y,10,clBlue,1);
Fig(x+180,y-200,x,y,x+100,y,10,clLime,2);
Fig(x,y-230,x-50,y,x+50,y,10,clRed,3);
end.
0
·
Хороший ответ
4 апреля 2023 08:52
Остались вопросы?
Еще вопросы по категории Информатика
Какой объем памяти займет сообщение: "Если Маша получит 2 по математике, то ей нельзя будет пойти в гости к подруге"? кавычки не считать...
Помогите пожалуйста. Пользуясь графиком изменения работоспособности, найдите истинные высказывания: а) подъём работоспособности начинается в 8 ч; б)...
Приведите примеры систем автоматического управления (САУ) и автоматизированных систем управления (АСУ). Конкретные примеры, сколько сможете....
В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов ма...
1) Кегель - это : A. начиртание шрифта. B. Размер шрифта. C. Элемент абзаца. D. Маркер на линейке формирования. 2) Вывод перечня символов, в то...
Все предметы 
