Начертить на бланке домашних заданий или в тетради структуру базы данных "Электропоезда", содержащую сведения, приведенные в таблице. Данные организовать в виде 5 таблиц: "Скорость", "Технические характеристики", "Число мест", "Длина поезда", "Поезда". Каждая таблица должна содержать не менее 4 полей с различными типами данных. Недостающие данные необходимо придумать самим. Начертить каждую таблицу базы данных в режиме аналогичном режиму Конструктора и режиму Редактирования записей.
(фото)
Запишите условия запросов:
а) поезда, количество мест у которых меньше 1100;
б) все поезда, номинальное напряжение которых равно 5 и мощность, которых равна 3540;
в) все поезда, длина которых превышает 300 или меньше 200,5 и их скорость.
В случае, если у вас есть доступ к программному обеспечению, то для выполнения задания можно использовать такие программы: Microsoft Access, Oracle Database, LibreOffice Base. В данном случае на проверку нужно прислать файл базы данных.
var a,b,c,d:real;
c1, c2, z1, z2:real;
begin
write('Введи числитель первой дроби: '); read(a);
write('Введи знаменатель первой дроби: '); read(b);
write('Введи числитель второй дроби: '); read(c);
write('Введи знаменатель второй дроби: '); read(d);
write(a + ' / ' + b + ' + ' + c + ' / ' + d + ' = ');
if(b = d) then begin
c1 := a + c;
write(c1 + ' / ' + b);
End else Begin
z1 := b * d;
c1 := (z1 / b) * a;
c2 := (z1 / d) * c;
z2 := c1 + c2;
write(z2 + ' / ' + z1);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.