3 года назад

Продумайте состав, типы полей и ключ однотабличной базы данных: а) ТУРАГЕНТСТВО; б) ВИДЕОТЕКА; в) АВТОСАЛОН; г) РЕГИОНЫ РФ.

1 ответ:

Tedosi3 года назад

0 0

ТУРАГЕНТСТВО
id - integer (счетчик, ключ)
название тура - varchar
список стран - varchar
стоимость - float

ВИДЕОТЕКА
id - integer (счетчик, ключ)
название фильма - varchar
оргинальное название - varchar
год выпуска - integer
стоимость - float

АВТОСАЛОН
id - integer (счетчик, ключ)
марка машины - varchar
производитель - varchar
цвет - varchar
год выпуска - integer
стоимость - float

РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar

Читайте также

Які бувають висловлювання? Навести приклад

baze [50]

Простi та складнi.
Просте - на вулицi йде снiг
Складне - якщо на вулицi йде снiг, то на вулицi холодно

0 0

3 года назад

Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0,S:String; C:char; begin Writeln('Введите строкy S

Tauren [14]

Var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);

//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;

Writeln('Ответ:', otvet);
<span>end.</span>

0 0

4 года назад

Кто управлял стариком хоттабычем

Sovushka-n [44]

Алладин

это ответ правильный

0 0

4 года назад

Сравнительные преимущества и недостатки магнитных и оптических носителей

LANALANA [14]

Недостатки магнитных:
• Меньший объём
• Быстрее износятся
Недостатки оптических:
• Можно "залапать" диск
• Для записи новой информации необходимо (в большинстве случаев) удалить старую.

0 0

4 года назад

Напишите программу, в которой вводятся два числа a и b. Затем первое число уменьшается в 2 раза, а второе увеличивается на 30. В

Игорь Степкин [250]

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('a = ', ReadReal('a =')/2,' b = ' , ReadReal('b =')+30 )
end.

0 0

1 год назад

Прочитать ещё 2 ответа