Презентация на тему Проектирование по информатике

составлению линейных алгоритмов на языке Visual Basic
б) Формирование навыков

и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

C * 2 + A + B
1
2
3
4
5
Конец
Начало

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

S=38,5




Результаты решения на ПК
При A=5, B=6, C=7,
P=25, S=38,401
 

составлению разветвляющихся алгоритмов на языке Visual Basic
б) Формирование навыков

и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

местами так, чтобы выполнялось условие A>=B>=C

Модель решения задачи Сравнение

чисел между собой по порядку и раздельно.

B1=C, C1=B
A1=C, B1=A, C1=B
A1=A, B1=B, C1=C
да
нет
A1=C, B1=B, C1=A
A1=B, B1=A,

C1=C

A1=B, B1=C, C1=A

1

1

Конец

Начало

A>=B

A>=C

B>=C

B>=A

B>=C

8

A>=C

C>=A

C>=B

7

7

C>=B

да

да

да

да

да

да

да

да

нет

нет

нет

нет

нет

нет

нет

нет

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

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

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)если нет то берем следующее за ним.

цифры числа I
2 цифра числа I < 3

цифры числа I

I=I+1

да

нет

да

да

нет

нет

1

2

3

4

5

6

Конец

Начало

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

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

ПК  

составлению одномерных массивов на языке Visual Basic
б) Формирование навыков

и умений по вводу, редактированию, тестированию, выполнению на ПК линейных алгоритмов.

Вывести элементы массива целых чисел S размерностью 20 в

виде таблицы:
S1 S2 S3 …. S20
S2 S3 S4 …. S1
S3 S4 S5 …. S2

Модель решения задачи 1) Заполняем массив значениями 2) Выводим значения начиная с 0-вой позиции 3) Со следующей строки выводим значение на позицию больше чем была предыдущая 4) Оставшиеся значение выводим по возрастанию позиции
5) Возвращаемся на пункт 3-й

S
1
I=I+1
5
8
9

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

2341 3412 4123
Результаты решения на ПК