uses GraphABC;
begin
SetPenWidth(5);
Rectangle(15,15,625,465);
Rectangle(105,250,125,400);
FloodFill(110,255,clGray);
SetBrushColor(clGreen);
FillEllipse(60,135,170,305);
Rectangle(305,190,320,290);
FloodFill(310,195,clGray);
SetBrushColor(clGreen);
FillEllipse(267,75,357,210);
Rectangle(503,130,515,195);
FloodFill(510,145,clGray);
SetBrushColor(clGreen);
FillEllipse(475,25,545,135);
end.
Объяснение:
Смотри картинку
1. я не знаю с какой дескретностью осуществляется поворот, однако результатом будут
а) горизонтальная линия вдоль верхней кромки экрана начинающаяся в точке 0,0
б) вертикальная линия вдоль левой кромки экрана начинающаяся в 2 шагах от точки 0,0
в) линия произвольного наклона начинающаяся в двух шагах от точки 0,0 и идущая до края экрана
2. а) вначале дойдем до края экрана
пока впереди не край
прыжок
конец цикла
б) повернем указатель в сторону угла и загоним указатель в угол
пока впереди край
поворот
конец цикла
пока впереди не край
прыжок
конец цикла
в) начинаемрисовать пунктир до следующего угла и там поворачиваем
пока впереди не край
шаг
прыжок
конец цикла
пока впереди край
поворот
конец цикла
г) повторяем пункт в еще 3 раза
итоговая программа
пока впереди не край
прыжок
конец цикла
пока впереди край
поворот
конец цикла
пока впереди не край
прыжок
конец цикла
i:=0
пока i<4
пока впереди не край
шаг
прыжок
конец цикла
пока впереди край
поворот
конец цикла
i := i+1
конец цикла
Сейчас всех кого не лень сажают за компы, даже тех кому оно особо и не надо
Бухи используют специальные бухгалтерские проги чтоб считать данные и сдавать отчеты в разные организации, бд обязательны
Кассиры подсчитывают и фиксируют купленные товары и чеки в специальных своих программах, опять таки бд тоже
программисты в зависимости от вида деятельности пользуются различными средами разработки, тестирования, системами контроля версии и багтрекерами
художники и дизайнеры пользуются фотошопами, 3д программами, корелами и тп
если надо больше то напиши мне сообщение
Объяснение:
uses graphABC;
begin
setwindowsize(500,500);
setpenwidth(4);
arc(250,200,50,-90,90);
arc(250,320,70,-90,90);
line(230,150,250,150);
line(230,250,250,250);
line(230,390,250,390);
line(230,150,230,390);
floodfill(260,200,clbrown);
floodfill(260,320,clbrown);
setbrushcolor(clcream);
circle(230,100,50);
arc(240,150,30,30,-190);
floodfill(240,140,clbrown);
setbrushcolor(clwhite);
circle(240,90,20);
ellipse(240,75,260,105);
setbrushcolor(clblack);
circle(250,90,5);
arc(350,150,100,130,-200);
arc(220,40,100,-60,0);
arc(270,43,35,-60,90);
arc(344,40,25,40,-170);
line(290,180,390,140);
line(390,140,380,60);
line(380,60,400,50);
line(300,200,390,230);
line(390,230,400,180);
line(400,180,420,180);
line(230,180,110,170);
line(110,170,150,100);
line(150,100,130,80);
line(230,210,140,240);
line(140,240,120,290);
line(120,290,100,270);
line(320,310,380,370);
line(380,370,350,430);
line(350,430,380,430);
line(310,360,330,380);
line(330,380,250,430);
line(250,430,280,430);
end.