Презентация на тему «Обработка двумерной информации» по дисциплине Основы программирования


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Программная реализация матриц ЗадачаДана квадратная матрица размером nxn. Элементы матрицы вводятся вручную. Вычислить количество строк с чётным элементом на главной диагонали.Вычислить количество столбцов, сумма элементов которых больше 53.Преобразовать матрицу по условию: каждый нечётный элемент чётного столбца удвоить, а нечётный элемент нечётного столбца обнулить. Интерфейс Создание массиваn:=StrToInt(InputBox('Ввод данных','Введите размерность матрицы','0')); SetLength(a,n,n); Размерность таблицStringGrid1.RowCount:=n+1; StringGrid1.ColCount:=n+1; StringGrid2.RowCount:=n+1; StringGrid2.ColCount:=n+1; Ввод данных массива for I := Low(a) to High(a) do for j := Low(a) to High(a) do a[i,j]:=StrToInt(InputBox('Ввод данных','Введите '+inttostr(i+1)+' строки и '+inttostr(j+1)+' столбца',‘0')); Вывод элементов массиваfor I := Low(a) to High(a) do for j := Low(a) to High(a) do StringGrid1.Cells[j+1,i+1]:= IntToStr(a[i,j]); Признак главной диагоналиi=j
Чётность элементаa[i,j] mod 2 = 0
Вычисление количества строкk1:=0; Label4.Caption:=''; for I := Low(a) to High(a) do for j := Low(a) to High(a) do if ((i=j) and (a[i,j] mod 2 = 0)) then k1:=k1+1; Label4.Caption:=inttostr(k1); Сумма элементов столбцовЦикл по j от 1 до ns:=0Цикл по i от 1 до nS:=s+a[i,j] Сумма больше 53Label6.Caption:=''; for j := Low(a) to High(a) do begin s:=0; for i := Low(a) to High(a) do s:=s+a[i,j]; if s>53 then k2:=k2+1; end; Label6.Caption:=inttostr(k2); Преобразование матрицыfor I := Low(a) to High(a) do for j := Low(a) to High(a) do begin if ((a[i,j] mod 2 <>0) and ((j+1) mod 2 = 0)) then a[i,j]:=a[i,j]*2; if ((a[i,j] mod 2 <>0) and ((j+1) mod 2 <> 0)) then a[i,j]:=0; end; Вывод элементов массиваfor I := Low(a) to High(a) do for j := Low(a) to High(a) do StringGrid2.Cells[j+1,i+1]:= IntToStr(a[i,j]); Пример тестирования

Приложенные файлы

  • pptx matrisa
    Размер файла: 156 kB Загрузок: 1