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

Скачать 236.6 Kb.

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

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

1 2 3 4 5 6 7 8 9 10

25.Простой покер (очки)

Раздать карты для покера на одного игрока. Определить расклад игрока и вывести его название.

Название раскладов (от наименьшего к наибольшему)

1. две одинаковые карты – «двойка»

2. три одинаковые карты – «тройка»

3. две «двойки»

4. тройка двойка

5. четыре одинаковые карты – «каре»

6. 5 карт одной масти – «рояль»

7. последовательность из 5 карт - «флэш»

8. последовательность из карт одной масти – «флэш-рояль»

9. «каре»+джокер – «покер»

 – Добавить джокера – достоинство 0, масть 0. Разместить на случайном месте массива.

 – Выводить надписи цветом мастей. Найти номер первого туза. Выдать сообщение.

26.Снегопад

27.Космические войны

28.Сортировка человечков по росту. (пузырьком и обменная).

Домашняя работа

Постоянная Капрекара. Любое число переворачиваем (т.е. располагаем цифры в обратном порядке) и вычитаем из исходного. С полученным числом повторить тоже самое, пока не появиться число, при вычитании перевернутого, равное уменьшаемому. Это число и называется постоянной Капрекара. Определить постоянную Капрекара для любого заданного числа.

29.Мишень (динамическая сортировка вставками)

Десять выстрелов по мишени с помощью мыши. Массив расстояний до мишени, сортируется по возрастанию. Определить новый выстрел какое место занял.

Сортировка вставкамиVB

Dim i, d(10)

Private Sub Form_Paint()

i = 0

Form1.ScaleWidth = Form1.ScaleHeight

Scale (0, 0)-(20, 20)

Cls

FillStyle = 0

For i = 10 To 1 Step -1

FillColor = QBColor(i)

Circle (10, 10), i, QBColor(i)

Next

End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

i = i + 1

'подсчет очков

d(i) = 10 - Int(Sqr((10 - X) ^ 2 + (10 - Y) ^ 2))

'MsgBox (d(i))

FillColor = 0

Circle (X, Y), 0.2, 0

j = i

While d(j) > d(j - 1) And j > 1

p = d(j): d(j) = d(j - 1): d(j - 1) = p

j = j - 1

Wend

MsgBox (j)

PSet (0, i - 1)

For j = 1 To i

Print d(j);

Next

If i = 10 Then MsgBox ("стрельба окончена"): i = 0: Call Form_Paint

End Sub
 – определить удачность выстрела, то есть его место

 – Добавить мешалку к мышке, чтобы ее дергало при стрельбе и тем самым мешало точно выстрелить

 – Найти самое большое число, полученное из заданного перестановкой цифр.

 – Дано 20 действительных чисел. Определить образуют ли они возрастающую последовательность.

30.Двоичный поиск

Домашнее задание. Угадайка наоборот

Двумерные массивы

Матрицы. Заполнить 0 и 1 в шахматном порядке. Распечатать.	Делаем фигуры: 7-король, 8 - ферзь 3-пешка 4-ладья, 5-слоны, 6-кони
		Заполнить матрицу числами от 1 до n*m

Кинозал
Девятки и пятнашки
Сапер

Const n = 10, m = 15, kolbomb = 20

Dim bombs(n, m), chisl(n, m)
Private Sub Form_Activate()

kletka = 500

'Form1.Width = ScaleX(kletka * m, vbPixels, vbTwips)

Form1.Width = kletka * m

Form1.Height = kletka * n

Scale (0, 0)-(m, n)

For i = 1 To n

Line (0, i)-(m, i)

Next

For i = 1 To m

Line (i, 0)-(i, n)

Next

Randomize Timer

k = 0

While k < kolbomb

i = Int(Rnd * n + 1)

j = Int(Rnd * m + 1)

If bombs(i, j) = 0 Then

bombs(i, j) = 1: k = k + 1: Circle (j - 0.5, i - 0.5), 0.2

End If

Wend

End Sub
Function chet(i, j)

s = 0

For q = -1 To 1

For w = -1 To 1

If ((i + q) > 0 And (i + q) <= n) Then

If ((j + w) > 0 And (j + w) <= m) Then

If bombs(i + q, j + w) = 1 Then s = s + 1

End If

End If

Next w, q

chet = s

End Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

For i = 1 To n

For j = 1 To m

If bombs(i, j) = 0 Then

chisl(i, j) = chet(i, j): PSet (j - 1, i - 1): Print chisl(i, j)

End If

Next

Next

По щелчку мыши либо показать число, либо взрыв – игра окончена
	пятнашки шашки: начальное расположение

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 Олеся Хрусталева (организационные вопросы)

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