5запишите команды для построения изображения произвольного. а) ква-драта; б) прямоугольника; в) прямоугольного треугольника; г) равнобедренного треугольника​

Вот программа: program speed; uses crt,graphabc; begin circle (180,330,30); circle (180,330,40); line (180,330,165,315); line (180,330,195,315); line (180,330,195,330); line (180,330,165,330); line (180,330,165,345); line (180,330,195,345); line (180,345,180,315); circle (450,330,30); circle (450,330,40); line (435,330,465,330); line (450,315,450,345); line (465,315,435,345); line (435,315,465,345); line (143,315,120,315); line (120,315,110,330); line (110,330,60,330); line (60,330,55,320); line (55,320,55,280); line (55,280,64,280); line (63,280,90,240); line (90,240,180,225); line (180,225,210,160); line (210,160,510,160); line (510,160,480,210); line (489,195,540,300); line (540,300,491,330); line (491,330,540,330); line (540,330,510,355); line (510,355,481,355); line (540,330,540,300); line (418,355,212,355); line (147,355,60,355); line (60,355,60,330); line (105,240,86,280); line (86,280,60,280); line (220,330,410,330); line (480,210,450,210); line (450,210,440,160); line (165,270,300,270); line (165,270,165,292); line (165,270,213,165); line (213,165,420,165); line (420,165,420,240); line (420,240,360,320); line (360,320,310,320); line (310,320,305,315); line (305,315,330,240); line (330,240,420,240); line (330,270,360,270); line (330,240,330,165); line (180,260,220,170); line (220,170,320,170); line (320,170,300,270); line (180,260,300,260); line (300,270,283,320); line (283,320,220,320); line (255,300,285,300); line (55,287,165,287); line (385,287,533,287); line (102,247,175,247); line (416,247,514,247); end. также посмотри результат работы:

#include  < iostream> #include < cstdio> #include < cmath> int  main() { //объявление переменных, освобождение памяти под динам.массив int i=0,n=0,c=0,max=0,k=0; double p=1.0; cin> > n,c; double *massop = new  double [n]; double *mass = new double[n]; //узнаём числа> c, а заодно и значение  максимума по модулюfor (  i = 0; i < n; i++) { cin> > massop[i]; if (massop[i]> c) k++; if (fabs(massop[i])> max||fabs(massop[i])=max) max=fabs(massop[i]); } cout< < k< < '"  элементов больше с"< < endl; //находим первый максимальный эл-т //больше с  не нужно, возьму под другие нужды for (i  =  0; i< n; i++) { if (fabs(massop[i])=max) break; } c=i; //начиная с этого элемента находим произведение последующих for (i  = c; i< n; i++) { p=p*massop[i]; } cout< < "произведение чисел  после максимального по модулю элемента:   "< < p< < endl; //и снова с на левые цели c=0; //заполняем начало массива mass отрицательными элементами из massop for (i=0; i< n; i++) { if  (massop[i]< 0) mass[c]=massop[i]; c++; } //а конец-положительными for (i=0; i< n; i++) { if  (massop[i]> 0||massop[i]=0) mass[c]=massop[i]; c++; } //выведем, что вышло после упорядочивания for (i=0; i< n; i++) { cout< < mass[i]< < '/n'; } } /*вот и всё, коллега-сишник : d*/