Нужно с кроссвордом.

во По горизонталі:

1. Режим створення таблиць з визначенням

параметрів усіх елементів структури таблиці.

3.Модель БД, яка являє собою сукупність

об'єктів різних рівнів, при цьому об'єкти

нижнього рівня підпорядковуються об'єктам

верхнього рівня

7. Одна з особливостей використання даних

під час користування БД

9. Елемент управління, який може бути

розміщений на формі

12. Програмні засоби для створення,

редагування та обробки баз даних

13. Най ший б створення таблиць у

БД

14. Модель, в якій БД представлена у вигляді

таблиці

17. Назва поля, за до якого

ідентифікуються записи усієї таблиці

18. Складова частина структури таблиці БД б відображення інформації у БД з

використанням елементів управління для

зручної роботи з даними

По вертикалі:

2. Засіб створення та друку документів за

наявною у БД інформацією

4. Умова, за до якої складається

набір необхідних полів

5. Тип запиту

6. Інформація на початку та наприкінці

кожної сторінки звіту

8. Інформація про один елемент бази даних

10. Засіб автоматизації найбільш часто

виконуваних завдань

11. Елемент управління, за до якого здійснюється перехід від одного

об'єкту БД до іншого

12. Сукупність полів БД

13. Об'єкт СУБД автоматизує важкі операції,

які не можна описати за до макросів

15. Основний об'єкт БД

16. Один з в створення таблиць у БД

19. Кнопка на панелі інструментів, яка

дозволяє працювати з уже існуючим

об'єктом БД

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47