Тестовые задания: 1.1. Что означает SQL? A.Стандартный язык запросов для работы с реляционными базами данных. B.Программа. C.Алгоритмический язык для работы с базой данных.
1.2. Что такое QBE? A.Диалоговое окно базы данных. B.Язык программирования. C.Графическая версия языка SQL, бланк запроса по образцу.
1.3. Что является результатом выполнения запроса SELECT КодКлинта, КодЗаказа FROM Клиенты; A.Набор данных B.Таблица с двумя столбцами. C.Таблица с двумя столбцами КодКлинта и КодЗаказа, выбранными из исходной таблицы Клиенты.
1.4. Что является результатом выполнения запроса SELECT * FROM Заказы WHERE Город = ”Владикавказ” A.Таблица, в которой выбраны все столбцы исходной таблицы Заказы и те строки в которых поле Город имеет значение Владикавказ. B.Таблица из одного столбца C.Таблица, в которой имеются только те строки, поле Город в которых имеет значение Владикавказ.
1.5 Что является результатом выполнения запроса SELECT КодКлинта, КодЗаказа FROM Заказы WHERE Город = ”Владикавказ” AND Стоимость >= 1000 A.Таблица, в которой выбраны два столбца исходной таблицы Заказы и те строки в которых поле Город имеет значение Владикавказ. B.Таблица из 2-х столбцов КодКлинта и КодЗаказа, в которой отражены заказы стоимостью не менее 1000, рамещенные клиентами из Москвы. C.Таблица, в которой имеются только те строки, поле Город в которых имеет значение Владикавказ.

1.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    max := a[1][1];
    for i := 2 to 4 do
        if max < a[i][i] then max := a[i][i];
    writeln(max);
End.

2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
    for i := 1 to 5 do
        begin
        for j := 1 to 5 do
            read(a[i][j]);
        readln;
        end;
    readln(m);
    sum := 0;
    for i := 1 to 5 do
        if (m - i > 0) and (m - i < 6) then
            sum := sum + a[i][m - i];
    writeln(sum);
End.

3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    max := a[1][N];
    for i := 2 to N do
        if (max < a[i][N + 1 - i]) then
            max := a[i][N + 1 - i];
    writeln(max);
End.

4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    sum := 0;
    count := 0;
    for i := 1 to N do
        if (a[5][i] mod 2 = 1) then
            begin
                sum := sum + a[5][i];
                inc(count);
            end;
    sum := sum / count;
    writeln(sum);
End.

5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    upper_sum := 0;
    lower_sum := 0;
    for i := 1 to 4 do
        begin
        for j := i + 1 to 4 do
            upper_sum := upper_sum + a[i][j];
        for j := 1 to i - 1 do
            lower_sum := lower_sum + a[i][j];
        end;
    writeln(upper_sum);
    writeln(lower_sum);
End.

1.цифровые датчики, генерирующие последовательность импульсов или двоичное слово; - бинарные датчики, которые вырабатывают сигнал только двух уровней: "включено/выключено"

2.Гироскопический датчик выполнить гораздо более точные движения.Задача состоит в том, чтобы запрограммировать своего робота на выполнение поворота на месте на точный угол, используя гироскопический датчик.

3.Гироскопический датчик предназначен для измерения угла вращения робота или скорости вращения. ... Поэтому важно правильно установить датчик на робота