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

Билет 10

Задание 2 Создать график функции y = ax² - bx + c ( х изменяется от -20 до +20 с шагом 0.5; значения a,b,c задаюся в отдельных ячейках B9:B11). Файл с заданием билет10.ods находится на рабочем столе в папке «Экзамен»

Билет 12

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

Примечание:

Таблица должна САМА находить студента(ов) с максимальным общим баллом и в строке с его фамилией ставить слово премия. Файл с таблицей билет12.ods находится на рабочем столе в папке «Экзамен»

Билет 13

Задание 2Создайте в текстовом редакторе документ и напишите в нем следующий

текст, точно воспроизведя все оформление текста, имеющееся в образце. Данный текст должен быть написан шрифтом, использующим засечки, например, Times) размером 14 пунктов. Основной текст выровнен по ширине, и первая строка абзаца имеет отступ в 1 см. В тексте есть слова, выделенные жирным шрифтом и курсивом.

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

Тамбовская область — субъект Российской Федерации, входит в состав Центрального федерального округа. Административный центр — г. Тамбов. Граничит с Рязанской, Пензенской, Воронежской и Липецкой областями. Область занимает центральную часть Окско-Донской (Тамбовской) равнины. Рельеф пологоволнистый, расчлененный балками и оврагами.

Билет 14

Билет 17

Задание 2Представленная ниже таблица должна помочь администрации института определить количество студентов заслуживших получать стипендию по результатам сессии. Используйте следующие критерии: менее 18-ти баллов - стипендию не получает, от 23,5 баллов включительно - повышенная стипендия. По результатам таблицы построить гистограмму, отображающую набранные общие баллы каждым студентом. Файл с таблицей билет17.ods находится на рабочем столе в папке «Экзамен»

Билет 20

Задание 2 Представленная ниже таблица должна помочь приемной комиссии института определить количество абитуриентов успешно сдавших вступительные экзамены. Подбирая проходной балл нужно добиться, чтобы в ячейке В2 осталось 10 человек. Отобразить на круговой трехмерной диаграмме количество прошедших и не прошедших учеников, взяв данные из ячеек B2 и B3. В диаграмме разметить заголовок, легенду справа и подписи данных. Файл с таблицей би

Решение практических заданий

Билет № 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. Исследовать квадратное уравнение вида ax²+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. Среди четырёх чисел ₇₃₈, 34₁₀, 110111₂, 33₁₆ найдите максимальное

Ответ: 73₈

Задание 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.

• ⇐ Назад
• 1
• 23