Варіант 1 1. Створити базу даних, в якій передбачити збереження в кількох таблицях наступної інформації: код продавця, прізвище продавця, паспортні дані продавця, дата народження продавця, адреса продавця, код покупця, прізвище покупця, паспортні дані покупця, адреса покупця, код продажу, дата продажу, назва товару, кількість, ціна од. товару.
2. За до конструктора таблиць створити структури таблиць. Передбачити поля, що дозволяють встановити зв'язки між таблицями.
3. Використовуючи схему даних зв'язати таблиці між собою з параметром підтримки цілісності даних, каскадним оновленням та каскадним вилученням зв'язаних полів.
4. Створити форми для введення даних. Ввести дані (4-5 записів для довідникових таблиць та 8-10 записів для облікової).
5. За до створеної бази даних розв'язувати наступні задачі:
а) виводити на екран дані про покупців;
б) виводити на екран дані про вказаного продавця;
в) виводити на екран дані про придбаний товар та його вартість;
г) виводити на екран дані про продані т

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

инкндкн

03.03.2023 00:07

Для чего предназначен порт pci для чего предназначен порт usb для чего предназначен порт agp...

sergei19671

02.07.2020 09:15

Составляем прямоугольник ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт у васи есть набор из 4 палочек, они имеют длины a; b; c; d вася хочет составить из...

xato2003

07.05.2020 03:51

Практическая работа №13 «Логические функции и схемы – основы элементной базы компьютера». Цель работы: изучить основные логические элементы, научиться строить логические схемы по...

lerakim735

08.09.2021 20:25

(( для заданных с клавиатуры значений переменных x и n вычислить y = -x + 4x - 9x + - 81 x.. (программирование циклических алгоритмов с заданным числом повторений в pascal abc)...

facss

19.11.2020 13:07

Что не является языком программирования? а) php б) python в) html г) go...

егормицевич

19.11.2020 13:07

Когда был основал facebook? а) 2009 г. б) 2000 г. в) 2004 г. г) 1999 г....

Matimatichka

08.05.2021 05:37

Вычислить 1*2+2*3++n(n+1). паскаль цикл while....

artemnovik506

29.11.2021 07:15

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

bogdanserebria

24.09.2021 09:56

Почему стоит запятая? объясните, . третий же, кажется, ничем не взял, неказист и невиден, лежит целый день на печи....

Nyushata

24.09.2021 09:56

Из каких частей состоит рефлекторная дуга?...

Ответ:

dzeratigieva

10.11.2021 18:15

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.

0,0(0 оценок)

Ответ:

Askmay

28.04.2022 06:23

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня. r_i^2=x_i^2+y_i^2

// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку