A. общие сведения о базах данных
◦ тип данных в СУБД
◦ классификация баз данных
B. ОБРАБОТКА ИНФОРМАЦИИ В MS EXCEL
◦ общие положения, понятие поля, записи
◦ сортировка списков
Билет 2
Задание 2Создание и редактирование текстового документа (см. вкладку таблицы)
Файлы с рисунками и текстом расположены в папке билет2, находящейся на рабочем столе в папке «Экзамен»
Билет 3
Задание 2
В представленной ниже таблице имеются данные о большом количестве подержанных автомобилей. Клиент имеет некоторую сумму денег (красная ячейка D13). На какой из автомобилей ему хватит денег? Напротив каждого автомобиля (ячейки столбца "Н") требуется получить пометку Хватит/Не хватит.Файл с таблицей билет3.ods находится на рабочем столе в папке «Экзамен»
Билет 5
Задание 2В представленной ниже таблице имеются данные о ежемесячных доходах каждого работника в течение года. Необходимо определить годовой доход каждого работника, найти доход на одного члена семьи в год. Определите работника с максимальным доходом и с миниальным доходом на одного — поставить в столбце Q соответствующую пометку. Файл с таблицей билет5.ods находится на рабочем столе в папке «Экзамен»
Билет 7
Задание 2 В представленной ниже таблице начисляется заработок работникам за прошедший месяц в зависимости от количества отработанных дней и дневной оплаты труда. Ввести необходимые формулы для вычисления значений столбццов E, F, G, H и итоговоен значение. Файл с таблицей билет7.ods находится на рабочем столе в папке «Экзамен»
Билет 9
Задание 2В текстовом редакторе создать таблицу:
Расписание занятости каб.306
| Урок | Начало | Конец | Понедельник | Вторник | Среда | Четверг | Пятница | Суббота |
| 830 | 910 | 10 ФМ информатика | 9СГ инф. | 9 ИМ информатика | 10 ФМ инф. техн. | 9 ФМ информатика | ||
| 915 | 955 | |||||||
| 1005 | 1045 | 10 ИМ информатика | 11 СГинформатика | 10 ИМ информатика | 10 ИМ инф. техн. | |||
| 1050 | 1130 | |||||||
| 1220 | 1300 | 10 СГ инф. | 10 ИМ инф. техн. | 11ЕНинформатика | 9СГ инф. | |||
| 1305 | 1345 | 9 ИМ ДОУ | 9 ФМ информатика | |||||
| 1355 | 1435 | 9 ИМ информатика | 9 ИМ ДОУ | |||||
| 1440 | 1520 | 10 ИМДОУ | ||||||
| 1530 | 1610 | Курсы | Крусы | |||||
| 1615 | 1655 |
Билет 10
Задание 2 Создать график функции y = ax2 - bx + c ( х изменяется от -20 до +20 с шагом 0.5; значения a,b,c задаюся в отдельных ячейках B9:B11). Файл с заданием билет10.ods находится на рабочем столе в папке «Экзамен»
Билет 12
Задание 2 Представленная ниже таблица должна помочь приемной комиссии наградить премией тех студентов, у которых максимальный балл по результатам сдачи экзаменов. По результатам таблицы построить гистограмму, отображающую набранные общие баллы каждым студентом.
Примечание:
Таблица должна САМА находить студента(ов) с максимальным общим баллом и в строке с его фамилией ставить слово премия. Файл с таблицей билет12.ods находится на рабочем столе в папке «Экзамен»
Билет 13
Задание 2Создайте в текстовом редакторе документ и напишите в нем следующий
текст, точно воспроизведя все оформление текста, имеющееся в образце. Данный текст должен быть написан шрифтом, использующим засечки, например, Times) размером 14 пунктов. Основной текст выровнен по ширине, и первая строка абзаца имеет отступ в 1 см. В тексте есть слова, выделенные жирным шрифтом и курсивом.
При этом допустимо, чтобы ширина вашего текста отличалась от ширины текста в примере, поскольку ширина текста зависит от размера страницы и полей. В этом случае разбиение текста на строки должно соответствовать стандартной ширине абзаца.
Тамбовская область — субъект Российской Федерации, входит в состав Центрального федерального округа. Административный центр — г. Тамбов. Граничит с Рязанской, Пензенской, Воронежской и Липецкой областями. Область занимает центральную часть Окско-Донской (Тамбовской) равнины. Рельеф пологоволнистый, расчлененный балками и оврагами.
| Административный центр | Тамбов |
| Общая площадь | 34462км2 |
| Население | 1130тыс. человек |
| Плотность населения | 32,8 чел./км2 |
Билет 14
Задание 2На соревнованиях по экономичности были приняты следующие правила: бензобак автомобиля заливали "под горловину", замеряли количество залитого бензина (в литрах), затем требовалось проехать максимально возможное расстояние. Все данные были занесены в таблицу (см. ниже). Организуйте таблицу таким образом, чтобы рядом с фамилией гонщика, экономичность вождения которого самая лучшая, появилась надпись: победитель. Причем таблица должна определять его САМА без участия человека! Столбец Расход топлива должен содержать значения выраженные с точностью 3 десятичных знака. Файл с таблицей билет14.ods находится на рабочем столе в папке «Экзамен»
Билет 17
Задание 2Представленная ниже таблица должна помочь администрации института определить количество студентов заслуживших получать стипендию по результатам сессии. Используйте следующие критерии: менее 18-ти баллов - стипендию не получает, от 23,5 баллов включительно - повышенная стипендия. По результатам таблицы построить гистограмму, отображающую набранные общие баллы каждым студентом. Файл с таблицей билет17.ods находится на рабочем столе в папке «Экзамен»
Билет 20
Задание 2 Представленная ниже таблица должна помочь приемной комиссии института определить количество абитуриентов успешно сдавших вступительные экзамены. Подбирая проходной балл нужно добиться, чтобы в ячейке В2 осталось 10 человек. Отобразить на круговой трехмерной диаграмме количество прошедших и не прошедших учеников, взяв данные из ячеек B2 и B3. В диаграмме разметить заголовок, легенду справа и подписи данных. Файл с таблицей би
лет20.ods находится на рабочем столе в папке «Экзамен»
Решение практических заданий
Билет № 1
Определить, является ли введенное с клавиатуры число автоаморфным. Автоаморфным считается такое число, которое равно младшим разрядам своего квадрата (5 и 25, 6 и 36, 25 и 625)
var
n,i,j,k:integer;
begin
readln(n);
i:=1; j:=sqr(n); k:=n;
while n>0 do
begin
i:=i*10;
n:=n div 10;
end;
j:=j mod i;
if j=k then
writeln('yes') else writeln('no');
end.
Билет № 2
Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км
var
i,j,k:integer;
n:real;
begin
n:=10; i:=1;
repeat
n:=n+n*0.1;
i:=i+1;
until n>20;
writeln (i);
end.
Билет № 3
Дано число N. Выяснить, является ли число палиндромом? Палиндромом считает такое число, которое читается справа налево и слева направо.
var
n,i,j,k:integer;
begin
readln(n); j:=n;
i:=1; k:=0;
while n>0 do
begin
k:= k*10+n mod 10;
n:=n div 10;
end;
if j=k then
writeln('yes') else writeln('no');
end.
Билет № 4
Задание 2. Решить задачу. Одна минута записи цифрового аудиафайла занимает на диске 1,3 Мб, разрядность звуковой платы 8бит. С какой частотой дескритизации записан звук? Ответ представьте в Кгц, результат округлите с точностью до десятых.
Дано натуральное число. Выяснить, является ли оно простым, т.е. делится только на 1 и на само себя.
Ответ: 22,7 кГц
Задание 3
var
n,k:integer;
begin
readln(n);
k:=1;
repeat
k:=k+1;
until n mod k =0;
if n=k then
writeln('yes') else writeln('no');
end.
Билет № 5
Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+…1/N. используя оператор цикла REPEAT.
var
n:integer;
s:real;
begin
n:=1; s:=0;
repeat
s:=s+1/n;
n:=n+1;
until n=1000;
writeln(s);
end.
Билет № 6
Задание 2. Решить задачу. Владимир, Игорь и Сергей преподают математику, физику и литературу, а живут в Рязане, Туле и Ярославле. Известно также, что Владимир живет не в Рязани, Игорь живет не в Туле, рязанец — не физик, Игорь — не математик, туляк преподает литературу. Кто преподает математику?
Ответ: Сергей
Задание 3.Необходимо ввести с клавиатуры N чисел, найти из них наибольшее и вывести его.
var
n, max, next, k:integer;
begin
writeln('Введите количество чисел');
readln(n);
write('Введите число');
readln(max);
k:=1;
repeat
write ('Введите число'); readln(next);
k:=k+1;
if next>max
then max:=next;
until k=n;
writeln(max);
end.
Билет № 7
В некоторой стране используются денежные купюры достоинством в 1, 2, 4, 8, 16, 32 и 64. дано натуральное число N. Как наименьшим количеством таких денежных купюр можно выплатить сумму N (указать количество каждой из используемых для выплаты купюр)? Предполагается, что имеется достаточно большое количество купюр всех достоинств.
var
n,x, k:integer;
begin
writeln('Введите число');
readln(n);
k:=64;
while n>0 do
begin
if n>=k then begin writeln (n div k,'купюр по', k); n:=n mod k; end;
k:=k div 2;
end;
end.
Билет № 8
Задание 2. Решить задачу. Скорость передачи данных через данное соединение равно 128Кбит/сек. Определите какое количество информации в Мбитах можно передать через данное соединение в течение 20 секунд?
Ответ: 2,5 Мбит
Задание 3. Исследовать квадратное уравнение вида ax2+bx+c=0
var
a,b,c,d:integer;
x1,x2: real;
begin
writeln('Введите числа a,b,c');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d < 0 then writeln('нет корней')
else
if d=0 then writeln ('корень один=',(-b+sqrt(d))/(2*a))
else
writeln ('первый корень=',(-b+sqrt(d))/(2*a),'второй корень=',(-b-sqrt(d))/(2*a));
end.
Билет № 9
Задание 2. Среди четырёх чисел 738, 3410, 1101112, 3316 найдите максимальное
Ответ: 738
Задание 3.Перевести заданное натуральное число из десятичной с/с в двоичную
var
a,i:integer;
s,s2:string;
begin
writeln('Введите число');
readln(a);
s:='';
while a>0 do
begin
s:=s+inttostr(a mod 2);
a:= a div 2;
end;
writeln(s);
for i:= length(s) downto 1 do
s2:= s2+s[i];
writeln(s2);
end.
Билет № 10
Распечатать в столбик таблицу умножения чисел от 1 до 10 на числа от 1 до 10. Результат вывести в формате:
1*1=1
1*2=2
…
1*10=10
2*1=2
2*2=4
….
2*10=20
.
.
.
10*1=10
10*2=20
…
10*10=100
var
j,i:integer;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
writeln(i,'*',j,'=',i*j);
writeln;
end;
end.
Билет № 11
Задание 2. Решить задачу. Составить таблицу истинности и определить сколько различных решений имеет выражение (А&B)v(A&B)=0, где А и В — логические переменные. В ответе не нужно перечислять все различные наборы значений переменных, при которых вуыполняется данное равенство. В качестве ответа нужно указать количество таких наборов.
Ответ: 2
Задание 3.Даны три точки на плоскости. Определить, какая из них ближе к началу координат.
var
x1,y1,x2,y2,x3,y3:integer;
begin
writeln('Введите координаты 1 точки');
readln(x1,y1);
writeln('Введите координаты 2 точки');
readln(x2,y2);
writeln('Введите координаты 3 точки');
readln(x3,y3);
if (sqrt(sqr(x1)+sqr(y1))< sqrt(sqr(x2)+sqr(y2))) and(sqrt(sqr(x1)+sqr(y1))< sqrt(sqr(x3)+sqr(y3)))
then writeln ('1');
if (sqrt(sqr(x2)+sqr(y2))< sqrt(sqr(x1)+sqr(y1))) and(sqrt(sqr(x2)+sqr(y2))< sqrt(sqr(x3)+sqr(y3)))
then writeln ('2');
if (sqrt(sqr(x3)+sqr(y3))< sqrt(sqr(x2)+sqr(y2))) and(sqrt(sqr(x1)+sqr(y1))> sqrt(sqr(x3)+sqr(y3)))
then writeln ('1');
end.
Билет № 12
Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов своих цифр.
var
n,k,i,j:integer;
begin
readln(n);
for j:= 1 to n do
begin
i:=j; k:=0;
while i>0 do
begin
k:= k+sqr((i mod 10))*(i mod 10);
i:=i div 10;
end;
if j = k then write(j:4);
end;
writeln;
end.
Билет № 13
Покупатель должен заплатить в кассу S рублей. У него имеются 1, 5, 10, 50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных.
var
s,x, k:integer;
begin
writeln('введите сумму');
readln(s);
k:=500; x:=0;
while s>0 do
begin
if s>=k then begin writeln (s div k,'купюр достоинством', k); s:=s mod k; end;
if x=0 then begin k:=k div 5; x:=1; end
else begin k:=k div 2; x:=0; end;
end;
end.
Билет № 14
В бреркассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?
var
n,i:integer;
s: real;
begin
writeln('введите сумму');
readln(s);
write('введите количество лет');
readln(n);
for i:= 1 to n do
s:= s +s*0.03;
writeln(s);
end.
Билет № 15
Задание 2. Решить задачу. Составить таблицу истинности и определить сколько различных решений имеет выражение (АvB)&(AvB)=0, где А и В — логические переменные. В ответе не нужно перечислять все различные наборы значений переменных, при которых вуыполняется данное равенство. В качестве ответа нужно указать количество таких наборов.
Ответ: 2
Задание 3.С помощью оператора While напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно
var
i:integer;
begin
i:=2;
while i<=100 do
begin
if (i mod 2) =0 then writeln(i); i:= i+1;
end;
end.
Билет № 16
Задание 2. Решить задачу. Текст занимает в памяти компьютера 0,25 Кбайт. Сколько символов содержит этот текст, исли использутеся шестнадцатибитная кодировака Unicode?
Ответ: 128
Задание 3. Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день суммарный пробег за все дни превысит 100км.
var
i,j,k:integer;
n,s:real;
begin
n:=10; s:= 10 ;i:=1;
repeat
n:=n+n*0.1;
s:= s+n;
i:=i+1;
until s>100;
writeln (i);
end.
Билет № 17
Задание 2. Решите задачу. Рассчитайте необходимый информационный объём моно аудиофайла, время звучания которого составляет 2 минуты при частоте дискретизации 44,1 кГц и разрешении 16 бит. Ответ представьте в Мбайтах, результат округлите до сотых.
Ответ: 10,09 Мбайт
Задание 3. Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая подсчитывает количество бактерий на заданное вами целое значение момента времени в минутах.
var
n,i, k:integer;
begin
n:=1;
readln(k);
for i:=1 to k do
n:=n*2;
writeln (n);
end.
Билет № 18
Задание 2. Решить задачу. Какой объем видеопамяти в Килобайтах необходим для хранения двух страниц изображения при условии, что разрешающая способность дисплея равна 640*350 пикселей, а количество используемых цветов 16? Ответ округлите до целых.
Ответ: 219 Кбайт
Задание 3. Заданы три натуральных числа A, B, C, которые обозначают день, месяц и год. Составить программу, которая определяет порядковый номер даты, начиная отсчет с начала года. То есть 1 января—1 по счету день.(Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако, если он делится без остатка на 400, это високосный год. Таким образом, 2000 г. является особым високосным годом, который бывает лишь раз в 400 лет. )
var
a,b,c,i,s:integer;
begin
readln(a,b,c);
s:=0;
for i:= 1 to (b-1) do
case i of
1,3,5,7,8,10,12 : s:=s +31;
4,6,9,11 : s:=s+30;
2: if (c mod 4 = 0) then
begin
if (c mod 100 = 0) then
begin
if (c mod 400 = 0) then s:=s+29 else s:=s+28
end
else s:=s+29;
end
else s:=s+28;
end;
s:=s+a;
writeln(s);
end.
Билет № 19
Задание 2. Решить задачу. На олимпиаде по информатике студенты A, B, C, D заняли первые четыре места. Когда их спросили о распределении мест, они дали три ответа: D — первый или B — второй; C – первый или А — четвертый; D — второй или В — третий. Как распределились места, если в каждом ответе только одно утверждение истинно?
Ответ: DCBA
Задание3. Последовательно вводятся N целых чисел. Сосчитать сколько из них совпадают с первым числом.
var
n, m, next, k,c:integer;
begin
writeln('Введите количество чисел');
readln(n);
write('Введите первое число');
readln(m);
k:=1; c:=0;
repeat
write ('Введите следующее число'); readln(next);
k:=k+1;
if next=m
then c:=c+1;
until k=n;
writeln(c);
end.
Билет № 20
Задание 2. В понедельник в одном из классов должно быть проведено 4 урока — по математике, физике, информатике и биологии. Учителя высказали свои пожелания для составления расписания. Учитель математики хочет иметь первый или второй урок, учитель физики — второй или третий урок, учитель информатики — первый или четвертый, учитель биологии — третий или четвертый. Какой вариант расписанпия устроит все учителей?
Ответ: 2 варианта — МФБИ или ИМФБ
Задание 3. Последовательно вводятся N целых чисел. Определить каких среди них больше: положительных или отрицательных.
var
n,next,p,k,o :integer;
begin
writeln('Введите количество чисел');
readln(n); p:=0; o:=0;
repeat
write ('Введите число'); readln(next);
k:=k+1;
if next>0 then p:=p+1;
if next<0 then o:=o+1;
until k=n;
if p>o then writeln('положительных больше')
else if p<o then writeln ('отрицательных больше')
else writeln('поровну');
end.