Задание 2. Сформировать за в базе данных КНИГИ
Порядок выполнения задания 2:
1. Переименовать базу данных Ваша фамилия 21 формы КНИГИ, созданную на
предыдущем занятии, в базу данных с новым именем Ваша фамилия_практическая
работа № 21_КНИГИ
2. Открыть базу данных КНИГИ.
3. Для формирования за необходимо перейти на ленту СОЗДАНИЕ, с мастера за создать за на основе таблицы по полям
Название, Автор, Жанр. Выполнить за щелчком по кнопке . Сохранить за под именем Данные о книгах.
4. Для формирования за на выборку переходим на ленту Создание, выполняем
команду Конструктор за В бланк за добавляем таблицу ДАННЫЕ О
КНИГАХ. В верхней части бланка за появилось окно с полями таблицы. В нижнюю
часть перемещаем названия полей, необходимых для за двойным щелчком мыши
по названию поля). В строку Условие отбора для необходимых полей вводим значение,
которое является критерием отбора. Например, нижняя часть бланка за для
формирования за Книги Пушкина должна выглядеть следующим образом:
Сохранить за под именем За на выборку Книги Пушкина
Аналогично создать за и сохранить их под соответствующим именем):
Учебная литература с полями Название, Автор, Жанр, Год издания, Количество
страниц;
Книги издательства Питер со всеми полями из таблицы;
Книги, количество страниц в которых больше 300 с полями название, автор, жанр,
издательство, цена, количество страниц (по полю Количество страниц условие отбора
>300);
Художественная и детская литература с полями Название, Автор, Жанр (в поле
ЖАНР каждое условие отбора вводим в отдельную строку в бланке за
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5