Нужна по Acess! Форми називати порядковим номером завдання. У заголовках форм - назви, зазначені в завданнях.
1. На базі таблиці «студенти» побудувати форму з декількох елементів «студенти» з полями: «№ зал_кн. »,«ПІБ», «курс», «Група» і «дата народження», «Фото». Назва форми - «студенти». поле «№ зал_кн. » має містити дані з поля «код студента» таблиці «студенти», а поле «ПІБ»- прізвище та ініціали студента. Відсортувати список за групами, а потім за прізвищами.
2. Побудувати складову форму «оцінки студента». Головна форма повинна містити код, номер групи, прізвище, ім'я та по батькові студента, а підпорядкована форма - назви іспитів, оцінки та дату складання іспитів. Форма повинна включати середній бал студента з усіх предметів.
3. Побудувати складову форму «Викладачі та студенти». Головна форма повинна містити прізвище викладача і назва предмета, а підпорядкована форма - список студентів, у яких він брав іспит, з номерами їх груп і отриманими оцінками. Список повинен бути відсортований по групам і прізвищами студентів.
4. Побудувати складову форму «Відмінники з інформатики». Головна форма повинна містити номер групи, а підпорядкована форма -список студентів, щ отримали з інформатики 5. Список повинен включати прізвища та імена студентів. Форма повинна включати число відмінників в кожній групі.
5. Створити форму для введення інформації в таблицю «студенти». Для введення даних в поле «Група» використовувати поле зі списком, що містить номери груп, а для введення даних в поле «стать» - простий список.
60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах
480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах
491520 / 2 = 245760 Кбит - половина файла
245760 Кбит / 256 = 960 секунд - время передачи первой половины файла
245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла
960 с + 1920 с = 2880 секунд - общее время передачи
В одной минуте 60 секунд:
2880 / 60 = 48 минут - передан весь файл
Задание №2
Переведем килобайты в биты: N = 3750кбайт = 30720000бит
Вычислим скорость передачи информации: V = 30720000/120
V = 256000 бит/c
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do x := x + 1;
Write(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
6: -0.956871790478342
Если нужна промежуточная печать:
var
x: real;
begin
x := 1;
while (cos(1 / tan(x)) >= 0) do begin
Writeln(x, ': ', cos(1 / tan(x)));
x := x + 1
end;
Writeln(x, ': ', cos(1 / tan(x)))
end.
Результат выполнения программы:
1: 0.800844301895226
2: 0.897089962539917
3: 0.743794228654611
4: 0.64963571596558
5: 0.956565479264333
6: -0.956871790478342