ГДЗ Информатика 9 класс. Учебник [Бондаренко А.А., Ластовецкий В.В.] 2017
15.02.2019,
9 Клас / Інформатика,
4 041,
0
§ 39. Обработка двумерных массивов данных (Страница 217)
Вопросы для самопроверки
1. Запишите оператор для вычисления суммы элементов первой строки массива Mas [1..5, 1..5].var Tabl: array [1..5, 1..5] of Integer; i, j, Sum: Integer; begin Sum: = 0;
For j = 1 to 5 do
Sum = Sum + Tabl [1, j]; // добавление элементов первой строки Editl.Text = IntToStr (Sum)
end;
2. Запишите оператор для вычисления суммы элементов главной диагонали массива Mas [1..5, 1..5].
var Tabl: array [1..5, 1..5] of Integer; i, j, Sum: Integer;
begin
Sum: = 0;
For i: = 1 to 4 do
Sum = Sum + Tabl [i, i]; // добавление элементов с одинаковыми индексами
Editl.Text = IntToStr (Sum)
end;
3. Запишите фрагмент программного кода для замены нулями парных элементов массива Mas [1..5, 1..5].
var a: array [1..5] of real;
i, n: integer; p: real;
begin
clrscr;
write ('Введите количество элементов массива');
readln (n); {Введение n}
writeln ('Введите значения элементов массива:');
for i: = 1 to n do
begin
write ( 'a [', i, '] =');
readln (a [I])
end;
p: = 1; i = 2;
while i <= n do
begin
p = p * a [I]; i = i + 2;
end;
writeln ( 'Произведение элементов таблицы с четными индексами равна', р: 0);
readln;
end.
4. Найдите максимальный элемент второго столбца массива A [1..4, 1..5].
// поиск позиции (индекса), содержащий максимальное значение
float A [1..4, 1..5];
float max; // переменная, содержащая максимум
int index; // позиция элемента, содержащего максимальное значение
int i; // вспомогательная переменная
// ввод массива
// поиск максимума
// установить максимум как 1-й элемент массива
index = 0;
max = A [1..4, 1..5];
for (i = 1; i <5; i ++)
if (max <A [i])
{
max = A [i]; // запомнить максимум
index = i; // запомнить позицию максимального элемента
}
5. Даны целочисленный массив A [1..4, 1..5]. Напишите фрагмент программного кода, который реализует создания одномерного массива В [1..5], элементы которого являются суммами столбцов массива А.
var Tabl: array [1..4, 1..5] of Integer;
B: array [1..5] of Integer; i, j, Max: Integer; begin
For j = 1 to 5 do begin // внешний цикл no столбцах
Max = Tabl [l j];
For i: = 2 to 4 do If Max <Tabl [i, j] Then Max = Tabl [(i, j)];
B (j) = Max;
ListBoxl. Items. Add (IntToStr (B [j])); // вывод B [j] end;
end;
Якщо помітили в тексті помилку, виділіть її та натисніть Ctrl + Enter