Школа для программистов Макаренко М. Д

Скачать 236.6 Kb.

Название	Школа для программистов Макаренко М. Д
страница	8/10
Дата публикации	02.07.2013
Размер	236.6 Kb.
Тип	Самостоятельная работа

100-bal.ru > Информатика > Самостоятельная работа

1 2 3 4 5 6 7 8 9 10

20.Тест

Автоматизируйте обработку шуточного теста (в скобках указаны правильные ответы)

2+2*2 (6)

Укол через 30 минут. Сколько минут на 3 укола. (60)

На двух руках 10 пальцев. Сколько на 10 руках.(50)

Сколько распилов надо чтобы разделить брус на 5 частей(4)

Пять свечей горели. Две потухли, сколько осталось?(2)

Dim otv As Integer

Private Sub Form_Activate()

vopr = Array("Сколько будет 2+2*2", "Укол делают через 30 минут. Сколько минут нужно на 3 укола", "На двух руках 10 пальцев. Сколько на 10 руках?", "Сколько распилов надо сделать, чтобы разделить брус на 5 частей", "Пять свечей горели. Две потухли, сколько осталось?")

verno = Array(6, 60, 50, 4, 2)

pr = 0

ForeColor = QBColor(5)

Font.Size = 12

Print "Тест ГЕНИЙ-ИДИОТ"

For i = 0 To 4

ForeColor = QBColor(2)

Print "Вопрос №", i + 1

otv = InputBox(vopr(i))

Print vopr(i)

ForeColor = QBColor(1)

Print "Ваш ответ:", otv

If otv = verno(i) Then pr = pr + 1

Next i

ForeColor = QBColor(5)

Print pr, "правильных ответов"

End Sub

 – Добавьте свой собственный вопрос
 – Выпуклый N-угольник задан координатами вершин, определить периметр и площадь.

 – На плоскости расположены N точек, заданные своими координатами. Найти точку, наиболее удаленную от начала координат

21.Антагонистические игры

/бумажная полоска длины 20. каждый игрок зачеркивает 3 смежные клетки, выигрывает тот кто закрасил больше леток

//////////????????????????????

 – Решить задачу о кроликах (числа Фибоначчи) используя массивы

 – Сумма цифр числа

22.Змейка

Dim x(100), y(100), n, c
Private Sub Form_Activate()

n = 5

Scale (0, 0)-(50, 50)

For i = 1 To n

x(i) = 20 + i: y(i) = 20

Next

draw

End Sub

Sub draw()

FillStyle = 0

FillColor = c

For i = 1 To n

Circle (x(i), y(i)), 0.5, c

Next

End Sub

Sub move_zmey()

For i = n To 2 Step -1

x(i) = x(i - 1):

y(i) = y(i - 1)

Next

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

c = Form1.BackColor: draw

move_zmey

If KeyCode = 38 Then y(1) = y(1) - 1: n = n + 1 'вверх

If KeyCode = 37 Then x(1) = x(1) - 1 'влево

If KeyCode = 39 Then x(1) = x(1) + 1 'вправо

If KeyCode = 40 Then y(1) = y(1) + 1 'вниз

c = QBColor(2): draw

End Sub
 – Выделить голову змеи

 – Нарисовать одну еду и кушать ее, удлиняясь

 – Нарисовать много еды

 – При укусе самого себя удав умирает

23.Шарики

Dim a(9), kakoj As Integer

Sub Draw()

For i = 1 To 9

FillColor = QBColor(a(i))

Circle (i, 1), 0.4, QBColor(a(i))

Next

End Sub

Private Sub Form_Activate()

Scale (0, 0)-(10, 2)

FillStyle = 0

kuda = 5

For i = 1 To 4

a(i) = 1

a(i + 5) = 2

Next

Draw

While p = 0

kakoj = InputBox("Какой шарик двигать?", "Ваш ход", Default, Form1.Left, Form1.Top + Form1.Height)

If kakoj <> 0 Then

If Abs(kakoj - kuda) < 3 Then

a(kuda) = a(kakoj)

a(kakoj) = 0

kuda = kakoj

Draw

End If

End If

Wend
End Sub
 – Добавить проверку завершения игры

 – Напишите игру «Быки и коровы»

24. Простой покер (сдача)

Будем рассматривать простой пятикарточный покер с одной колодой. Как играть в покер поговорим попозже, а сегодня займемся общей для всех карточных игр проблемой сдачей карт. Будем раздавать по

5 карт.

Вспомним что в колоде существуют четыре масти и различные достоинства карт от 2 до туза.

Каким образом закодировать все карты?

Создадим на экране ряд из 5 карт - Image (strech,picture)

При раздаче карт выведем на них с помощью объекта Label1 достоинство и масть карты

достоинство карты от 2 до 15 (туз). Масть карты от 1 до 4 (1- крести, 2- бубны, 3- червы, 4- пики)

Изучаемые понятия: Image, Label, Массив объектов, font, forecolor, backstyle=transparent, command
 – Вывести вместо цифр, обозначающих картинки (король и др.) их буквенные обозначения

 – Вывести вместо цифр обозначающих масть их символы, используя коды символов (167-170) и шрифт Symbol и коды  (167)(168)(169)(170)
Dim poker(5), mast(5), kart

Private Sub Form_Activate()

kart = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "Â", "Ä", "Ê", "T")

End Sub
Private Sub Command1_Click()

Randomize

For i = 1 To 5

poker(i) = Int(Rnd * 13 + 1)

mast(i) = Int(Rnd * 4 + 1)

'Print poker(i); " "; " mast(i);

Label1(i - 1).Caption = kart(poker(i))

If mast(i) = 1 Or mast(i) = 4 Then Label2(i - 1).ForeColor = RGB(0, 0, 0) Else Label2(i - 1).ForeColor = RGB(255, 0, 0)

Label2(i - 1).Caption = Chr(mast(i) + 166)

Next i

End Sub

1 2 3 4 5 6 7 8 9 10

Похожие:

	А. С. Макаренко о воспитании в коллективе Он научился из лишённых всякого положительного воспитания оборванцев делать образованных, культурных, а главное, высоконравственных...		Данная публикация (по журналу «Советская педагогика» 1991,6,7) представляет... Настоящая книга содержит воспоминания брата А. С. Макаренко – Виталия Семеновича о проведенных им совместно со старшим братом детских...
	Программа ставит перед педагогами задачу воспитывать молодёжь, понимающую... А. С. Макаренко ознаменовалось Международной научно-практической конференцией «Педагогика А. С. Макаренко в решении проблем современного...		Учебник по C++ для начинающих программистов Уроки для изучения ассемблера Они хорошо подходят для лабораторных работ по Delphi программированию, также на основе этих исходников возможно написание своих собственных...
	Студенты спбгу успешно защитили рефераты в Школе Программистов Исследование поведения китов-белух — матерей и детенышей — расширяет представления ученых о функциональной асимметрии мозга у позвоночных...		А. С. Макаренко Все виды и формы проверки знаний направлены Это удобно и для учителя, и для учащихся разряжается напряженный ритм работы, выпадает несколько минут интеллектуального отдыха,...
	Программа для участников выездного семинара клуба в г. Магадан 20-21... Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)		Информация для блиц-докладчиков Пожалуйста, внимательно изучите следующую... Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)
	Новослободская, дом 23 Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)		Следует ли обеззараживать сигналы seti? Этот вопрос помог бы понять мотивацию сообщения до прочтения слишком большой его части. Подобно Одиссею, нам, возможно, следует заткнуть...
	Р оссийской федерации Макаренко С. Н. Профессиональная этика: Учебно-методическое пособие. – Таганрог: Изд-во тти юфу, 2012. – 34 с		ПовесткА заседания Правительства Калининградской области Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)
	Собрание сочинений Марбургское издание, сканированные тома Издания и исследования по А. С. Макаренко в Германии и в других странах мира за десятки лет		Какая философия науки нам нужна? Факультет философии и политологии спбгу Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)
	Программа по формированию навыков безопасного поведения на дорогах... Н. В. Макаренко учителей истории от 30. 08. 2013 г. №149 Протокол от 27. 08. 2013 г. №1		Обучение навыкам научных публичных выступлений в контексте современной... Светлана Макаренко, +7 (4212) 672 177 Олеся Хрусталева (организационные вопросы)

Школьные материалы