8-8. Барданов. Вариант 4. Задача Массив11 Новый Массив(5, 5) гсч Новый ГенераторСлучайныхЧисел()
 Скачать 81.49 Kb.
|
 Процедура КнопкаВыполнитьНажатие(Кнопка) // Вставить содержимое обработчика. КонецПроцедуры Процедура Задача12Нажатие(Элемент) // Задача 1. Массив11 = Новый Массив(5, 5); ГСЧ = Новый ГенераторСлучайныхЧисел(); Для Строка = 0 по 4 Цикл Для Ячейка = 0 по 4 Цикл Массив11[Строка][Ячейка] = Число(ГСЧ.СлучайноеЧисло(1, 70)- 70/2); Конеццикла; КонецЦикла; МинЗнач = 0; МинЗнач = МинЗнач + Массив11[4][0]; Для сч = 0 по 4 Цикл Число = Массив11[4][сч]; Если МинЗнач > Число Тогда МинЗнач = Число; КонецЕсли; КонецЦикла; Массив12 = Новый Массив(5,5); Для Строки = 0 по 4 Цикл Для Ячейки = 0 по 4 Цикл Если Массив11[Строки][Ячейки] < 0 Тогда Массив12[Строки][Ячейки] = МинЗнач Иначе Массив12[Строки][Ячейки] = Массив11[Строки][Ячейки]; КонецЕсли; КонецЦикла; КонецЦикла; Строка11 = ""; Строка12 = ""; Для каждого Строка из Массив11 Цикл Для каждого Ячейка из Строка Цикл Если Ячейка < -9 Тогда Строка11 = Строка11 + Ячейка + " | "; ИначеЕсли Ячейка < 0 ИЛИ Ячейка > 9 Тогда Строка11 = Строка11 + " " + Ячейка + " | "; ИначеЕсли Ячейка > -1 И Ячейка < 10 Тогда Строка11 = Строка11 + " " + Ячейка + " | "; КонецЕсли; КонецЦикла; Строка11 = Строка11 + Символы.ПС + "--------------------------------------------" + Символы.ПС; КонецЦикла; Для каждого Строка из Массив12 Цикл Для каждого Ячейка из Строка Цикл Если Ячейка < -9 Тогда Строка12 = Строка12 + Ячейка + " | "; ИначеЕсли Ячейка < 0 ИЛИ Ячейка > 9 Тогда Строка12 = Строка12 + " " + Ячейка + " | "; ИначеЕсли Ячейка > -1 И Ячейка < 10 Тогда Строка12 = Строка12 + " " + Ячейка + " | "; КонецЕсли; КонецЦикла; Строка12 = Строка12 + Символы.ПС + "--------------------------------------------" + Символы.ПС; КонецЦикла; Поле11 = Строка11; Поле12 = Строка12; // Задача 2 Массив21 = Новый Массив(5, 5); Массив22 = Новый Массив(5); ГСЧ = Новый ГенераторСлучайныхЧисел(); Для Строка = 0 по 4 Цикл СрАрф = 0; Для Ячейка = 0 по 4 Цикл Массив21[Строка][Ячейка] = Число(ГСЧ.СлучайноеЧисло(1, 70)- 70/2); СрАрф = СрАрф + Массив21[Строка][Ячейка]; Конеццикла; Массив22[Строка] = СрАрф/5; КонецЦикла; Строка21 = ""; Строка22 = ""; Для каждого Строка из Массив21 Цикл Для каждого Ячейка из Строка Цикл Если Ячейка < -9 Тогда Строка21 = Строка21 + Ячейка + " | "; ИначеЕсли Ячейка < 0 ИЛИ Ячейка > 9 Тогда Строка21 = Строка21 + " " + Ячейка + " | "; ИначеЕсли Ячейка > -1 И Ячейка < 10 Тогда Строка21 = Строка21 + " " + Ячейка + " | "; КонецЕсли; КонецЦикла; Строка21 = Строка21 + Символы.ПС + "--------------------------------------------" + Символы.ПС; КонецЦикла; Для каждого элм из Массив22 Цикл Строка22 = Строка22 + элм + " "; КонецЦикла; Поле21 = Строка21; Поле22 = Строка22; КонецПроцедуры Процедура УсловияНажатие(Элемент) Сообщить("Задача 1. Напишите программу формирования массива размером 5х5 с помощью датчика случайных чисел."); Сообщить("Замените в нем нечетные значения элементов на минимальное значение элементов последней строки."); Сообщить("Выведите на экран исходный и измененный массивы."); Сообщить(" "); Сообщить("Задача 2. Составьте программу для формирования одномерного массива, состоящего из средних"); Сообщить("арифметических значений элементов каждого столбца, двумерного массива, заданного с"); Сообщить("помощью датчика случайных чисел."); КонецПроцедуры |