Создайте базу данных, позволяющую автоматизировать работу школьной библиотеки. В базе необходимо хранить
информацию о читателях библиотеки, датах выдачи и возврате читателями
книг, список книг в фондах библиотеки, количество экземпляров каждой
книги .
Запустите исполнимый файл программы Microsoft Access 2007 В группе
«Новая пустая база данных» щелкните ЛКМ на значке «Новая база данных».
В поле «Имя файла» введите название базы данных – «Библиотека».
Нажмите кнопку «Создать».
С конструктора создайте следующие таблицы:
Книги – эта таблица будет содержать следующие поля:
Инвентарный номер, Название книги, Автор, Количество страниц, Жанр,
Дата поступления, Стоимость и место хранения.
Должности – эта таблица будет состоять из следующих полей: Код
должности и Должность.
Клиенты – в этой таблице будут следующие поля: Код клиента,
Фамилия, Имя, Отчество, Должность, Город, Адрес и Мобильный телефон.
Оборот книг – эта таблица будет содержать такие поля:
Инвентарный номер книги, Дата выдачи, Дата возврата и Клиент.
Заполните таблицы данными, чтобы в каждой таблице было не менее 5
записей.

1)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

2)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

3)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

4)

var i,n,s:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[i]:8); writeln;

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение:

Переменные — контейнеры для хранения изменяемых данных. Без них не обходится практически ни одна программа. Для переменную можно сравнить с номерком в гардеробе — вы сдаете в "гардероб" какие-то данные, в ответ вам выдается номерок. Когда вам опять потребовались эти данные, вы "предъявляете номерок" и получаете их. Пример работы с переменными в VBA может выглядеть так:

Dim nMyAge As Integer

nMyAge = nMyAge + 10

MsgBox nMyAge

Перед работой с переменной настоятельно рекомендуется ее объявить. Объявление переменной в нашем примере выглядит так:

Dim nMyAge As Integer

Как расшифровать эту строку:

Dim — это область видимости переменной. В VBA предусмотрено 4 ключевых слова для определения области видимости переменных: