Lenaaaa111
30.08.2022 03:37

Работа с базами данных

Разработать в среде MS Access структуру базы данных. Варианты тем взять из предложенного ниже перечня в соответствии с номером в списке группы (в журнале).

5. Учет авиапассажиров.

Авиапассажиры: код авиапредприятия, код города назначения, код страны города назначения, номер рейса, дата вылета, фамилия, адрес.

Справочники: авиапредприятия (код, наименование, адрес, телефон), города (код и наименование, код области), страны (код и наименование), области (код и наименование).

Отчет по странам и городам с итогами (число авиапассажиров) по странам и городам.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
cksenia112
27.06.2021 07:27

Вкладка Ссылки содержит шесть групп команд: Оглавление, Сноски, Ссылки и списки литературы, Названия, Предметный указатель, Таблица ссылок. Указанные группы команд позволяют подготовить к изданию брошюру, дипломный проект, диссертацию или учебное пособие в соответствии с требованиями, предъявляемыми к печатной продукции.

Оглавление

Оглавление – это список заголовков разделов, подразделов с указанием номеров страниц. В редакторе Word вставка оглавления предельно упрощена. Для вставки оглавления выполните следующее:

• Напишите заголовки и подзаголовки к тексту документа и оформите их с стилей заголовков группы Стиливкладки Главная ленты. Заголовок первого уровня должен быть самым крупным. Заголовки следующих уровней имеют меньшую высоту шрифта. Редактор позволяет создавать до 9 уровней заголовков;

• Укажите место вставки списка;

• Введите команду Оглавление на вкладке Ссылки. Откроется список стандартных вариантов оформления оглавления. Если эти варианты не устраивают, то щелкните по кнопке Оглавление в конце списка. В этом случае открывается окно диалога для выбора другого формата и числа уровней оглавления.

Объяснение:

0,0(0 оценок)
Ответ:
Kassandriala
25.04.2022 12:39

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота