М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
димасик138
димасик138
21.11.2022 04:52 •  Информатика

Создать базу данных для хранения следующей информации: • код груза, • номер вагона, • стоимость перевозки, • дата отгрузки, • дата возврата вагона. запросы: • получить список номеров вагонов, использовавшихся в первом полугодии года. • найти среднюю стоимость перевозки по каждому из встречающихся кодов грузов. • найти сроки использования каждого из вагонов в январе текущего года. • определить общую стоимость перевозок за указанный период. !

👇
Ответ:
Базу не дает добавить

1.
SELECT Перевозки.ДатаОтгрузки, Перевозки.НомерВагона, Перевозки.КодГруза, Перевозки.Стоимость, Перевозки.ДатаВозвратаВагона
FROM Перевозки
WHERE (((Month([ДатаОтгрузки]))>=1 And (Month([ДатаОтгрузки]))<7) AND ((Year([ДатаОтгрузки]))=Year(Date())-1))
ORDER BY Перевозки.ДатаОтгрузки, Перевозки.НомерВагона;

2.
SELECT DISTINCTROW НаименованиеГруза.Наименование, Avg(Перевозки.Стоимость) AS [Avg-Стоимость], Year([Перевозки]![ДатаОтгрузки]) AS [Год отгрузки]
FROM НаименованиеГруза INNER JOIN Перевозки ON НаименованиеГруза.Код = Перевозки.КодГруза
GROUP BY НаименованиеГруза.Наименование, Year([Перевозки]![ДатаОтгрузки]), Перевозки.КодГруза;

3. не знаю как срок считать

4.
SELECT DISTINCTROW Sum(Перевозки.Стоимость) AS [ОбщаяСтоимость перевозок за период]
FROM Перевозки
HAVING (((Перевозки.ДатаОтгрузки) Between [:d1] And [:d2]));

Создать базу данных для хранения следующей информации: • код груза, • номер вагона, • стоимость пере
Создать базу данных для хранения следующей информации: • код груза, • номер вагона, • стоимость пере
Создать базу данных для хранения следующей информации: • код груза, • номер вагона, • стоимость пере
Создать базу данных для хранения следующей информации: • код груза, • номер вагона, • стоимость пере
4,4(5 оценок)
Открыть все ответы
Ответ:
МарысяДэн
МарысяДэн
21.11.2022
Var a,b,sek_m,sek_l:integer;
begin
writeln('на каком этаже живёт Миша?');
readln(a);
writeln('на каком этаже находится лифт?');
readln(b);
writeln('за сколько секунд Миша поднимается на этаж?');
readln(sek_m);
writeln('за сколько секунд лифт поднимается на этаж?');
readln(sek_l);
sek_m:=sek_m*a-sek_m;
writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.');
sek_l:=(sek_l*b+sek_l*a)-sek_l;
writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.');
if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени')
else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому')
else writeln('Мише быстрее подняться на лифте');
end.
4,5(54 оценок)
Ответ:
aismayilova1
aismayilova1
21.11.2022
// PascalABC.NET 3.0, сборка 1128
procedure AllMake(p:array of integer; var avg:real);
begin
  avg:=p.Average;
  for var i:=0 to p.Length-1 do
    if p[i]<avg then p[i]*=10
end;

begin
  var n:=ReadInteger('Количество элементов в массиве:');
  var a:=ArrRandom(n,1,50);
  Writeln('Исходный массив'); a.Println;
  var av:real;
  AllMake(a,av);
  Writeln('Среднее арифметическое равно ',av);
  Writeln('Результирующий массив'); a.Println;
  WriteAllText('out.txt',a.JoinIntoString)
end.

Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10

Файл out.txt дан во вложении.
4,4(25 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ