Презентация Проектное проектирование по информатике КУО «Специализированная школа 129 физико-математического профиля» ДГС онлайн

Содержание слайда: Проектное проектирование по информатике КУО «Специализированная школа №129 физико-математического профиля» ДГС

Содержание слайда: Линейные алгоритмы Цель работы: а) Формирование навыков и умений по составлению линейных алгоритмов на языке Visual Basic б) Формирование навыков и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

Содержание слайда: Постановка задачи 27. Участок имеет форму равнобедренной трапеции. Вычислить её периметр и площадь по заданным сторонам. Модель решения задачи Высота h = Периметр P = C * 2 + A + B Высота S =

Содержание слайда: Блок-схема Блок-схема

Содержание слайда: Программа решения задачи Программа решения задачи Dim A As Integer = Val(TextBox2.Text) Dim B As Integer = Val(TextBox3.Text) Dim C As Integer = Val(TextBox4.Text) Dim H As Single Dim S As Single Dim P As Single H = Math.Sqrt((C ^ 2) - ((A - B) ^ 2) / 4) MessageBox.Show("Высота h = Math.Sqrt((C ^ 2) - ((A - B) ^ 2) / 4)") MessageBox.Show("Высота h = " & H) P = C * 2 + A + B MessageBox.Show("Периметр P = C * 2 + A + B") MessageBox.Show("Периметр Р = " & P) TextBox1.Text = P S = ((A + B) / 2) * H MessageBox.Show("Площадь S = ((A + B) / 2) * H") MessageBox.Show("Площадь S = " & S) TextBox5.Text = S

Содержание слайда: Камеральная отладка При A=5, B=6, C=7, h=7, P=25, S=38,5 Результаты решения на ПК При A=5, B=6, C=7, P=25, S=38,401  

Содержание слайда:

Содержание слайда: Разветвляющиеся алгоритмы Цель работы: а) Формирование навыков и умений по составлению разветвляющихся алгоритмов на языке Visual Basic б) Формирование навыков и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

Содержание слайда: Постановка задачи 26.Значения чисел A, B, C поменять местами так, чтобы выполнялось условие A>=B>=C Модель решения задачи Сравнение чисел между собой по порядку и раздельно.

Содержание слайда: Блок-схема Блок-схема

Содержание слайда: Программа решения задачи Программа решения задачи Dim A As Integer = Val(TextBox1.Text) Dim B As Integer = Val(TextBox2.Text) Dim C As Integer = Val(TextBox3.Text)   If A >= B And A >= C Then If B >= C Then TextBox4.Text = A TextBox5.Text = B TextBox6.Text = C Else TextBox4.Text = A TextBox5.Text = C TextBox6.Text = B End If ElseIf B >= A And B >= C Then If A >= C Then TextBox4.Text = B TextBox5.Text = A TextBox6.Text = C Else TextBox4.Text = B TextBox5.Text = C TextBox6.Text = A End If ElseIf C >= A And C >= B Then If A >= B Then TextBox4.Text = C TextBox5.Text = A TextBox6.Text = B Else TextBox4.Text = C TextBox5.Text = B TextBox6.Text = A End If End If

Содержание слайда: Камеральная отладка При A=5, B=8, C=7, A=8, B=7, C=5 При A=5, B=6, C=7, A=7, B=6, C=5 Результаты решения на ПК При A=5, B=6, C=7, A=7, B=6, C=5 При A= -3, B=1, C=0, A=1, B=0, C=-3

Содержание слайда:

Содержание слайда: Циклические алгоритмы Цель работы: а) Формирование навыков и умений по составлению циклических алгоритмов на языке Visual Basic б) Формирование навыков и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

Содержание слайда: Постановка задачи 21. Найти все целые числа, больше 100 и меньше 1000, десятичная запись которых будет возрастающей последовательностью цифр. Модель решения задачи Рассматриваем число: 1) проверяем – первая цифра числа больше второй цифры этого числа 2) проверяем больше ли вторая цифра третьей цифры 3) если все условия истинны то нам необходимо вывести это число 4)если нет то берем следующее за ним.

Содержание слайда: Блок-схема Блок-схема

Содержание слайда: Блок-схема Блок-схема

Содержание слайда: Программа решения задачи Программа решения задачи Dim B As String Dim B1 As String = "" Dim A(2) As Integer For I As Integer = 100 To 1000   Dim C As String = Val(I) Dim D As Integer   For I1 As Integer = 0 To 2 D = C.Substring(I1, 1) A(I1) = Val(D) Next   If A(0) < A(1) And A(0) < A(2) And A(1) < A(2) Then B = Val(I) End If   If B <> B1 Then TextBox1.Text = TextBox1.Text + B + " " End If   B1 = B Next

Содержание слайда: Программа решения задачи For S As Integer = 1 To 9 For D As Integer = 2 To 9 For C As Integer = 3 To 9 If S < D And S < C Then If D < C Then TextBox1.Text = TextBox1.Text & S & D & C & " " End If End If Next Next Next

Содержание слайда: Камеральная отладка 123, 234, 456, 678, 789. Результаты решения на ПК  

Содержание слайда:

Содержание слайда: Одномерные массивы Цель работы: а) Формирование навыков и умений по составлению одномерных массивов на языке Visual Basic б) Формирование навыков и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

Содержание слайда: Постановка задачи 27. Вывести элементы массива целых чисел S размерностью 20 в виде таблицы: S1 S2 S3 …. S20 S2 S3 S4 …. S1 S3 S4 S5 …. S2 Модель решения задачи 1) Заполняем массив значениями 2) Выводим значения начиная с 0-вой позиции 3) Со следующей строки выводим значение на позицию больше чем была предыдущая 4) Оставшиеся значение выводим по возрастанию позиции 5) Возвращаемся на пункт 3-й

Содержание слайда: Блок-схема Блок-схема

Содержание слайда:

Содержание слайда: Блок-схема Блок-схема

Содержание слайда:

Содержание слайда: Программа решения задачи: Dim A(19) As String For I As Integer = 1 To 20 A(I - 1) = Val(InputBox("Введите число под номером " & I, "Введите величину", "")) If A(I - 1) = "" Then A(I - 1) = "0" End If Next Dim K As Integer = 0 Dim B As Integer = 0 For I2 As Integer = 0 To 19 For I3 As Integer = 0 To 19 If K + I3 <= 19 Then TextBox1.Text = TextBox1.Text & A(K + I3) & " " Else If B < 1 Then For T As Integer = 0 To I2 - 1 TextBox1.Text = TextBox1.Text & A(T) & " " Next B = B + 1 End If End If Next K = K + 1 TextBox1.Text = TextBox1.Text & vbNewLine B = 0 Next

Содержание слайда: Программа решения задачи: Dim S As Integer = Val(TextBox3.Text) Dim A(S) As String For I As Integer = 1 To S A(I - 1) = Val(InputBox("Введите число под номером " & I, "Введите величину", "")) If A(I - 1) = "" Then A(I - 1) = "0" End If Next For I1 As Integer = 0 To S - 1 TextBox2.Text = TextBox2.Text & A(I1) & vbNewLine Next Dim K As Integer = 0 Dim B As Integer = 0 For I2 As Integer = 0 To S - 1 For I3 As Integer = 0 To S - 1 If K + I3 <= S - 1 Then TextBox1.Text = TextBox1.Text & A(K + I3) & " " Else If B < 1 Then For T As Integer = 0 To I2 - 1 TextBox1.Text = TextBox1.Text & A(T) & " " Next B = B + 1 End If End If Next K = K + 1 TextBox1.Text = TextBox1.Text & vbNewLine B = 0 Next

Содержание слайда: Камеральная отладка 1234 2341 3412 4123 Результаты решения на ПК  

Содержание слайда: