В тетради создать структуру БД "Книги", содержащую сведения, приведенные лице, Данные организовать в виде 3 таблиц. В каждой таблице предусмотреть поле "Код" (тип данных счетчик"), по которому осушествить связь между таблицами. Каждая таблица должна содержать не менее 4 полей с различными типами данных. Данные по таблица распределить таким образом, чтобы при создании запросов данные брались из разных таблиц. Недостающие данные необходимо придумать самим. Начертить таблицы в режиме аналогичном режиму "Конструктора" и рому "Редактирования". Показать схему данных созданной базы данных. Язык Цена Код книги Автор Название книги Кол-во страниц Жанр А. Дома 589 Роман 125 009 Королева Марго Русский 336 Детектив 25 Глупая история E. Данченко Французский 375 3.л. Войти Классика 544 073 Русский Озод 316 240 М. Синицкий Детектив 225 514 Шуники Русский Ф.Саган Роман 655 074 Французский 615 Прощай, печаль A Дома Роман 424 103 Сорок пять Французский 475 Английский 265 105 Черное солнце ДЛокард Фантастика 494 Английский 101 419 Разбойный эскадрон М. Стеклол Фантастика 576 Осень Роман 195 В. Левиц 270 Французский 18, 60 400 Амило Научная литература 129 380 Русский Программирование Запишите условия для следующих запросов: а) произведения Эл. Войнич; 6) романы, написанные на француском языке; 3)книги с количество страниц более 400 и стоимостью менее 400. Покажите, как выглядит условия запросов и как будут выглядеть результаты выполнения запросов.
Ответы
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!
А еще это можно решить, к примеру, так:
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
А еще это можно решить, к примеру, так:
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вычислить y = x3 4x2 sin 2x при заданном знсчении x
Автор: Tatyana Anton1475
Найти максимальный элемент массива на языке делфи
Автор: AnnaChulyukanova3
1.
import random
a = random.randint(1,15)
b = random.randint(1,15)
if a == b:
a = 0
b = 0
print(a,b)
2.
import random
n = random.randint(1,999)
a = ""
b = ""
n = str(n)
if len(n) == 1:
a = "однозначное"
elif len(n) == 2:
a = "двухзначное"
elif len(n) == 3:
a = "трёхзначное"
n = int(n)
if n % 2 == 0:
b = "чётное"
else:
b = "нечётное"
print(a + " " + b + " число")
3.
n = int(input("Введите номер дня недели: "))
if n == 1:
print("Понедельник")
elif n == 2:
print("Вторник")
elif n == 3:
print("Среда")
elif n == 4:
print("Четверг")
elif n == 5:
print("Пятница")
elif n == 6:
print("Суббота")
elif n == 7:
print("Воскресенье")
else:
print("Такого дня недели нет")