Elka6677
20.03.2020 13:12

:( 2 вариант. Проектирование базы данных

Разработайте структуру базы данных "Библиотека" для хранения необходимой информации.

База данных должна хранить следующую информацию:

1. Фамилия, Имя, Отчество читателя.

2. Домашний адрес читателя.

3. Телефон читателя.

4. Дата рождения читателя.

5. Номер читательского билета.

6. Автор книги, которую взял читатель.

7. Название книги, жанр, год издания и издательство.

8. Цена книги.

9. Дата выдачи книги.

10. Дата возврата книги плановая и фактическая.

Технология работы

1. Создайте таблицы таким образом, чтобы записи в каждой таблице описывали объекты одного и того же типа.

2. Создайте связи между таблицами.

3. Наполните базу данных информацией о 5 читателях, 10 книгах. Предусмотрите, чтобы каждый читатель брал не менее 2 книг.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tcacencoanastap08j8v
17.02.2022 19:48
Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0,  Е  = 1, У = 2. Тогда получим:
1) 000000, (0)
2) 000001, (1)
3) 000002, (2)
4) 000010, (3)
...
301) ... (300)
а это получаются числа записанные в троичной системе счисления.
На 301 месте будет стоять число равное в десятичной системе 300
Переведем число 300 из десятичной системы в троичную, получим:
300 : 3 = 100 - остаток 0
100 : 3 = 33 - остаток 1
33 : 3 = 11 - остаток 0
11 : 3 = 3 - остаток 2
3 : 3 = 1 - остаток 0
1 : 3 = 0 - остаток 1
т.е. получаем число 102010 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.
0,0(0 оценок)
Ответ:
Максим555111
13.04.2022 19:32

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Примерно это должно выглядеть так:

procedure OnKeyPress(key: integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;

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