Начертить на бланке домашних заданий или в тетради структуру базы данных "Электропоезда", содержащую сведения, приведенные в таблице. Данные организовать в виде 5 таблиц: "Скорость", "Технические характеристики", "Число мест", "Длина поезда", "Поезда". Каждая таблица должна содержать не менее 4 полей с различными типами данных. Недостающие данные необходимо придумать самим. Начертить каждую таблицу базы данных в режиме аналогичном режиму Конструктора и режиму Редактирования записей.

(фото)

Запишите условия запросов:

а) поезда, количество мест у которых меньше 1100;

б) все поезда, номинальное напряжение которых равно 5 и мощность, которых равна 3540;

в) все поезда, длина которых превышает 300 или меньше 200,5 и их скорость.

В случае, если у вас есть доступ к программному обеспечению, то для выполнения задания можно использовать такие программы: Microsoft Access, Oracle Database, LibreOffice Base. В данном случае на проверку нужно прислать файл базы данных.

Var x:Array[1..3] of integer;// координаты точекy:Array[1..3]of integer;// координаты точекs:Array[1..3]of real; // расстояние между точками b:Array[1..3]of real; // длина бессектрисы   p: real;  beginfor var i:= 1 to 3 dobegin  write('Введите координаты ', i ,' точки');  readln(x[i], y[i]);  end;  writeln('Начало расчетов');  for var i:= 1 to 3 dobegin
if (i < 3) then begin  s[i] := sqrt((x[i]-x[i+1])* (x[i]-x[i+1]) + (y[i]-y[i+1])* (y[i]-y[i+1]));  p := p + s[i];  end  else begin  s[i] := sqrt((x[i]-x[1])* (x[i]-x[1]) + (y[i]-y[1])* (y[i]-y[1]));  p := p + s[i];  end;
  writeln('Расстояние между ', i ,' и ', i+1,' точками    = ', s[i]);  end;    p := p /2;  writeln('полупериметр = ', p);    for var i:= 1 to 3 do  beginif (i = 1) then   b[i] := 2* sqrt(s[1]*s[2]*p * (p - s[3]))/(s[1]+s[2]);if (i = 2) then   b[i] := 2* sqrt(s[2]*s[3]*p *(p - s[1]))/(s[2]+s[3]);if (i = 3) then   b[i] := 2* sqrt(s[3]*s[1]*p *(p - s[2]))/(s[3]+s[1]);   writeln('Длина ', i, ' бессиктрисы ', b[i]); end;end.//определяющую по координатам трёх точек длины биссектрис треугольника,//если таковой существует. (PascalABC)

Пока N > 0

S := S + N mod 10

N := N div 10

N mod 10 - это последняя цифра числа N,

N div 10 - это результат отбрасывания последней цифры из N,

т.е. в результате S будет содержать сумму цифр N

Сама же программа считает сумму цифр числа S, затем сумму цифр получившегося числа, и т.д., пока не получится одна цифра.

Кажется, такую цифру называют "цифровым корнем" числа, но на самом деле в десятичной системе счисления это просто остаток от деления на 9.

(поскольку (10*a + b) mod 9 = (9*a + a + b) mod 9 = (a+b) mod 9)

Для вывода 0 и 7 на вход надо подать число S = 7

Для вывода 1 и 7 на вход нужно подать число >= 10 с суммой цифр = 7, минимальным таким числом является 16.

Для вывода 2 и 7 на вход нужно подать такое число, что если сумму его цифр передать на вход, будет выведено 1 и 7. Т.е. сумма цифр будет по крайней мере не меньше 16, значит само число не меньше 79 (это наименьшее число, сумма цифр которых >= 16).

Для вывода 3 и 7 нужно подать число, сумма цифр которого при передаче на вход дас результат 2 и 7, т.е. сумма цифр не меньше 79, тогда само число не меньше 799999999 (наименьшее число с суммой цифр >= 79).

Получаем, что число S = 799999999 дает требуемый вывод, и не существует чисел меньше, которые бы тоже давали такой результат (показано ранее + можно дополнительно проверить программно, перебирая всевозможные S, занимает несколько минут).