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

Скачать 236.6 Kb.

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

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

1 2 3 4 5 6 7 8 9 10

17.Игра в спички

В игру играют двое. Каждый по очереди берет 1 или две спички. Выигрывает тот, кто взял последнюю спичку

Блоксхему!

Dim igrok As Integer

Private Sub Form_Activate()

Randomize Timer

n = Int(Rnd * 10 + 3)

Print n

p = 0

While p = 0

igrok = InputBox("Вомите спичку")

If igrok < 3 And n - igrok >= 0 Then

Print "Вы взяли", igrok

n = n - igrok

If n = 0 Then

Print " Вы выиграли! "

p = 1

Else

Print "Осталось спичек", n

k = Int(Rnd * 2 + 1)

Print "Компьютер взял", k

n = n - k

If n = 0 Then

Print "Компьютер выиграл"

p = 1

Else

Print "Осталось спичек", n

End If

End If

Else

MsgBox ("низя!")

End If

Wend

End Sub
Нарисовать спички на экране

18.Поймай медведя

Private Sub Form_Paint()

Rem Охота на медведя

Dim l, r, x, y, m, Zar

Randomize

r = 10

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

For l = 1 To 10

Line (l, 0)-(l, 10), QBColor(8)

Line (0, l)-(10, l), QBColor(8)

Next l

xm = Int(Rnd * 10) + 1

ym = Int(Rnd * 10) + 1

While ym <> yzar And xm <> xzar

xzar = InputBox("Введите координату x ZARINY")

yzar = InputBox("Введите координату y ZARINY")

Circle (xzar, yzar), 0.3

If ym > yzar Then MsgBox "Южнее"

If ym < yzar Then MsgBox "Севернее"

If xm > xzar Then MsgBox "Восточнее"

If xm < xzar Then MsgBox "Западнее"

Wend

End Sub

Структуры данных

Линейные массивы

Контрольная работа

Представим себе не далекое будущее. Преподаватель ходит по рядам и выставляет оценки в журнал. Что же здесь из будущего? Просто журнал у нас электронный, небольшой карманный компьютер. Чтобы оценки не терялись, сразу подводились итоги за четверти. Да и решить, кого надо вызвать к доске, тоже может компьютер по предыдущим результатам. А сколько проблем у учителей с контрольной работой! Предположим ученикам 9 класса выставили оценки по контрольной работе, помогите преподавателю проанализировать ее результаты:

Сколько учеников сдали контрольную (оценки 5, 4, 3)

Вывести фамилии учеников, которым необходимо пересдать контрольную

Каков процент отличников по контрольной, а хорошистов?

Какой информацией должен владеть компьютер, чтобы решить задачу? Мы должны указать ему количество человек в классе, фамилии учеников и их оценки за контрольную. Но всю нужную информацию хранит в переменных, какие переменные и сколько нам нужны? С количеством учеников все просто – выберем переменную n. А для фамилий (если в классе 20 учеников) придется заводить 20 переменных, и для оценок тоже? А если в классе 40 учеников? Чем дальше, тем задача становиться все страшнее. В математике есть такой метод, чтобы обозначить числа или элементы одного класса (например арифметической прогрессии) мы используем одну букву и приписываем к ней маленький индекс в низу – номер элемента.
Заведем два массива, один для фамилий, второй для оценок. Фамилии введем с клавиатуры, оценки случайным образом. Выведем результаты контрольной на экран.

 –
 – Заполнить массив числами от -10 до 10. Увеличить все четные вдвое. Распечатать.

19.Автопилот

Наш самолет потерпел аварию, у него заканчивается топливо, но еще надо пересечь территорию города. Рассчитать минимальную высоту, на которой автопилот может провести самолет над городом, если диспетчер передал высоты зданий.
Const n = 12

Dim v(n)

Private Sub Form_Activate()

Randomize

w = Form1.ScaleWidth

h = Form1.ScaleHeight

md = 300

wd = (w - (n + 1) * md) \ n

x = md

For i = 1 To n

v(i) = (Rnd * (h - 1000) + 200)

Line (x, h)-(x + wd, h - v(i)), 7, BF

x = x + wd + md

Next i

Max = 0: p = 0

For i = 1 To n

If v(i) > Max Then Max = v(i): pmax = i

Next

MsgBox (pmax)

'изменить цвет самого высокого

x = pmax * md + wd * (pmax - 1)

Line (x, h)-(x + wd, h - v(pmax)), QBColor(5), BF

End Sub

 – если зданий такой высоты несколько, выделить цветом их все.

 – Если не считать это здание, которое будет вторым по высоте
 – Газонокосилка. На вашем газоне растет трава (случайным образом заполнить массив из 20 элементов числами (высота травы) от 3 до 10). Настройте газонокосилку на самую низкую траву и подравнять под неё газон. Найти массу полученной травы (1 м – 1 гр)

 – В классе 15 человек, выстроились в шеренгу на уроке физкультуры. Тренер по баскетбол попросил одного самого высокого стать первым, а самого низкого последним.