Решите практическое ! тема: итоговая практическая работа по бд создать бд «видеотека», содержащую следующие поля: номер диска, название фильма, жанр, продолжительность, страна, дата приобретения. определить первичный ключ. заполнить бд следующими данными: номер кассеты название фильма жанр
фильма ^ длительность фильма страна дата поступления 1 пятый элемент фантастика 125 сша 31.01.2002 2 титаник мелодрама 185 сша 20.02.2004 3 кавказская пленница комедия 100 россия 28.02.2001 4 драйв боевик 115 сша 31.01.2005 5 по прозвищу боевик 85 россия 28.02.2004 6 профессионал боевик 125
франция 25.05.2005 7 игрушка комедия 85 франция 22.04.2006 8 танцор диско мелодрама 130 индия 14.04.2004 9 патруль времени фантастика 102 сша 28.02.2005 10 только сильнейшие боевик 96 сша 30.09.2006 11 ромео и джульетта мелодрама 126 сша 03.04.2004 12 зита и гита мелодрама 185 индия 31.01.2003 13 на
дерибасовской хорошая погода комедия 95 россия 28.02.2005 14 джуниор комедия 90 сша 30.04.2003 15 парк юрского периода фантастика 120 сша 13.02.2004 16 крепкий орешек боевик 120 сша 19.12.2005 17 затерянный мир фантастика 110 сша 26.07.2006 18 американ бой боевик 110 россия 28.02.2005 19 невезучие
комедия 90 франция 11.10.2004 20 танго и кэш боевик 98 сша 28.02.2005 создать запрос, с которого вывести на экран название, жанр и длительность для всех фильмов, произведённых в россии и сша, отсортировав их по ключу «страна (возр.)+название (убыв)». создать запрос для вывода на экран всех фильмов,
поступивших в видеотеку в 2004 и 2005 году. данные отсортировать по дате поступления (по возрастанию). создать запрос, с которого удалить из бд записи о фильмах, продолжительность которых менее 100 минут. определить, сколько записей осталось в таблице.
ОбъяснениеВ языке Паскаль описатель типа integer требует выделить под каждую переменную или элемент массива количество памяти, необходимое для размещения чисел из диапазона , т.е. отвести не менее двух байт, что и выполнялось в ранних системах, таких как Turbo Pascal, созданных во времена дорогой оперативной памяти. В современных разработках может выделяться и большее количество байт, например, в PascalABC.Net под переменную типа integer отводится 4 байта.
Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40.
А для PascalABC.Net ответ должен быть 20, 80
Подробнее - на -
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15