//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
1) Начало 2) Ввод матрицы A(5, 10) 3) Цикл по i от 1 до 5 // по строкам 3.1) max = A(i, 1); min = A(i, 1); nmax = 1; nmin = 1; 3.2) Цикл по k от 1 до 10 // по столбцам 3.2.1) Если A(i, k) > max, то // находим максимум в строке и его номер 3.2.1.1) max = A(i, k); nmax = k; 3.2.1.2) Конец Если 3.2.2) Если A(i, k) < min, то // находим минимум в строке и его номер 3.2.2.1) min = A(i, k); nmin = k; 3.2.2.2) Конец Если 3.2.3) Конец цикла по k // по столбцам 3.2.4) A(i, nmin) = max; A(i, nmax) = min // меняем их местами 3.3) Конец цикла по i // по строкам 4) Вывод массива A(5, 10) 5) Конец. Сложность такой программы - 1 (очень простая). Всего лишь два цикла в цикле и два сравнения чисел.
А6 = 2
В6 = 22
С6 = 14,6
D6 = 38
Объяснение:
А1 = 44
А2 = 2
А3 = 55
А4 = 6
А5 = 11
А6 = МИН (А1:А5) = 2
Функция МИН ищет минимальное значение из диапазона А1:А5, т.е. из ячеек А1, А2, А3, А4 и А5.
В1 = 4
В2 = 2
В3 = 11
В4 = 22
В5 = 3
В6 = МАКС (В1:В5) = 22
Функция МАКС ищет максимальное значение из диапазона В1:В5, т.е. из ячеек В1, В2, В3, В4 и В5.
С1 = 32
С2 = 12
С3 = 21
С4 = 3
С5 = 15
С6 = СРЗНАЧ (С1:С5) = 14,6
Функция СРЗНАЧ ищет среднеарифметическое значение диапазона С1:С5, т.е. ячеек С1, С2, С3, С4 и С5.
32 + 12 + 21 + 3 + 5 = 73
73 / 5 = 14,6
D1 = 11
D2 = 1
D3 = 21
D4 = 2
D5 = 3
D6 = СУММ (D1:D5) = 38
Функция СУММ ищет сумму значений из диапазона D1:D5, т.е. из ячеек D1, D2, D3, D4 и D5.
11 + 1 + 21 + 2 + 3 = 38