35 ! начертить на бланке или в тетради структуру базы данных «электропоезда», содержащую сведения, в таблице. данные организовать в виде 5 таблиц: «скорость», «технические характеристики», «число мест», «длина поезда», «поезда». каждая таблица должна содержать не менее 4-х полей с различными типами данных. недостающие данные необходимо придумать самим. начертить каждую таблицу базы данных в режиме аналогичном режиму конструктора и режиму редактирования записей.

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

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

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

в) все поезда, длина которых превышает 250 или меньше 200,5 и их скорость. для выполнения можно использовать такие программы: microsoft access, oracle database, libreoffice base.

1. Занести в пару смежных ячеек, например, по вертикали, начальное значение аргумента (х) и следующее за ним (т.е. нчальное плюс шаг).
2. Выделить обе этих ячейки и мышью за правый нижний угол перетазить выделение вниз на нужное число ячеек так, чтобы в последней из ячеек появилось конечное значение аргумента х.
3. Пусть (для определенности) начальное значение у нас находится в ячейке А1. Тогда становимся в ячейку В1 и там пишем формулу =(A1^3-A1)*(A1^2+5)
4. После нажатия Enter в В1 должно появиться значение функции, вычисленное для аргумента А1.
5. Становимся мышью в правый нижний угол ячейки В1 и перетаскиваем курсор вниз, размножая формулу до строки с последним значением аргумента. Во всех ячейках колонки В появятся вычисленные значения.
6. Выделяем мышкой область от А1 до Вхх - последней строки, содержащий значения функции.
6. Щелкаем иконку мастера графиков. Выбираем нужный вид графика, а дальше идем по шагам мастера, там все понятно написано. не забываем только отметить, что данные у нас в столбцах, столбец А надо взять для значений оси Х, а график строить по данным из колонки В.
7. Любуемся построенным графиком.

Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.