Перечислите графические примитивы и опишите процедуры их рисования

Pascal? drawcircle - круг drawrectangle - прямоугольник line - это основные. а вообще, все в прикл. файле)

/* gnu gcc */ #include < iostream> #include < cstdlib> using namespace std; int main() { int x[10]; int y[20]; int z[25]; int xs=0, ys=0, zs=0; // заполняем массивы случайными числами до 100 srand(time(0)); cout < < "массив x(10): " < < endl; for(int i=0; i< 10; ++i) { x[i] = rand() % 100; cout < < x[i] < < " "; } cout < < endl; cout < < "массив y(20): " < < endl; for(int i=0; i< 20; ++i) { y[i] = rand() % 100; cout < < y[i] < < " "; } cout < < endl; cout < < "массив z(25): " < < endl; for(int i=0; i< 25; ++i) { z[i] = rand() % 100; cout < < z[i] < < " "; } cout < < endl; // считаем суммы элементов массивов for(int i=0; i< 10; ++i) xs+=x[i]; for(int i=0; i< 20; ++i) ys+=y[i]; for(int i=0; i< 25; ++i) zs+=z[i]; cout < < endl; // выводим суммы элементов на экран cout < < "сумма элементов массива x(10) = " < < xs < < endl; cout < < "сумма элементов массива y(20) = " < < ys < < endl; cout < < "сумма элементов массива z(25) = " < < zs < < endl; return 0; }

Pascalabc: var a: array of real;             k,i,n: integer;             x: real; begin write('задайте размер массива = '); readln(n); setlength(a,n); for i: =0 to n-1 do begin readln(a[i]); if (i> 0) and (k=0) and (x> a[i]) then k: =1; x: =a[i]; end; if k=1 then writeln('элементы массива не являются возрастающей последовательностью') else writeln('элементы массива являются возрастающей последовательностью'); end.