Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. алгоритм не должен изменяться при изменении размеров матрицы
dim matt() as integer dim x,y as integer x=5 y=5 redim matt(x,y) randomize for a as integer = 0 to x for b as integer = 0 to y matt(x,y)= (rnd()*88)+11 next next
dim i,z as integer do matt(i,z)=0 i+=1 z+=1 loop until (i=x and z=y)
Using System; namespace ConsoleApp1 { class Program { static void Main(string[] args) { Random r = new Random(); int[] a = new int[50]; int k = 0; for(int i = 0;i<50;i++) { a[i] = r.Next(1001); Console.WriteLine("a[" + i + "] =" + a[i]); } for (int i = 0; i < 49; i++) { if (a[i]+a[i+1] <= 217) { k++; } } Console.WriteLine("Кол-во пар :" + k); Console.ReadKey(); } } }
Подставим значения в условия и построим логическое выражение: ( 10 < 12 ) ∧ ( 12 < 30 ) ∧ ( 30 mod 12 = 0 ) Если условие выполняется, пишем 1(true), если нет - 0(false): (1 ∧ 1 ∧ 0) = 0
Второй параметр BoolToStr, отвечает за то, в каком виде будет выведено значение логической переменной. Если второй параметр BoolToStr выбран как False, значит в Edit1.Text будет выведено его значение в численном виде, т.е. 0. Если бы строка была записана как Edit1.Text := BoolToStr(A,True); то в Edit1.Text было бы выведено значение переменной A в текстовом виде, т.е. False.
dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next
dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)