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

Сентябрь 1, 2022

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

Содержание

2. Линейные алгоритмы Цель работы: а) Формирование навыков и умений по составлению линейных алгоритмов на языке Visual
4. Блок-схема Ввод A, B, C Вывод S, P P = C * 2 + A +
5. Программа решения задачи Dim A As Integer = Val(TextBox2.Text) Dim B As Integer = Val(TextBox3.Text) Dim
6. Камеральная отладка При A=5, B=6, C=7, h=7, P=25, S=38,5 Результаты решения на ПК При A=5, B=6,
7. Путь выполнения проекта
8. Разветвляющиеся алгоритмы Цель работы: а) Формирование навыков и умений по составлению разветвляющихся алгоритмов на языке Visual
9. Постановка задачи 26.Значения чисел A, B, C поменять местами так, чтобы выполнялось условие A>=B>=C Модель решения
10. Блок-схема Ввод A, B, C Вывод A1, B1, C1 A1=A, B1=C, C1=B A1=C, B1=A, C1=B A1=A,
11. Программа решения задачи Dim A As Integer = Val(TextBox1.Text) Dim B As Integer = Val(TextBox2.Text) Dim
12. Камеральная отладка При A=5, B=8, C=7, A=8, B=7, C=5 При A=5, B=6, C=7, A=7, B=6, C=5
13. Путь выполнения проекта
14. Циклические алгоритмы Цель работы: а) Формирование навыков и умений по составлению циклических алгоритмов на языке Visual
15. Постановка задачи 21. Найти все целые числа, больше 100 и меньше 1000, десятичная запись которых будет
16. Блок-схема Вывод I I I=100 1 цифра числа I 2 цифра числа I I=I+1 да нет
17. Блок-схема Вывод I S S=1, D=2, C=3 S=S+1, D=S+1, C=D+1 да нет да да нет нет
18. Программа решения задачи Dim B As String Dim B1 As String = "" Dim A(2) As
19. Программа решения задачи For S As Integer = 1 To 9 For D As Integer =
20. Камеральная отладка 123, 234, 456, 678, 789. Результаты решения на ПК
21. Путь выполнения проекта
22. Одномерные массивы Цель работы: а) Формирование навыков и умений по составлению одномерных массивов на языке Visual
23. Постановка задачи 27. Вывести элементы массива целых чисел S размерностью 20 в виде таблицы: S1 S2
24. Блок-схема I=0 Ввод A(I) Начало I I1=0, I2=0, B=0, K=0 I2 I3 18 B=0, K=K+1, I2=I2+1
25. Конец 7 K+I3 Вывод A(K+I3) I3=I3+1 7 B 11 T=0 T B=B+1, I3=I3+1 7 Вывод A(T)
26. Блок-схема I=0 Ввод A(I) Начало I I1=0, I2=0, B=0, K=0 I2 I3 19 B=0, K=K+1, I2=I2+1
27. Конец 8 K+I3 Вывод A(K+I3) I3=I3+1 7 B 12 T=0 T B=B+1, I3=I3+1 8 Вывод A(T)
28. Программа решения задачи: Dim A(19) As String For I As Integer = 1 To 20 A(I
29. Программа решения задачи: Dim S As Integer = Val(TextBox3.Text) Dim A(S) As String For I As
30. Камеральная отладка 1234 2341 3412 4123 Результаты решения на ПК
32. Скачать презентацию

Слайд 2

Линейные алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению линейных алгоритмов

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

Слайд 3

Слайд 4

Блок-схема
Ввод A, B, C
Вывод S, P
P = C * 2

+ A + B

Конец

Начало

Слайд 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

Слайд 6

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

ПК
При A=5, B=6, C=7,
P=25, S=38,401

Слайд 7

Путь выполнения проекта

Слайд 8

Разветвляющиеся алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению разветвляющихся алгоритмов

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

Слайд 9

Постановка задачи 26.Значения чисел A, B, C поменять местами так, чтобы

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

Слайд 10

Блок-схема
Ввод A, B, C
Вывод A1, B1, C1
A1=A, 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

Конец

Начало

A>=B

A>=C

B>=C

B>=A

B>=C

A>=C

C>=A

C>=B

да

нет

Слайд 11

Программа решения задачи
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

Слайд 12

Камеральная отладка
При 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

Слайд 13

Путь выполнения проекта

Слайд 14

Циклические алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению циклических алгоритмов

Слайд 15

Постановка задачи 21. Найти все целые числа, больше 100 и меньше

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

Слайд 16

Блок-схема
Вывод I
I<1000
I=100
1 цифра числа I < 2 цифры числа I

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

I=I+1

да

нет

да

нет

Конец

Начало

Слайд 17

Блок-схема
Вывод I
S<=9
S=1, D=2, C=3
S=S+1, D=S+1, C=D+1
да
нет
да
да
нет
нет
1
2
Конец
Начало
D<=9
3
C<=9
4
S
D
6
7
D=D+1
C=C+1
8
I=“S”+“S”+“C”
5
6
3
4
5
6
7
8
9
10
11

Слайд 18

Программа решения задачи
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

Слайд 19

Программа решения задачи
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

Слайд 20

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

Слайд 21

Путь выполнения проекта

Слайд 22

Одномерные массивы
Цель работы:
а) Формирование навыков и умений по составлению одномерных массивов

Слайд 23

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

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

Слайд 24

Блок-схема
I=0
Ввод A(I)
Начало
I<=19
I1=0, I2=0,
B=0, K=0
I2<=19
I3<=19
18
B=0, K=K+1, I2=I2+1
9
6
да
1
нет
да
да
нет
нет
2
3
5
6
7
I=I+1
4
8

Слайд 25

Конец
7
K+I3<=19
Вывод A(K+I3)
I3=I3+1
7
B<1
11
T=0
T<=I2-1
B=B+1,
I3=I3+1
7
Вывод A(T)
T=T+1
6
да
да
да
нет
нет
нет
9
10
11
12
13
14
15
16
17
18
12

Слайд 26

Блок-схема
I=0
Ввод A(I)
Начало
I<=S
I1=0, I2=0,
B=0, K=0
I2<=S-1
I3<=S-1
19
B=0, K=K+1, I2=I2+1
10
7
да
нет
да
да
нет
нет
2
3
4
6
7
Ввод S
1
I=I+1
5
8
9

Слайд 27

Конец
8
K+I3<=S-1
Вывод A(K+I3)
I3=I3+1
7
B<1
12
T=0
T<=I2-1
B=B+1,
I3=I3+1
8
Вывод A(T)
T=T+1
7
да
да
да
нет
нет
нет
10
11
12
13
14
15
16
17
18
19
13

Слайд 28

Программа решения задачи:
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

Слайд 29

Программа решения задачи:
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

Слайд 30

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

Содержание

Линейные алгоритмыЦель работы: а) Формирование навыков и умений по составлению линейных алгоритмов

Блок-схемаВвод A, B, CВывод S, PP = C * 2

Программа решения задачиDim A As Integer = Val(TextBox2.Text) Dim B

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

Путь выполнения проекта

Разветвляющиеся алгоритмыЦель работы: а) Формирование навыков и умений по составлению разветвляющихся алгоритмов

Постановка задачи 26.Значения чисел A, B, C поменять местами так, чтобы

Блок-схемаВвод A, B, CВывод A1, B1, C1A1=A, B1=C, C1=BA1=C, B1=A,

Программа решения задачи Dim A As Integer = Val(TextBox1.Text) Dim

Камеральная отладка При A=5, B=8, C=7, A=8, B=7, C=5При A=5, B=6,

Путь выполнения проекта

Циклические алгоритмыЦель работы: а) Формирование навыков и умений по составлению циклических алгоритмов

Постановка задачи 21. Найти все целые числа, больше 100 и меньше

Блок-схемаВывод II<1000I=1001 цифра числа I < 2 цифры числа I

Блок-схемаВывод IS<=9S=1, D=2, C=3S=S+1, D=S+1, C=D+1данетдаданетнет12КонецНачалоD<=93C<=94SD67D=D+1C=C+18I=“S”+“S”+“C” 5634567891011

Программа решения задачиDim B As String Dim B1 As String

Программа решения задачиFor S As Integer = 1 To 9

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

Путь выполнения проекта

Одномерные массивыЦель работы: а) Формирование навыков и умений по составлению одномерных массивов

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

Блок-схемаI=0Ввод A(I)НачалоI<=19I1=0, I2=0, B=0, K=0I2<=19I3<=1918B=0, K=K+1, I2=I2+196да1нетдаданетнет23567I=I+148

Конец7K+I3<=19Вывод A(K+I3)I3=I3+17B<111T=0T<=I2-1B=B+1, I3=I3+17Вывод A(T)T=T+16дададанетнетнет910111213141516171812

Блок-схемаI=0Ввод A(I)НачалоI<=SI1=0, I2=0, B=0, K=0I2<=S-1I3<=S-119B=0, K=K+1, I2=I2+1107данетдаданетнет23467Ввод S1I=I+1589

Конец8K+I3<=S-1Вывод A(K+I3)I3=I3+17B<112T=0T<=I2-1B=B+1, I3=I3+18Вывод A(T)T=T+17дададанетнетнет1011121314151617181913

Программа решения задачи:Dim A(19) As String For I As Integer

Программа решения задачи:Dim S As Integer = Val(TextBox3.Text) Dim A(S)

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

Похожие презентации

Линейные алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению линейных алгоритмов

Блок-схема
Ввод A, B, C
Вывод S, P
P = C * 2

Программа решения задачи
Dim A As Integer = Val(TextBox2.Text)
Dim B

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

Разветвляющиеся алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению разветвляющихся алгоритмов

Блок-схема
Ввод A, B, C
Вывод A1, B1, C1
A1=A, B1=C, C1=B
A1=C, B1=A,

Программа решения задачи
Dim A As Integer = Val(TextBox1.Text)
Dim

Камеральная отладка
При A=5, B=8, C=7,
A=8, B=7, C=5
При A=5, B=6,

Циклические алгоритмы
Цель работы:
а) Формирование навыков и умений по составлению циклических алгоритмов

Блок-схема
Вывод I
I<1000
I=100
1 цифра числа I < 2 цифры числа I

Блок-схема
Вывод I
S<=9
S=1, D=2, C=3
S=S+1, D=S+1, C=D+1
да
нет
да
да
нет
нет
1
2
Конец
Начало
D<=9
3
C<=9
4
S
D
6
7
D=D+1
C=C+1
8
I=“S”+“S”+“C”
5
6
3
4
5
6
7
8
9
10
11

Программа решения задачи
Dim B As String
Dim B1 As String

Программа решения задачи
For S As Integer = 1 To 9

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

Одномерные массивы
Цель работы:
а) Формирование навыков и умений по составлению одномерных массивов

Блок-схема
I=0
Ввод A(I)
Начало
I<=19
I1=0, I2=0,
B=0, K=0
I2<=19
I3<=19
18
B=0, K=K+1, I2=I2+1
9
6
да
1
нет
да
да
нет
нет
2
3
5
6
7
I=I+1
4
8

Конец
7
K+I3<=19
Вывод A(K+I3)
I3=I3+1
7
B<1
11
T=0
T<=I2-1
B=B+1,
I3=I3+1
7
Вывод A(T)
T=T+1
6
да
да
да
нет
нет
нет
9
10
11
12
13
14
15
16
17
18
12

Блок-схема
I=0
Ввод A(I)
Начало
I<=S
I1=0, I2=0,
B=0, K=0
I2<=S-1
I3<=S-1
19
B=0, K=K+1, I2=I2+1
10
7
да
нет
да
да
нет
нет
2
3
4
6
7
Ввод S
1
I=I+1
5
8
9

Конец
8
K+I3<=S-1
Вывод A(K+I3)
I3=I3+1
7
B<1
12
T=0
T<=I2-1
B=B+1,
I3=I3+1
8
Вывод A(T)
T=T+1
7
да
да
да
нет
нет
нет
10
11
12
13
14
15
16
17
18
19
13

Программа решения задачи:
Dim A(19) As String
For I As Integer

Программа решения задачи:
Dim S As Integer = Val(TextBox3.Text)
Dim A(S)

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