Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Обзорки Информатика.doc
Скачиваний:
17
Добавлен:
27.10.2018
Размер:
2.87 Mб
Скачать

3 Этап Составление программ

Самостоятельное составление программ и решение задач.

17.Методика введения понятия “Цикл while”

1 Этап Подготовительный

1.Циклы применяются для повторения нескольких шагов множество раз.

2. Циклы организуются следующими операторами:

Do While условие выполняется

команды

[Exit Do]

Loop

Do

команды

[Exit Do]

Loop While условие выполняется

Do Until условие не выполняется

команды

[Exit Do]

Loop

Do

команды

[Exit Do]

Loop Until условие не выполняется

3.Условия применимости циклов:

Цикл While (Until) применяется когда известно условие выхода из цикла.

Очень часто данный вид цикла приводит к зацикливанию, поэтому рекомендуется сохранить программу перед запуском.

2 Этап Работа с готовыми программами

Пример программы:

Проект «Пирамида»

Public Class frmPiramid

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim SOsn, Shag, X0, Y0, Dlina As Long

Dim picGraphics As Graphics

picGraphics = picPiramid.CreateGraphics()

Dim rnd As New Random()

X0 = picPiramid.Width / 2

Y0 = picPiramid.Height / 2

SOsn = Convert.ToInt32(txtSOsn.Text)

Shag = Convert.ToInt32(txtShag.Text)

Dlina = Math.Sqrt(SOsn)

Do

Dim RndBrush = New SolidBrush(Color.FromArgb(rnd.NextDouble * 255, rnd.NextDouble * 255, rnd.NextDouble * 255))

picGraphics.FillRectangle(RndBrush, Convert.ToInt16(X0 - Dlina / 2), Convert.ToInt16(Y0 - Dlina / 2), Dlina, Dlina)

Dlina = Dlina - Shag

Loop While Dlina > 0

End Sub

End Class

3 Этап Составление программ

Самостоятельное составление программ и решение задач.

18.Методика введения понятия “Строки”

1 Этап Подготовительный

1.Строки предназначены для хранения набора символов. Строковая величина представляет собой одномерную таблицу. Строковая переменная содержит текст в кодировке Unicode длиной до 231 (более 2 миллиардов!) символов. Объявление строковой переменной: Dim Stroka As String Stroka= “информатика”

2.Для работы со строковой переменной используются следующиефункции:

Chr(Cod) – символ по коду (Chr(232) символ “и”, Chr(10)+Chr(13) конец строки и перевод каретки);

ASC(Stroka) – код первого символа в строке (для символа “и” - 232;

3.Для работы со строковой переменной используются следующие свойства и методы:

Stroka.Length – длина строки; (длина 11 символов)

Symbol= Stroka.Substring(Nachalo, Dlina) – вырезка из переменной; (Simvol= Stroka.Substring(2,5) – “форма”). Нумерация символов начинается с 0.

Stroka.Substring(Nachalo, Dlina)= Symbol – замена части символов; (Stroka.Substring(4,1)= “л” – “инфолматика”)