Презентація на тему «Проектное проектирование по информатике» (варіант 1)


Рейтинг презентації 5 на основі 1 голосів




Слайд #1
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #1

КУО «Специализированая школа №129 Физико-математического профиля» ДГС
Проектное
проектирование по информатике
ученика 11-Б классаШаталова Вадима
Г.Днепропетровск 2015г.


Слайд #2
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #2

Линейные алгоритмы
Цель работы:
формирование навыков и умений по составлению линейныx алгоритмов на языке Visual Basic.
формирование навыков по вводу, редактированию, тестированию на компьютере линейныx алгоритмов.
Г.Днепропетровск 2015г.


Слайд #3
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #3

Постановка задачи
В бочке количеством 4 000 литров наxодится К литров бензинаОдновременно включаются два насоса.Первый насос подает в бочку каждую минуту Р1 бензина а второй насос выкачует Р2 литров бензинаР1>Р2Вычислить через сколько минут бочка будет полная
Г.Днепропетровск 2015г.


Слайд #4
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #4

Модель решения задачи
Г.Днепропетровск 2015г.


Слайд #5
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #5

Блок-сxема решения задачи
Г.Днепропетровск 2015г.


Слайд #6
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #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


Слайд #7
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #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


Слайд #8
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #8

Комеральная отладка
Г.Днепропетровск 2015г.


Слайд #9
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #9

Результаты решения, полученные на компьютере.
Г.Днепропетровск 2015г.
При k=3000 литров (переменной для хранения кол-ва литров бензина в бочке )P1=120 литров (переменной для хранения кол-ва литров закачиваемых первым насосом и P2=80 литров (переменной для хранения кол-ва литров выкачиваемых вторым насосом) и условии, что Р1>Р2 получаем ответ: 25 часов.


Слайд #10
Презентація на тему «Проектное проектирование по информатике» (варіант 1) - Слайд #10

Путь выполнения проекта
Г.Днепропетровск 2015г.