М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Guguguguguguguguy
Guguguguguguguguy
13.03.2023 09:02 •  Информатика

Нужно сделать базу данных Microsoft Access формата .accdb Деканат:
Минимальный список характеристик:
-Код группы, курс, количество студентов, общий объем часов;
-ФИО преподавателя, вид контроля, дата;
-Название дисциплины, категория, объем часов.
Одна группа изучает несколько дисциплин и одна дисциплина может преподаваться нескольким группам.
Категория дисциплины - гуманитарная, математическая, компьютерная, общеинженерная и т.д.
Вид контроля - зачет, экзамен.
Выборки:
-Для каждой группы определить продолжительность сессии.
-Определить преподавателя, который в сессию принимает экзамены (не зачеты) у наибольшего числа студентов.
-Определить, какой процент от общего объема дисциплин, изучаемых группой 'АП-17а', составляют дисциплины каждой категории.
-Определить, не сдает ли какая-либо группа два экзамена в один день.

👇
Открыть все ответы
Ответ:
12R34O56M78A
12R34O56M78A
13.03.2023
// PascalABC.Net 3.0, сборка 1088
const
  n=6;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
  end;
  Writeln;
  Writeln('*** Результат ***');
  Write(a[1],' ');
  for i:=2 to n-1 do begin
    if Odd(a[i]) then a[i]:=a[i]+a[n]
    else a[i]:=a[i]+a[1];
    Write(a[i],' ');
  end;
  Writeln(a[n])
end.

Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308
4,6(67 оценок)
Ответ:
laura103
laura103
13.03.2023
// PascalABC.Net 3.0, сборка 1088
const
  n=30;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
    if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)
  end;
  Writeln;
  Writeln('Количество найденных элементов равно ',k)
end.

Тестовое решение:
*** Исходный массив ***
503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61
Количество найденных элементов равно 3
4,4(96 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ