vehea78347
10.07.2020 08:21

Нужна по Acess! Форми називати порядковим номером завдання. У заголовках форм - назви, зазначені в завданнях.

1. На базі таблиці «студенти» побудувати форму з декількох елементів «студенти» з полями: «№ зал_кн. »,«ПІБ», «курс», «Група» і «дата народження», «Фото». Назва форми - «студенти». поле «№ зал_кн. » має містити дані з поля «код студента» таблиці «студенти», а поле «ПІБ»- прізвище та ініціали студента. Відсортувати список за групами, а потім за прізвищами.

2. Побудувати складову форму «оцінки студента». Головна форма повинна містити код, номер групи, прізвище, ім'я та по батькові студента, а підпорядкована форма - назви іспитів, оцінки та дату складання іспитів. Форма повинна включати середній бал студента з усіх предметів.

3. Побудувати складову форму «Викладачі та студенти». Головна форма повинна містити прізвище викладача і назва предмета, а підпорядкована форма - список студентів, у яких він брав іспит, з номерами їх груп і отриманими оцінками. Список повинен бути відсортований по групам і прізвищами студентів.

4. Побудувати складову форму «Відмінники з інформатики». Головна форма повинна містити номер групи, а підпорядкована форма -список студентів, щ отримали з інформатики 5. Список повинен включати прізвища та імена студентів. Форма повинна включати число відмінників в кожній групі.

5. Створити форму для введення інформації в таблицю «студенти». Для введення даних в поле «Група» використовувати поле зі списком, що містить номери груп, а для введення даних в поле «стать» - простий список.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bondarantona
01.02.2022 23:14

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.

0,0(0 оценок)
Ответ:
creeperm477
01.02.2022 23:14

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота