New

ТЕСТ 1

ТЕСТ 2

1. Создайте базу данных, состоящую из двух таблиц:

2. Создать связи между таблицами.
3. Создайте форму на основе таблицы «Монеты».  В форму включите поля: название, страна, масса (г). 
4. Найти:

а) названия тех монет, которые изготовлены из золота;

б) те монеты, название которых начинается на букву Т и страна происхождения которых начинается на букву Ч.

в) названия и страну происхождения монет с массой, кроме 0,1 г и 4 г.

5. Создать отчет, в который включить из таблицы Монеты следующие поля: Название, Страна, Материал; из таблицы Происхождение - поле Столица. Выполнить группировку по Материалу, а внутри нее сортировку - по Названию.
6. Разместите на форме любое графическое изображение, оформите фон формы любым цветом.
7. Сохраните файл базы данных на рабочем столе (создайте папку КР10_Ваша фамилия).

ССЫЛКА НА ТЕСТ

Создайте таблицу "Резиденты ПВТ" базы данных Резиденты ПВТ.

Примечание: логотипы можно взять на сайте https://park.by/residents/ или скачать с помощью любой поисковой системы.

1. Создайте форму "Резиденты ПВТ"

2. Создайте отчет "Резиденты ПВТ", который будет содержать в себе все поля, кроме поля ЛОГОТИП.

3.  а) Создайте запрос, который выведет на экран только тех резидентов, которые были основаны до 2000-х годов.

      б) Создайте запрос, который выведет на экран только те компании, которые имеют городской номер телефона, а не одного из сотовых операторов, действующих на территории Беларуси.

      в) Создайте запрос, который выведет на экран только те компании, в виде деятельности которых указана аббревиатура ПО.

СОХРАНИЕ 3 ОТДЕЛЬНЫХ ЗАПРОСА

1. Создайте таблицу Teachers в базе данных Учителя со следующими полями:

• Код
• Фамилия
• Имя
• Отчество
• Дата рождения
• Должность
• Дисциплина
• Телефон
• Зарплата

2. Заполните таблицу согласно образцу (вносим по порядку, от 1 до 7)

3. откройте ФАЙЛ и выполните поэтапно указанные пункты.

Ссылка на базу данных Сеансы

Задание 1. По данным таблицы Победители Евровидения базы данных Евровидение с помощью Конструктора создайте и сохраните запрос, по которому будут представлены сведения о французских певцах - победителях конкурса "Евровидение".

Пройти тест по теме "Создание форм базы данных"

ссылка на базы данных

КАРТИНКА ДЛЯ ВСТАВКИ В ФОРМУ

↓

1. Создайте базу данных Озера Беларуси.

2. В режиме Конструктор задайте структуру таблицы

Внесите данные в таблицу как указано на рисунке

3. Создайте форму Озёра Беларуси с навигационными кнопками и кнопкой "Добавить запись". Добавьте несколько озёр Беларуси с помощью форму. 

Проверьте, отобразились ли новые данные в таблице

Ссылка на презентацию по теме

Создание базы данных ШКОЛА

Создайте базу данных «Аренда автомобилей.accdb». Выполните перечисленные задания.

1. Создайте таблицу «Автомобили» в режиме Конструктор. Запишите в тетрадь список полей с указанием типа данных для каждого поля. Для числовых полей запишите формат представления.
2. В режиме таблицы добавьте в таблицу «Автомобили» записи, как показано на рисунке:

Для добавления в запись таблицы файла с изображением автомобиля выполните двойной щелчок в поле с типом данных Вложение и в диалоговом окне нажмите Добавить…

Выберите соответствующий файл с изображением.

3. Создайте таблицу «Арендаторы».

Используйте файл «Арендаторы.xlsx» для импортирования данных. Ключ — поле «Код».

4. Создайте таблицу «Аренда».

Конструктор	Режим таблицы

5. Отсортируйте записи в таблице «Автомобили» по возрастанию стоимости.

5. Установите связи вида Один ко многим между таблицами базы данных «Аренда автомобилей.accdb». Обеспечьте целостность связей.

Ссылка на тест "Хранение и обработка данных в БД"

Ссылка на презентацию "Создание таблиц базы данных"

Ссылка на задание

Ссылка на презентацию

Выполните, используя пример следующие задачи:

1. Задан одномерный массив целых чисел. Поменять местами максимальный и минимальный элементы массива (минимальный и максимальный элементы встречаются в массиве только один раз).

Поиск максимального элемента

var a: array[1..20] of integer;
   n, max: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементы массиваꞌ);
for var i := 1 to n do
   read(a[i]);
max := a[1];
for var i := 2 to n do
   if a[i] > max then
   max := a[i];
writeln(ꞌМаксимум = ꞌ, max);
end.

var a: array[1..20] of integer;
n, max, n_max: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементымассиваꞌ);
for var i := 1 to n do
   read(a[i]);
max := a[1]; n_max := 1;
for var i := 2 to n do
   if a[i] > max then
   begin
   max := a[i]; n_max :=i;
   end;
writeln(ꞌМаксимум = ꞌ, max);
writeln(ꞌЕго местоꞌ, n_max);
end.

Поиск минимального элемента

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

n, n_min: integer;

begin

write('количество n=');

readln(n);

writeln('элементы массива');

for var i := 1 to n do

   read(a[i]);  

n_min := 1;

for var i := 2 to n do

   if a[i] < a[n_min] then

     n_min :=i;  

writeln('минимум= ', a[n_min]);

writeln('его место ', n_min);

end.