Сьогодні ми з вами продовжимо вивчання системи керування базами даних MS Access. Ваше завдання на сьогодні - створити одну таблицю в базі даних за обраною тематикою. Предметну область бази даних ви можете обирати на власний розсуд, наприклад: довідник астронома, каталог фільмів, каталог комп'ютерної техніки, тощо. Після того, як ви визначились з тематикою вашої БД, створіть одну таблицю, в якій буде не менш ніж 5 записів та як мінімум одне ключове поле. До сдачі приймаються ті роботи, в яких буде два скріншоти: перший - це ваша створена таблиця в режимі конструктора, а другий - таблиця в режимі перегляду. До завдання прикріплюю допоміжні матеріали, які безумовно стануть вам в нагоді під час виконання завдання. https://youtu.be/Pc-_HNZ-FmE

Компилятор — это программа, превращающая исходный текст, написанный на языке программирования, в машинные инструкции.

По мере преобразования текста программы в машинный код, компилятор может обнаруживать ошибки (синтаксиса языка, например). Поэтому все проблемы забытых точек с запятыми, забытых скобок, ошибок в названиях функций и переменных в данном случае решаются на этапе компиляции.



При компиляции весь исходный программный код (тот, который пишет программист) сразу переводится в машинный. Создается так называемый отдельный исполняемый файл, который никак не связан с исходным кодом. Выполнение исполняемого файла обеспечивается операционной системой. То есть образуется, например, .EXE файл.

Примеры компилируемых языков: C, C++, Pascal, Delphi.

Program Project1;
const
  eps = 1e-10;
var
  a:array [1..3] of Real;
  i: integer;
  max: Real;
  max_i: integer;
  sqr_h: Real;
  sqr_k: Real;
  sp: Real;
begin
  Write('Введите длину сторон треугольника: ');
  Readln(a[1],a[2],a[3]);
  max:=a[1];
  max_i:=1;
  for i := 2 to 3 do
    if a[i]>max then
    begin
      max:=a[i];
      max_i:=i;
    end;
  sqr_k := 0;
  for i:=1 to 3 do
    if i<>max_i then
      sqr_k:=sqr_k+sqr(a[i]);
  sqr_h:=Sqr(max);
  if (Abs(sqr_k-sqr_h)<eps) then
  begin
    Writeln('Треугольник прямоугольный');
    sp:=1;
    for I := 1 to 3 do
      if i<>max_i then
        sp:=sp*a[i];
   sp:=sp/2;
    Writeln('Площадь треугольника = ',sp:0:5);
  end
  else
  begin
    Writeln('Треугольник не прямоугольный');
    sp:=0;
    for I := 1 to 3 do
      sp:=sp+a[i];  
    Writeln('Периметр треугольника = ',sp:0:5);
  end;
  Readln;
end.