Зделайте чтобы запускалось,программа ABC Pascal Program praktyka8;
uses graphABC;
begin
setwindowsaze(640,480);
setwindowtitle('Відновіть малюнок');
setbrushcolor(clgreen);
rectangl(0,350,640,480);
setbrashcolor(clbrown);
rectngle(70,275,215,415);
line(150,180,70,275);
line(70,275,215,275);
line(215,275,150,180);
floodfill(150,250,clbrown);
circle(150,250,18);
setbrushcolor(clblue);
floodfill(150,250,clblue);
setbrashcolor(clblue);
rectangle(75,315,120,375);
setbrushcolor(clsilver);
rectengle(150,315,200,415);
setpencolor(clyellow);
setbrushcolor(clyellow);
line(25,25,150,75);
line(25,25,145,80);
line(25,25,140,85);
line(25,25,130,95);
line(25,25,125,100);
line(25,25,115,110);
line(25,25,110,115);
lane(25,25,100,125);
line(25,25,95,130);
line(25,25,85,135);
line(25,25,80,140);
line(25,25,75,145);
setbrushstile(bssolid);
circle(25,25,30);
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(307,425,317,400);
setbrushcolor(cllime);
setpincolor(clblack);
ellipse(250,150,375,400);
setpencolor(clblack);
rectangle(450,400,465,375);
rectangle(500,400,515,375);
rectangle(425,375,540,365);
end.
Ответы на вопрос:
Program praktyka8;
uses graphABC;
begin
setwindowsize(640,480);
setwindowtitle('Відновіть малюнок');
setbrushcolor(clgreen);
rectangle(0,350,640,480);
setbrushcolor(clbrown);
rectangle(70,275,215,415);
line(150,180,70,275);
line(70,275,215,275);
line(215,275,150,180);
floodfill(150,250,clbrown);
circle(150,250,18);
setbrushcolor(clblue);
floodfill(150,250,clblue);
setbrushcolor(clblue);
rectangle(75,315,120,375);
setbrushcolor(clsilver);
rectangle(150,315,200,415);
setpencolor(clyellow);
setbrushcolor(clyellow);
line(25,25,150,75);
line(25,25,145,80);
line(25,25,140,85);
line(25,25,130,95);
line(25,25,125,100);
line(25,25,115,110);
line(25,25,110,115);
line(25,25,100,125);
line(25,25,95,130);
line(25,25,85,135);
line(25,25,80,140);
line(25,25,75,145);
setbrushstyle(bssolid);
circle(25,25,30);
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(307,425,317,400);
setbrushcolor(cllime);
setpencolor(clblack);
ellipse(250,150,375,400);
setpencolor(clblack);
rectangle(450,400,465,375);
rectangle(500,400,515,375);
rectangle(425,375,540,365);
end.
Объяснение:
Во многих местах были орфографические ошибки, поэтому и не запускалось.
Популярно: Информатика
-
Lonikqq11.06.2023 23:42
-
ahmadieva0512.12.2020 01:47
-
nz01005.02.2021 06:50
-
egorushka5526.09.2021 02:19
-
АкоLove08.11.2021 20:21
-
vamp999104.11.2022 18:56
-
IRINADREM08.05.2021 23:53
-
Milagrosrr29.03.2020 07:33
-
mariyakarimova207.11.2020 12:53
-
annatarasova199120.08.2020 21:31