?>
Задание 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.