Question

1)составить блок схему и программу для вычисления y и z по заданным формулам Y=2e^4x+arctg(x/a), при a=5.1 Z=cosx^3+sin^2x, при x=3,29 2)Создать новый одномерный массив B из элементов исходной матрицы А(6,8), удовлетворяющие условию 0≤cosa<0,5. В полученном массиве поменять местами максимальные и минимальные

Answer 1

Const
  a=5.1;
  x=3.29;
var
  Y,Z:double;
begin
  Y:=2*exp(4*x)+arctan(x/a);
  Z:=cos(x*sqr(x))+sqr(sin(x));
  Writeln('Y=',Y,', Z=',Z)
end.

Результат выполнения программы:
Y=1038354.42291114, Z=-0.472433980670957

const
  m=6;
  n=8;
var
  a:array[1..m,1..n] of double;
  b:array[1..m*n] of double;
  i,j,k,imax,imin:integer;
  t:double;
begin
  // Инициализация А и формирование В
  Randomize;
  Writeln('Исходный массив A');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=10*Random-5; { случайное число на [-5;5] }
      Write(a[i,j]:8:4);
      t:=cos(a[i,j]);
      if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end
    end;
    Writeln
  end;
  // Вывод сформированного массива В
  Writeln('Исходный массив В');
  for i:=1 to k do Write(b[i]:8:4);
  Writeln;
  // Поиск максимума и минимума с последующим обменом их местами
  imax:=1; imin:=1;
  for i:=2 to k do
    if b[i]<b[imin] then imin:=i
    else
      if b[i]>b[imax] then imax:=i;
  t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t;
  // Вывод результирующего массива В
  Writeln('Результирующий массив В');
  for i:=1 to k do Write(b[i]:8:4);
  Writeln
end.

Тестовое решение:
Исходный массив A
 -1.6788 -0.7273 -3.4919  2.9903 -4.3249 -2.2230 -2.1157  0.9685
  2.0515  4.6821  0.2794 -1.4624  4.9668 -3.5754 -3.4115 -0.5592
  3.0535  1.1339  0.0992 -0.5307 -0.6266  2.2623  1.9578 -1.3175
 -0.6154  3.6080  2.4223 -4.8354 -2.2978  3.8982 -2.2427  2.0410
 -1.1019 -3.4703 -2.0104 -1.3044  0.7744  0.6897  3.1747  1.3257
 -4.3942 -1.6707 -3.2494 -0.6551  3.4726 -0.2896  3.4154  1.9644
Исходный массив В
 -1.4624  4.9668  1.1339 -1.3175 -4.8354 -1.1019 -1.3044  1.3257
Результирующий массив В
 -1.4624 -4.8354  1.1339 -1.3175  4.9668 -1.1019 -1.3044  1.3257

Answer 2

1) Составим блок-схему для вычисления y и z по заданным формулам:

1. Начало программы 2. Ввод значения a (a = 5.1) 3. Вычисление y = 2e^4x + arctg(x/a) 4. Ввод значения x (x = 3.29) 5. Вычисление z = cos(x^3) + sin^2(x) 6. Вывод значений y и z 7. Конец программы

Программа:

import math

# Ввод значения a
a = 5.1

# Вычисление y
x = 3.29
y = 2*math.exp(4*x) + math.atan(x/a)

# Вычисление z
z = math.cos(x**3) + math.sin(x)**2

# Вывод значений y и z
print("Y =", y)
print("Z =", z)

2) Создаем новый одномерный массив b из элементов исходной матрицы A(6,8), удовлетворяющих условию 0 ≤ cos(a) < 0.5. Затем меняем местами максимальный и минимальный элементы полученного массива b.

Программа:

import numpy as np

# Исходная матрица A (6, 8)
A = np.random.rand(6, 8)

# Создание нового массива b
b = []
for i in range(A.shape[0]):
    for j in range(A.shape[1]):
        if 0 <= np.cos(A[i, j]) < 0.5:
            b.append(A[i, j])

# Поиск максимального и минимального элементов в массиве b
max_elem = max(b)
min_elem = min(b)

# Замена максимального и минимального элементов местами
max_idx = b.index(max_elem)
min_idx = b.index(min_elem)
b[max_idx], b[min_idx] = b[min_idx], b[max_idx]

# Вывод полученного массива b
print("Массив b после замены максимального и минимального элементов:", b)