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

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

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

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

content: Модель решения задачиК текущему уровню бензина прибавляется объем бензина закаченный насосом P1 и вычитается объем бензина который выкачал насос P2, т.е. z=z+P1-P2 и делать это пока z+P1-P2 меньше полного объема (т.е. S) - как только это условие нарушено - значит бочка заполнена.

content: Блок-сxема решения задачиГ.Днепропетровск 2015г.НачалоS=4000Ввод KIf K>S thenВвод Р1,Р2Z=Kz=z+P1-P2t=t+1Z+P1-P2>SВывод k,Р1,Р2,tКонецКонецПри такиx условияx бочка не наполнитсяIf Р1>Р2thenДаДаДаНетНетНет

content: Программарешения задачи на Visual BasicГ.Днепропетровск 2015г.Private Sub Form_Load()Dim k As IntegerDim P1 As IntegerDim P2 As IntegerDim t As IntegerDim z As IntegerConst S = 40001: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)If k >= S Then GoTo 1P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)If P1 > P2 Thenz = kDoz = z + P1 - P2t = t + 1Loop Until z + (P1 - P2) > SMsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")EndElseMsgBox ("При таких условиях бочка никогда не наполнится!)EndEnd IfEnd Sub

content: Программарешения задачи на Visual BasicГ.Днепропетровск 2015г.Private Sub Form_Load()Dim k As IntegerDim P1 As IntegerDim P2 As IntegerDim t As IntegerDim z As IntegerConst S = 40001: k = InputBox("Введите кол-во литров бензина, находящееся в бочке", , 3000)If k >= S Then GoTo 1P1 = InputBox("Введите кол-во подаваемых литров бензина в час первым насосом ", , 120)P2 = InputBox("Введите кол-во выкачиваемых литров бензина в час вторым насосом", , 80)If P1 > P2 Thenz = kDoz = z + P1 - P2t = t + 1Loop Until z + (P1 - P2) > SMsgBox ("В бочке было: " & k & " литров бензина, при условии, что первый насос подает в бочку " & P1 & " литров бензина в час, а второй выкачивает " _& P2 & " литров бензина в час, то время затраченное на заполнение бочки составит: " & t & " часов")EndElseMsgBox ("При таких условиях бочка никогда не наполнится!)EndEnd IfEnd Sub

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

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