program array_k;
var k, n: integer;
var a: array[1..15, 1..15] of integer;
begin
writeln('Задайте порядок матрицы n (0 < n < 15)');
readln(n);
writeln('Задайте число k (0 < k < n)');
readln(k);
for m: integer := 1 to n do
begin
writeln;
for o: integer :=1 to n do
begin
a[m, o] := random(30) + 1;
//+1 - чтобы избежать деления на ноль
write(a[m, o] : 5, ' ')
end
end;
writeln;
for m: integer := 1 to n do
begin
writeln;
for o: integer := 1 to n do
if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')
else write(a[m, o] : 5, ' ');
end
end.
Объяснение:
В присоединенных файлах пример базы данных, а также пример данных из нее, полученных при запроса, построенного по нескольким связанным таблицам. Картинка, на которой показан конструктор запросов. В задании требуется создать несколько, но все они строятся аналогично. Главное - достать данные из Вашей базы данных.
Для того, чтобы это все заработало с Вашими данными, в файле Excel
нужно выполнить выбор данных из Вашего источника данных, путем создания запроса. Для этого выполняются такие шаги:
• Выбор источника данных для соединения с базой данных;
• Создание запроса с использованием мастера запросов или с использованием конструктора запроса;
• Передача данных в Excel, где их можно отформатировать, создать сводную таблицу и диаграмму.
Добраться до запроса в моей версии Excel (в другой версии - другие кнопочки, но по названию можно догадаться:
1) На вкладке Данные - Получить внешние данные.
2) Для простого переноса таблиц - Ассеss.
3) Для запроса - Из других источников данных, затем выбрать из Microsoft Query.
Примечание. Базу данных Access не удалось подгрузить (неразрешенный формат), поэтому в файле Таблицы_из_БД - копия таблиц для того, чтобы было понятно, как создается запрос на первой картинке. Такой файл Вам не нужно создавать, а сразу доставать данные из файла Ассеss.
