6. Длина поля измеряется в байтах d. символах 7. Записями считаются
c. строки
8. Реляционные базы данных имеют
d. связанные таблицы 9. Какое утверждение верно?
d. таблица базы данных состоит из отдельных записей; 10. В каком режиме пользователь может создать произвольную структуру БД?
c. конструктор;
11. Ключевое поле должно быть
c. уникальным
12. Что не относится к числовому типу:
b. 25-23-56
13. Текстовое поле позволяет занести информацию до a. 256 символов 14. Свойство автоматического наращивания имеет поле
c. счетчик
15. База данных содержит информацию об учениках школы: фамилия, класс, за тест, за практическое задание, общее количество . Какого типа должно быть поле «Общее количество балов»?
Program pr3; Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы} B : array [1..100, 1..100] of integer ; C : array [1..100, 1..100] of integer ; m, n, i,j: integer ; {переменные i,j вводятся как индексы массива} Begin randomize; writeln ('Введите размерность матриц m и n (числа <100)'); readln (m, n); For i:=1 to m do For j:=1 to n do begin A[i,j]:=random (20)-10; {ввод элемента матрицы} B[i,j]:=random (20)-10; {ввод элемента матрицы} end; writeln ('Итоговая матрица A: '); For i:=1 to m do begin For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; writeln ('Итоговая матрица B: '); For i:=1 to m do begin For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; For i:=1 to m do {цикл по всем строкам матрицы} For j:=1 to n do {цикл по всем столбцам матрицы} if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j]; writeln ('Итоговая матрица C: '); For i:=1 to m do begin For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; end.
d. символах
7. Записями считаются
c. строки
8. Реляционные базы данных имеют
d. связанные таблицы
9. Какое утверждение верно?
d. таблица базы данных состоит из отдельных записей;
10. В каком режиме пользователь может создать произвольную структуру БД?
c. конструктор;
11. Ключевое поле должно быть
c. уникальным
12. Что не относится к числовому типу:
b. 25-23-56
13. Текстовое поле позволяет занести информацию до
a. 256 символов
14. Свойство автоматического наращивания имеет поле
c. счетчик
15. База данных содержит информацию об учениках школы: фамилия, класс, за тест, за
практическое задание, общее количество . Какого типа должно быть поле «Общее
количество балов»?
c. числовое
Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы}
B : array [1..100, 1..100] of integer ;
C : array [1..100, 1..100] of integer ;
m, n, i,j: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
writeln ('Введите размерность матриц m и n (числа <100)');
readln (m, n);
For i:=1 to m do
For j:=1 to n do
begin
A[i,j]:=random (20)-10; {ввод элемента матрицы}
B[i,j]:=random (20)-10; {ввод элемента матрицы}
end;
writeln ('Итоговая матрица A: ');
For i:=1 to m do
begin
For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
writeln ('Итоговая матрица B: ');
For i:=1 to m do
begin
For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
For i:=1 to m do {цикл по всем строкам матрицы}
For j:=1 to n do {цикл по всем столбцам матрицы}
if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j];
writeln ('Итоговая матрица C: ');
For i:=1 to m do
begin
For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
end.