Оформите в виде процедур алгоритмы рисования букв м, и, р. составьте алгоритмы рисования слов мир, рим, мим.

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.

Метод ньютона (метод ньютона-рафсона, метод касательных) требует для нахождения корня нелинейного уравнения выполнения достаточно большого количества условий. в качестве компенсации он (в общем случае) сходится быстрее любого другого численного метода нахождения корня уравнения f(x)=0. для функции f(x) должен быть определен интервал изоляции корня [a; b], такой что на нем: а) f(a) и f(b) имеют разные знаки; б) f(x) определена и непрерывна; в) f'(x) ≠ 0 г) f"(x) определена всюду и имеет постоянный знак 1. перепишем уравнение в более привычном виде и сделаем преобразования, необходимые для нахождения интервала изоляции корня [a; b], а также проверки выполнения на нем условий а) - г) степенная функция при натуральном основании и вещественном показателе степени всюду положительна, является непрерывной и монотонно возрастающей. комбинация показательных функций будет также обладать этими свойствами. при х=0 (считать удобно) f(x) = 11+3-0.9 = 13.1 при х=-1 (тоже удобно) f(x) = 11/20 +3/5 - 9/10 = 1/4 (почти ноль! ) при х=-2 f(x) = 11/400 + 3/25 - 9/10 = -301/400 ≈ - 0.7525 условие а) выполнено, интервал изоляции корня найден, a=-2, b=-1. прочие условия на этом интервале также выполняется в соответствии с написанным выше. 2. в качестве начального приближения выберем точку, находящуюся в середине интервала изоляции. х₀ = -1.5 3. зададимся максимальной погрешностью решения, равной 10⁻⁶ 4. определим условие завершения поиска корня. в соответствии с известной формулой (например, см. стр. 41 в книге  гловацкая а.п. методы и алгоритмы вычислительной . учеб. пособие для вузов. - м.: радио и связь, 1999), длина интервала изоляции корня связана с погрешностью следующим образом: f'(a) = 11/400*ln(20)+3/25*ln(5) ≈ 0.275515187014827; f"(b) = 11/20*ln(20)²+3/5*ln(5)² ≈ 6.49010075653527 величина интервала для х при ε=10⁻⁶ будет составлять приблизительно 0.0002914. 5. составим программу на языке программирования pascalabc.net 3.3. и найдем корень уравнения. // pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var f: real-> real: =x-> 11*power(20,x)+3*power(5,x)-0.9;   var f1: real-> real: =x-> 11*power(20,x)*ln(20)+3*power(5,x)*ln(5);   var f2: real-> real: =x-> 11*power(20,x)*sqr(ln(20))+3*power(5,x)*sqr(ln(5));   var (a,b,eps): =(-2.0,-1.0,1e-6);   var d: =sqrt(2*f1(a)*eps/f2(b));   var xn1: =(a+b)/2;   var xn: real;   repeat       (xn,xn1): =(xn1,xn-f(xn)/f1(xn));   until abs(xn-xn1)< =d;   writeln(xn1: 0: 6); end. результат: -1.109118

Var a: array[1..10]of integer; i: integer; begin for i: = 1 to 10 do   begin       read(a[i]);       if a[i] mod 2 < > 0 then write(a[i], ' ');   end; end. /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/ //более современное решение // pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var a: = readlnstring('введите массив').tointegers; setlength(a, 10); a.where(t-> t.isodd).println; end.