Задание 2. Сформировать за в базе данных КНИГИ
Порядок выполнения задания 2:
1. Переименовать базу данных Ваша фамилия 21 формы КНИГИ, созданную на
предыдущем занятии, в базу данных с новым именем Ваша фамилия_практическая
работа № 21_КНИГИ
2. Открыть базу данных КНИГИ.
3. Для формирования за необходимо перейти на ленту СОЗДАНИЕ, с мастера за создать за на основе таблицы по полям
Название, Автор, Жанр. Выполнить за щелчком по кнопке . Сохранить за под именем Данные о книгах.
4. Для формирования за на выборку переходим на ленту Создание, выполняем
команду Конструктор за В бланк за добавляем таблицу ДАННЫЕ О
КНИГАХ. В верхней части бланка за появилось окно с полями таблицы. В нижнюю
часть перемещаем названия полей, необходимых для за двойным щелчком мыши
по названию поля). В строку Условие отбора для необходимых полей вводим значение,
которое является критерием отбора. Например, нижняя часть бланка за для
формирования за Книги Пушкина должна выглядеть следующим образом:
Сохранить за под именем За на выборку Книги Пушкина
Аналогично создать за и сохранить их под соответствующим именем):
Учебная литература с полями Название, Автор, Жанр, Год издания, Количество
страниц;
Книги издательства Питер со всеми полями из таблицы;
Книги, количество страниц в которых больше 300 с полями название, автор, жанр,
издательство, цена, количество страниц (по полю Количество страниц условие отбора
>300);
Художественная и детская литература с полями Название, Автор, Жанр (в поле
ЖАНР каждое условие отбора вводим в отдельную строку в бланке за
Неверный код:
program n9;
var v2,v3,v4,v5,i,st: integer;
m: array[1..20] of integer;
begin
st:= 20;
writeln('Количество учеников: ',st);
for i:= 1 to 20 do
begin
write('Введите оценку ',i,' ученика: ');
readln(m[i]);
if m[i] == 2 then v2:= v2 + m[i];
if m[i] == 3 then v3:= v3 + m[i];
if m[i] == 4 then v4:= v4 + m[i];
if m[i] == 5 then v5:= v5 + m[i];
end;
end.
Верный код:
program n9;
var v2,v3,v4,v5,i, КОЛИЧЕСТВО УЧЕНИКОВ В ЦИФРАХ integer;
m: array[1..20] of integer;
begin
st:= 20;
writeln
for i:= 1 to 20 do
begin
write
readln(m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ]);
if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 2 then v2:= v2 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];
if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 3 then v3:= v3 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];
if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 4 then v4:= v4 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];
if m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ] == 5 then v5:= v5 + m[ОЦЕНКА УЧЕНИКА В ЦИФРАХ];
end;
end.