Отвечаю на твой вопрос , вот что у меня получилось:
3\4*4\5=12\20=3\5
A) Алгоритм такой:
Ввод начальных матриц A(4; 4); B(3; 3)
Цикл по i от 1 до 4 для матрицы A(4; 4)
Вызов процедуры замены элементов матрицы с параметром i.
Конец цикла
Цикл по i от 1 до 3 для матрицы B(3; 3)
Вызов процедуры замены элементов матрицы с параметром i.
Конец цикла
Вывод обоих матриц
Конец основной программы
Процедура замены для матрицы M(k; k)
Ввод номера текущей строки n
Q = M(n; n)
M(n; n) = M(n; k-n+1)
M(n; k-n+1) = Q
// Здесь i - это текущая строка, k - количество строк в матрице. //
Конец процедуры.
b) Алгоритм такой:
Ввод начальных векторов G = (g1; g2; g3; g4); D = (d1; d2; d3; d4)
Вызов процедуры вычисления длины вектора S1 = P(|G|)
Вызов процедуры вычисления длины вектора S2 = P(|D|)
S = (S1 + S2)/2
Вывод результата S
Конец основной программы
Процедура вычисления длины вектора A(a1; a2; a3; a4)
P = sqrt(a1^2 + a2^2 + a3^2 + a4^2)
Конец процедуры
c) Алгоритм такой:
c = 1,23
Цикл по а от 2 до 8
// так удобнее, чем цикл от 0,2 до 0,8 с шагом 0,1 //
x = COS ( (0.1*a + c)/3.178)
y = 0.7*COS (0.1*a - 1.27)
x1 = Arcsin(x)
y1 = Arcsin(y)
xy1 = Arcsin(x + y)
// Здесь Arcsin (t) - это пользовательская функция, которую мы сами определяем в отдельной процедуре. //
z = x1 = y1 + LOG (ABS (xy1))
Вывод очередного значения z
Конец цикла по а
Конец основной программы
Процедура вычисления Arcsin (t)
// Дальше сложность, потому что в языках программирования очень редко встречается функция arcsin(x), обычно только sin(x), cos(x), atan(x). //
// Поэтому вспоминаем тригонометрию. arcsin t = arctg ( t/√(1-t^2) )
Arcsin (t) = ATAN (t / SQRT (1 - t*t))
Конец процедуры
Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
1^1=1
1v0=1
0v1=1
1&1=1
Значение равно 1 (сверху действия)
