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





Скачать 236.6 Kb.
НазваниеШкола для программистов Макаренко М. Д
страница4/10
Дата публикации02.07.2013
Размер236.6 Kb.
ТипСамостоятельная работа
100-bal.ru > Информатика > Самостоятельная работа
1   2   3   4   5   6   7   8   9   10

5.Цикл for График функции - парабола


Нарисовать на экране график любой функции

Private Sub Form_Paint()

Rem размер экрана

w = Form1.Width

h = Form1.Height

setka = Form1.Width \ 10

Rem координатная сетка

For x = 1 To 10

xg = x * setka

Line (xg, 0)-(xg, w), QBColor(8)

Line (0, xg)-(w, xg), QBColor(8)

Next

Rem оси координат

Line (0, w \ 2)-(w, w \ 2), QBColor(5)

Line (w \ 2, 0)-(w \ 2, w), QBColor(5)

a = 5

b = -2

c = 3

Rem график

For x = -5 To 5 Step 0.001

y = a * x * x + b * x + c

xg = w \ 2 + x * setka

yg = w \ 2 - y * setka

PSet (xg, yg), QBColor(2)

Next

End Sub

  • Нарисовать график функции квадратный корень

  • Нарисовать два графика функции одновременно

  • Нарисовать график функции квадратный корень

  • Составить расписание звонков в школе, если продолжительность уроков 40 мин, перемена 10 мин, большая перемена после 3-го урока 20 мин.

  • Проверка знаний по математике (таблица умножения)

  • Нарисовать семейство полиномиальных функций х в степени



6.Еще раз Цикл for Мишень


Вывести в середине экрана 10 окружностей разного цвета – мишень. По щелчку мыши нарисовать место выстрела и вывести диалоговое окно с количеством выбитых баллов. В заголовке формы вывести всего заработанных очков.
Dim all

Private Sub Form_Activate()

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)

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

FillColor = 0

Circle (X, Y), 0.2, 0

MsgBox (d)

all = all + d

Form1.Caption = "Всего очков " + Str(all)

End Sub

 - молоко

 - двухцветная мишень

 - кол-во выстрелов

7.Проверка таблицы умножения


Dim a, b, c As Integer

Private Sub Form_Paint()

Randomize Timer

For i = 1 To 10

ForeColor = QBColor(2): Font.Size = 14

Print "Пример "; i

a = Int(Rnd * 10 + 1): b = Int(Rnd * 10 + 1)

ForeColor = QBColor(0): Font.Size = 16

Print a; " x "; b; " = ";

c = InputBox("Сколько получиться")

Print c

If a * b = c Then Print "Правильно" Else Print "Не верно"

Next

End Sub

  • Легенда о создателе шахмат

  • Червяк съедает каждый день на один листик больше, чем в предыдущий. Сколько листиков съест он за месяц, если в момент рождения он съедает 2 листа.

  • Когда Василисе Премудрой исполнилось 18 лет, Кощей Бессмертный стал сватать ее себе в жены. Василиса поинтересовалась насколько богат Кощей, он ответил, что у него 359 сундуков с золотом, и каждый год прибавляется еще 2. Василиса сказала, что выйдет замуж, когда у Кощея будет 1000 сундуков. Сколько лет будет Василисе?

  • Ввести два числа а и b. Вывести квадраты чисел, расположенных между a и b.

  • Вычислить a в степени b не используя знак возведения в степень (через произведение).

  • Вводится 10 чисел, посчитать, сколько из них двузначных.

  • Напечатать заданное количество четных чисел, начиная с другого заданного числа.

  • Посчитать факториал числа (3!=1*2*3).

  • Квадрат числа а равен сумме а первых нечетных чисел. Посчитать квадрат для любого а.(32=1+3+5)

  • Задать размеры прямоугольника (треугольника) и напечатать на экране прямоугольник (треугольник) из звездочек.


1   2   3   4   5   6   7   8   9   10

Похожие:

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


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


При копировании материала укажите ссылку © 2013
контакты
100-bal.ru
Поиск