Книги-online

Ответы — Раздел 7. Алгоритмы. Алгоритмизация. Алгоритмические языки

7.1.

а) (x+y)/(x-1/2)-(x-z)/(x*y);
б) (1+z)*(x+y/z)/(a-1/(1+x*x));
в) x**(n*(m+2)) + x**(n**m);
г) (a+b)**n/(1+a/(a**m-b**(m-n)));
д) (a[i]**(2*l) + b[j+1]**(2*k)) * (3**n-x*x*y)/(z-(d[i,j+1]+1)/(z+
  y/sqrt(t*t+x*y*z)));
е) sqrt(abs(sin(x)**2))/(3.01*x - exp(2*x));
ж) abs(cos(x**3) - sin(y)**2) / (abs(ln(x))**(1/4) + x*y);
з) ln(y**(-sqrt(abs(x+1)))) * sin(arctg(z))**2;
и) r[i,j]**abs(x-y) - 0.15*abs(sin(exp(-z**8)));
к) a**((x+y)/2) - ((x-1)/(abs(y)+1))**(1/3)*exp(-(y+u/2)).

7.2. а) ;    б) ;    в) ;    г) ;    д) ;    е) ;    ж) ;    з) ;    и) ;    к) ;    л) ;    м) ;    н) ;    о) ;    п) ;    р) ;    с) ;    т) ;    у) ;    ф) .

7.3. б) 16;   в) 5,5;    г) -256;   д) 3;    е) -2;   ж) 1.8.

7.4. б) среднее арифметическое: (a+b+c+d)/4; среднее геометрическое: (a*b*c*d)**(1/4);    в) sqrt(x*x+y*y);   г) sin(x*3.14/180);   д) 6*a*a;   е) sqrt(3)*a/2;    ж) абсцисса: (c1*b2-c2*b1)/(b1*a2-b2*a1); ордината: (c2*a1-c1*a2)/(b1*a2-b2*a1).

7.5. б) нет;   в) да;    г) да;    д) да;    е) нет;

7.6.

б) (x < a) или (x > b);
в) ((x>=a) и (x=c) и (x b)) и ((x < c) или (x > d));
д) mod(k,2)=1;
е) (mod(k,5)=0) и (k > 99) и (k < 1000);
ж) (mod(i,2)=1) и (mod(j,2)=0);
з) a1*b2=a2*b1;
и) (c < a) и (b > a);
к) (a=-b) или (a=-c) или (a=-d) или (b=-c) или (b=-d) или (c=-d);
л) ((mod(a,2)=0) и (mod(b,2)=0)) или ((mod(a,2)=0) и (mod(c,2)=0))
или ((mod(b,2)=0) и (mod(с,2)=0));
м) (a>0) и (b>0) и (c>0) и (a+b>c) и (a+c>b) и (b+c>a);
н) ((a1*b2=a2*b1) и (a1*c2=a2*c1)) или ((a1*c2=a2*b1) и (a1*b2=a2*c1))
или ((a1*c2=b2*b1) и (a1*a2=b2*c1)) или ((a1*a2=b2*b1) и (a1*c2=b2*c1))
или ((a1*a2=c2*b1) и (a1*b2=c2*c1)) или ((a1*b2=c2*b1) и (a1*a2=c2*c1));
о) (y>5-5*x) и (y0);
п) (y5-x) или (y=1-x) и ((yи/b b>0
          то k:=k+1
        все
        если c>0
          то k:=k+1
        все
        вывод k
    кон

в) алг Преобразование(арг рез вещ a,b)
        надо |меньшее из a,b увеличено вдвое
    нач
        ввод a,b
        если a>b
          то b:=b*2
          иначе a:=a*2
        все
        вывод a,b
    кон

г) алг  Подобие треугольников(арг вещ a,b,c,d, рез лог Otvet)
        дано | a,b и c,d - катеты двух треугольников
        надо | Otvet=да, если треугольники подобны
    нач
        ввод a,b,c,d
        если (a*d=с*b) или (a*c=d*b)
          то    Otvet:=да
          иначе Otvet:=нет
        все
        вывод Otvet
    кон

д) алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)
   нач вещ DistA,DistB,DistC
     ввод xA,yA,xB,yB,xC,yC
     DistA:=sqrt(xA**2 + yA**2)
     DistB:=sqrt(xB**2 + yB**2)
     DistC:=sqrt(xC**2 + yC**2)
     если (DistA < DistB) и (DistA < DistC)
       то Otvet:="Это точка А"
       иначе если DistB < DistC
               то    Otvet:="Это точка B"
               иначе Otvet:="Это точка C"
             все
     все
     вывод Otvet
   кон

е) алг Принадлежность кольцу(арг вещ x,y,r1,r2, рез лог Otvet)
     дано | r2>r1
     надо | Otvet=да, если точка (x,y) принадлежит кольцу
          | c внутренним радиусом r1 и внешним радиусом r2
    нач
      ввод x,y,r1,r2
      если (x*x+y*y=r1*r1)
        то    Otvet:=да
        иначе Otvet:=нет
      все
      вывод Otvet
    кон

ж) алг Упорядочение по возрастанию(арг рез вещ a, b, c)
       надо |  числа a, b, c упорядочены по возрастанию
    нач вещ t
      ввод a, b, c
      если a>b
        то t:=a;  a:=b;  b:=t   | меняются местами значения  a и b
      все
      если a>c
        то t:=a;  a:=c;  c:=t   | меняются местами значения  a и c
      все
      если b>c
        то t:=b;  b:=c;  c:=t   | меняются местами значения  b и c
      все
      вывод a, b, c
    кон