var
a:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(36) - 15;
write(a[i], ' ');
end;
writeln;
end.
//вторая программа
const
n = 8;
var
a:array[1..n] of integer;
i, count3, count4, count5:integer;
begin
randomize;
writeln('Оценки учеников:');
for i := 1 to n do
begin
a[i] := random(3) + 3;
write(a[i], ' ');
if a[i] = 5 then
inc(count5);
if a[i] = 4 then
inc(count4);
if a[i] = 3 then
inc(count3);
end;
writeln;
writeln('Троек - ', count3);
writeln('Четверок - ', count4);
writeln('Пятерок - ', count5);
end.
//третья программа
var
k:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
k[i] := random(36) - 15;
write(k[i], ' ');
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 12 do
begin
k[i] := k[i] * (-1);
write(k[i], ' ');
end;
end.
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
Таблиця — це об’єкт, який визначається і використовується для збереження даних. Кожна таблиця включає інформацію про об’єкт певного типу, наприклад про клієнтів. Таблиця містить поля (стовпчики),у яких зберігаються різноманітні дані, наприклад прізвище чи адреса клієнта, і записи (які називаються такожрядками). У записах зібрана вся інформація про конкретний предмет (людину, зразок продукції). Для кожної таблиці можна визначити первинний ключ (одне чи кілька полів, що мають унікальне значення для кожного запису) та один або кількаіндексів з метою збільшення швидкості доступу до даного.
Запит — це об’єкт, який дає змогу користувачеві одержувати потрібні дані з однієї чи кількох таблиць. Для створення запиту можна використовувати QBE (запит за зразком) або інструкції SQL. Можна створювати запити на вибір, відновлення, вилучення чи додавання даних. За до запитів можна створювати нові таблиці, використовуючи дані однієї чи кількох таблиць, що вже існують.
Форма є об’єктом, який призначений переважно для введення даних, відображення їх на екрані чи керування роботою додатка. Можна використовувати форми для того, щоб реалізувати вимоги користувача до введення даних із запитів або таблиць. Форми можна також роздруковувати. За до форми ви можете у відповідь на якусь подію запуститимакрос абопроцедуру — наприклад, запустити макрос, коли змінюється значення певних даних.
Звіт є об’єктом, що призначений для створення документа, який згодом може бути надрукованим або включеним у документ іншого додатка. Перед тим, як виводити звіт на принтер, можна попередньо переглянути його на екрані.
Макрос є об’єктом, що являє собою структурований опис однієї чи кількох дій, які повинен виконати Access у відповідь на певну подію. Наприклад, можна визначити макрос, який у відповідь на вибір якогось елемента в основній формі відкриває іншу форму. За до ншого макроса можна здійснювати перевірку значення певного поля при зміні його змісту. У макрос можна включати додаткові умови для виконання або невиконання тих чи інших включених у нього дій. Можна також, перебуваючи в одному макросі, запустити інший макрос або функцію модуля.
Модуль є об’єктом, що містить програми на Visual Basic і дає змогу розбити процес на дрібніші дії та виявити ті помилки, які неможливо було знайти з використанням макросів. Модулі можуть бути незалежними об’єктами, що містять функції, які можна викликати з будь-якого місця додатка, але вони можуть бути і безпосередньо прив’язані до окремих форм або звітів для реакції на ті чи інші зміни, що відбуваються в них.