Презентація на тему «Проектное проектирование по информатике» (варіант 1)
217
Слайд #1
КУО «Специализированая школа №129 Физико-математического профиля» ДГС
Проектное
проектирование по информатике
ученика 11-Б классаШаталова Вадима
Г.Днепропетровск 2015г.
Проектное
проектирование по информатике
ученика 11-Б классаШаталова Вадима
Г.Днепропетровск 2015г.
Слайд #2
Линейные алгоритмы
Цель работы:
формирование навыков и умений по составлению линейныx алгоритмов на языке Visual Basic.
формирование навыков по вводу, редактированию, тестированию на компьютере линейныx алгоритмов.
Г.Днепропетровск 2015г.
Цель работы:
формирование навыков и умений по составлению линейныx алгоритмов на языке Visual Basic.
формирование навыков по вводу, редактированию, тестированию на компьютере линейныx алгоритмов.
Г.Днепропетровск 2015г.
Слайд #3
Постановка задачи
В бочке количеством 4 000 литров наxодится К литров бензинаОдновременно включаются два насоса.Первый насос подает в бочку каждую минуту Р1 бензина а второй насос выкачует Р2 литров бензинаР1>Р2Вычислить через сколько минут бочка будет полная
Г.Днепропетровск 2015г.
В бочке количеством 4 000 литров наxодится К литров бензинаОдновременно включаются два насоса.Первый насос подает в бочку каждую минуту Р1 бензина а второй насос выкачует Р2 литров бензинаР1>Р2Вычислить через сколько минут бочка будет полная
Г.Днепропетровск 2015г.
Слайд #4
Модель решения задачи
Г.Днепропетровск 2015г.
Г.Днепропетровск 2015г.
Слайд #5
Блок-сxема решения задачи
Г.Днепропетровск 2015г.
Г.Днепропетровск 2015г.
Слайд #6
Программарешения задачи на Visual Basic
Г.Днепропетровск 2015г.
Private Sub Form_Load()
Dim k As Integer
Dim P1 As Integer
Dim P2 As Integer
Dim t As Integer
Dim z As Integer
Const S = 4000
1: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)
If k >= S Then GoTo 1
P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)
P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)
If P1 > P2 Then
z = k
Do
z = z + P1 - P2
t = t + 1
Loop Until z + (P1 - P2) > S
MsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")
End
Else
MsgBox ("При таких условиях бочка никогда не наполнится!)
End
End If
End Sub
Г.Днепропетровск 2015г.
Private Sub Form_Load()
Dim k As Integer
Dim P1 As Integer
Dim P2 As Integer
Dim t As Integer
Dim z As Integer
Const S = 4000
1: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)
If k >= S Then GoTo 1
P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)
P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)
If P1 > P2 Then
z = k
Do
z = z + P1 - P2
t = t + 1
Loop Until z + (P1 - P2) > S
MsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")
End
Else
MsgBox ("При таких условиях бочка никогда не наполнится!)
End
End If
End Sub
Слайд #7
Программарешения задачи на Visual Basic
Г.Днепропетровск 2015г.
Private Sub Form_Load()
Dim k As Integer
Dim P1 As Integer
Dim P2 As Integer
Dim t As Integer
Dim z As Integer
Const S = 4000
1: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)
If k >= S Then GoTo 1
P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)
P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)
If P1 > P2 Then
z = k
Do
z = z + P1 - P2
t = t + 1
Loop Until z + (P1 - P2) > S
MsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")
End
Else
MsgBox ("При таких условиях бочка никогда не наполнится!)
End
End If
End Sub
Г.Днепропетровск 2015г.
Private Sub Form_Load()
Dim k As Integer
Dim P1 As Integer
Dim P2 As Integer
Dim t As Integer
Dim z As Integer
Const S = 4000
1: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)
If k >= S Then GoTo 1
P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)
P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)
If P1 > P2 Then
z = k
Do
z = z + P1 - P2
t = t + 1
Loop Until z + (P1 - P2) > S
MsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")
End
Else
MsgBox ("При таких условиях бочка никогда не наполнится!)
End
End If
End Sub
Слайд #8
Комеральная отладка
Г.Днепропетровск 2015г.
Г.Днепропетровск 2015г.
Слайд #9
Результаты решения, полученные на компьютере.
Г.Днепропетровск 2015г.
При k=3000 литров (переменной для хранения кол-ва литров бензина в бочке )P1=120 литров (переменной для хранения кол-ва литров закачиваемых первым насосом и P2=80 литров (переменной для хранения кол-ва литров выкачиваемых вторым насосом) и условии, что Р1>Р2 получаем ответ: 25 часов.
Г.Днепропетровск 2015г.
При k=3000 литров (переменной для хранения кол-ва литров бензина в бочке )P1=120 литров (переменной для хранения кол-ва литров закачиваемых первым насосом и P2=80 литров (переменной для хранения кол-ва литров выкачиваемых вторым насосом) и условии, что Р1>Р2 получаем ответ: 25 часов.
Слайд #10
Путь выполнения проекта
Г.Днепропетровск 2015г.
Г.Днепропетровск 2015г.
