Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Информация для подготовки к экзамену по дисциплине «Информатика»
Специальность ОПб
1 курс, 1 семестр. 2013
Преподаватель Пегова Е.П.
Схема билета.
Всего 20 билетов.
Типовые вопросы первого задания:
1 |
1 |
1 |
0 |
0 |
1 |
1 |
1 |
. |
1 |
0 |
1 |
|
- |
1 |
0 |
1 |
1 |
0 |
1 |
. |
1 |
1 |
1 |
1 |
0 |
1 |
1 |
1 |
0 |
1 |
1 |
. |
0 |
1 |
1 |
|
+ |
1 |
1 |
1 |
1 |
0 |
1 |
. |
1 |
1 |
1 |
||
1 |
0 |
1 |
1 |
0 |
0 |
. |
0 |
1 |
1 |
101111001101:110101
Типовые вопросы второго задания
Типовые вопросы третьего задания.
Типовые вопросы четвертого задания
Dim A, B As String
Sub Command1_Click()
A = "перекресток"
B = Right(A,4)
If A>”пересечение” then
B = Left(A, 5)
else
B = Mid(3,A,2)+B
End If
Selection.text= В
End Sub
Dim A, B As String, I, N As Byte
Sub Command1_Click()
A = "перекресток"
Do While I < Len(A)
I = I + 1
B = Mid(A, I, 1)
If B = "е" Then N = N + 1
Loop
Selection. text=str(N)
End Sub
Sub Прог()
Randomize
Range("A1") = Int(Rnd * 50) : Range("B1")="х"
Range("C1") = Int(Rnd * 50) : Range("D1")="="
A = Range("A1") * Range("C1")
B = InputBox("?", "Прог")
If A = Val(B) Then
Range("E1") = A
MsgBox"ОК"
Else
MsgBox"No "
End If
End Sub
Dim A, B, C As String, I As Byte
Sub Command1_Click()
A = "перекресток"
Do
I = I + 1
B = Mid(A, I, 1)
C = B + C
Loop While I < Len(A)
Selection. Text=C
End Sub
Private Sub ТТТ()
a = 6
b = 8
n = 0
While a < b
a = b mod a +1
b=b\(a+1)
n = n + 1
Wend
MsgBox Date +vbCr+"a=" + Str(a) + "," + "n=" + Str(n)+” , ”+”b=”+Str(b)
End Sub
Sub a()
Dim i As Integer
Do
i = i + 1
Cells(i, 3).Value = DateAdd(“ww”,i , Date)
Loop While i < 5
End Sub
Внимание |
Файл содержит вирус! Удалить? Да Нет |
For j = 1 To 8
ActiveSheet.Cells(2, j).Value = Int(40 * Rnd) + 70
Next
n=3
For i=1 to n
For j=1 to i
Cells(j,i)=”*”
Next j
Next i
Dim A, B, C As String
Sub Command1_Click()
A = "Проходной балл"
B = MID(А, 8,2)
C = Right(A, 4)
MSGBOX С + В
End Sub
В ячейке «А1» Excel записана дата 02.10.1987
Что будет внесено и в какую ячейку после выполнения следующего макроса:
Cells(1, 2) = DateSerial(Year(Date), MID(Cells(1,1),3,1), Day(Range("A1")))
Dim A, B, C As String, I As Byte
Sub Command1_Click()
A = "молоко"
Do
I = I + 1
B = Mid(A, I, 1)
C = B + C
Loop While I < Len(A)
Selection.Text=C
End Sub
Вопросы задания 5
Достоинства и недостатки двоичной СС с точки зрения реализации на ЭВМ? Почему двоичная СС используется на современных ЭВМ?
Вопросы задания 6
Курс доллара |
32,4 |
||||
№пп |
Наименование изделия |
Кол. |
Цена единицы продукции (руб.) |
Цена единицы продукции в $ |
Сумма продаж(руб.) |
1. |
Компьютер |
10 |
25 000 |
$771,60 |
250 000р. |
2. |
Принтер |
40 |
12 000 |
$370,37 |
480 000р. |
3. |
Компьютерный стол |
8 |
10 000 |
$308,64 |
80 000р. |
4. |
Флэш - карта |
30 |
2 000 |
$61,73 |
60 000р. |
5. |
Клавиатура |
50 |
4 000 |
$123,46 |
200 000р. |
6. |
Монитор |
15 |
15 000 |
$462,96 |
225 000р. |
|
|
|
Итого |
$2 098,77 |
1 295 000р. |
Optplus
Optpminus
=
Txt1
Txt2
cmd
Lbl
+
-
.…….
Таблица
A |
B |
С |
D |
E |
F |
G |
H |
I |
К |
L |
М |
|
1 |
№пп |
Фамилия |
Математика |
Физика |
Русский |
Химия |
Физ-ра |
Отличники |
Хорошисты |
Хорошисты с 1 четвёркой |
Троечники с одной тройкой |
Двоечники |
2 |
1 |
Иванов |
5 |
5 |
5 |
5 |
Осв. |
да |
|
|
|
|
3 |
2 |
Петров |
5 |
4 |
5 |
5 |
5 |
|
да |
да |
|
|
4 |
3 |
Никитин |
5 |
2 |
5 |
5 |
5 |
|
|
|
|
да |
5 |
4 |
Николаева |
4 |
4 |
3 |
4 |
4 |
|
|
|
да |
|
6 |
5 |
Федосова |
3 |
3 |
4 |
2 |
Осв. |
|
|
|
|
да |
7 |
Итого |
1 |
1 |
1 |
1 |
2 |
Таблица
№пп |
ФИО |
Пол |
Класс |
Математика |
|
Иванов Иван |
м |
11Б |
4 |
|
Петров Сидор |
м |
10А |
3 |
|
Пятёркина Анна |
ж |
9В |
5 |
|
Двойкина Полина |
ж |
8Б |
3 |
|
Скворцов Андрей |
м |
11А |
5 |
|
Кроткова Валя |
ж |
11В |
4 |
Почётная грамота
Награждается Иванов Иван
ученик
11Б класса средней
школы №1291, за
хорошую учёбу по математике
Директор школы Минина Е.Б.
.
:
=
Txt1
Lbl1
Txt2
cmd
Lbl2
В связи с плохой погодой задерживаются три рейса самолетов в Читу, Минск и Петрозаводск.
Командиры самолетов высказали пожелания:
Можно ли удовлетворить пожелания летчиков?
Целое случайное число в пределах от 0 до 10
Целое случайное число в пределах от 0 до 10
Умножение
Введённое в диалоговое окно значение внести в ячейку Е1. Проанализировать введённый ответ и вывести соответствующие сообщения (Правильно, не правильно правильный ответ…).
№ пп |
Фамилия |
Имя |
Телефон (дом) |
День рождения |
Фотография |
Зарплата |
Курит, не курит |
1 |
Премудрая |
Василиса |
123-45-67 |
Апрель 12, 1901 |
12 000р. |
||
2 |
Никитич |
Добрыня |
832-56-89 |
Июнь 13, 1910 |
4 400р. |
||
3 |
Муромец |
Илья |
546-09-00 |
Апрель 13, 1913 |
1 550,50р. |
||
4 |
Бессмертный |
Кащей |
339-88-67 |
май 2, 1950 |
30 000р. |
||
5 |
Попович |
Алёша |
133-55-00 |
Август 8, 1988 |
5 530р. |
||
6 |
Вий |
Сан |
453-67-90 |
Ноябрь 11, 1991 |
3 340р. |
||
7 |
Болотная |
Кики |
975-56-68 |
Июнь 26, 1991 |
2 000р. |
№ пп |
Фамилия |
Категория |
Оклад |
Должность |
|
Иванов |
4 |
200у.е. |
Лаборант |
|
Петров |
6 |
600у.е. |
Техник |
|
Сидоров |
10 |
1200у.е. |
Инженер |
Заполнить 2-3 записями и затем создать запросы:
Заполнить все поля кроме Биография 2-3 записями и создать запрос «Возраст в годах», подсчитывающий количество полных лет .
Создать запросы:
№ |
НАИМЕНОВАНИЕ ТОВАРА |
Дата поступления товара |
Количество |
Цена |
1 |
Зефир |
10.апр |
3 |
50р. |
2 |
Молоко |
01.апр |
5 |
20р. |
3 |
Колбаса |
10.май |
7 |
100р. |
4 |
Сосиски |
12.июн |
9 |
150р. |
Надо определить количество товара, доставляемое с каждого из складов в магазины, при условии минимальных расходов на транспортировку.
Склад 1
80 т
Склад 2
70 т
Склад 3
120 т
Магазин 1
170 т
Магазин 2
100 т
800руб/т
500руб/т
1000руб/т
650руб/т
700руб/т
1100руб/т
Количество товара на складе, т |
|
Магазин 1 |
Магазин 2 |
|||||
Коли-чество товара, отправляемое со склада, т |
Стоимость перевозки, руб/т |
Требу-емое количество товара, т |
Расходы на транспортировку, руб |
Стоимость перевозки, руб/т |
Требу-емое количество товара, т |
Расходы на транспортировку, руб |
||
Склад 1 |
80 |
0 |
800 |
0 |
0 |
500 |
0 |
0 |
Склад 2 |
70 |
0 |
1000 |
0 |
0 |
650 |
0 |
0 |
Склад 3 |
120 |
0 |
700 |
0 |
0 |
1100 |
0 |
0 |
Итого |
270 |
0 |
Итого> |
0 |
0 |
Итого> |
0 |
0 |
Целевая функция - расходы на транспортировку |
0 |
Заданное количество> |
170 |
|
Заданное количество> |
100 |
|
Заполнить таблицу 3-4 записями кроме поля «Описание товара» и «Фотография», убедиться, что база данных заполняется правильно.
Создать запросы:
Написать код текстового окна таким образом, чтобы значение в ячейке В1 (допустим, 10000) появлялось только тогда, когда в поле txt вводился пароль (допустим, «Агент-007». Иначе в ячейке В1 должны прописываться знаки вопросов.