На моем любимом бейсике Dim A() As Integer, i As Integer, k As Integer, N As Integer Randomize Print "N = "; : Input N ReDim A(N, N) For i = 1 To N For k = 1 To N A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10 Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i Print : Print ' Опускаемся на 2 строки For i = 1 To N For k = 1 To N If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область Rem У области выше главной диагонали номер столбца больше строки Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i End
Дискеты формата 3,5" может иметь разную ёмкость Но возьмём стандартную 1440 КБайт = 1 474 560 Байт Так как на носителе надо отталкиваться не только от объёма но и от размера кластера, то получается -> на такой дискете имеется 2880 кластеров из которых доступно 2847, объём одного кластера Байт. Следует что в первых двух случаях а) и б) будет одинаковое кол-во файлов так как не превышает минимального объёма кластера, получаем 2847 файлов которое равняется кол-ву доступных кластеров на дискете. Вариант в) получаем т.е. больше двух кластеров. Для хранения одного файла размеров 1030 требуется 3 кластера -> файлов.
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
End
Но возьмём стандартную 1440 КБайт = 1 474 560 Байт
Так как на носителе надо отталкиваться не только от объёма но и от размера кластера, то получается -> на такой дискете имеется 2880 кластеров из которых доступно 2847, объём одного кластера
P.S. Думаю достаточно подробно описал.