Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 8 лет назад пользователемЗоя Енина
1 ИНФОРМАЦИОННЫЕ МОДЕЛИ СИСТЕМ УПРАВЛЕНИЯ СИСТЕМЫ УПРАВЛЕНИЯ БЕЗ ОБРАТНОЙ СВЯЗИ СИСТЕМЫ УПРАВЛЕНИЯ С ОБРАТНОЙ СВЯЗЬЮ СИСТЕМЫ УПРАВЛЕНИЯ С АВТОМАТИЧЕСКИМ УПРАВЛЕНИЕМ И АВТОМАТИЧЕСКОЙ ОБРАТНОЙ СВЯЗЬЮ
2 СИСТЕМЫ УПРАВЛЕНИЯ БЕЗ ОБРАТНОЙ СВЯЗИ Гранатомётчик
3 СИСТЕМЫ УПРАВЛЕНИЯ С ОБРАТНОЙ СВЯЗЬЮ ПТУР «Корнет»
4 СИСТЕМЫ УПРАВЛЕНИЯ С АВТОМАТИЧЕСКИМ УПРАВЛЕНИЕМ И АВТОМАТИЧЕСКОЙ ОБРАТНОЙ СВЯЗЬЮ Старт ракеты «Тополь-М»
5 ТЕМА УРОКА Проект «Управление объектом с обратной связью» на языке PascalABC Составитель учебных материалов для проекта: Енина З.И., учитель информатики, г. Воронеж, МБОУ «Лицей 1», 2010г.,
6 ЦЕЛЬ УРОКА Разработать компьютерную модель управления управляемым объектом (трактор, машина) с обратной связью на языке PascalABC
7 Этапы выполнения задания Выбор вида управляемого объекта
8 Этапы выполнения задания
10 Program N1; Uses GraphABC; Var k: Integer; Procedure PutCar(x,y,m: Integer); begin{ Процедура отрисовки трактора } SetBrushColor(clOlive ); Rectangle(x-3*m,y-m,x+m,y+m); SetBrushColor(clLime ); Rectangle(x+m,y-2*m,x+3*m,y+m); SetBrushColor(clGreen ); Circle(x-2*m,y+m,m); SetBrushColor(clGreen ); Circle(x+2*m,y+m,m); end; {PutCar} begin {Main} PutCar(100,100,10); PutCar(300,200,7); For k:=1 To 5 Do PutCar(k*100,300,5); end. Программа прорисовки трактора
11 Program N2; Uses GraphABC, Crt; Var x, y, m: Integer; Procedure PutCar(x,y,m: Integer); begin{ Процедура отрисовки трактора } SetBrushColor(clOlive ); FillRect(x-3*m,y-m,x+m,y+m); SetBrushColor(clLime ); FillRect(x+m,y-2*m,x+3*m,y+m); SetBrushColor(clGreen ); Circle(x-2*m,y+m,m); SetBrushColor(clGreen ); Circle(x+2*m,y+m,m); end; {PutCar} Procedure DelCar(x,y,m: Integer); begin SetBrushColor(clWhite ); FillRect(x-3*m,y-2*m,x+3*m,y+2*m); end; {DelCar} Продолжение на следующем слайде Система управления без обратной связи (разомкнутая),вариант 1
12 begin {Main} x:=500; y:=200; m:=10; PutCar(x,y,m); Delay(1000); Repeat DelCar(x,y,m); x:=x-2; PutCar(x,y,m); Delay(100); Until (x<=100) or KeyPressed; end. Продолжение program N2
13 Система управления без обратной связи (разомкнутая),вариант 2 Program N3; Uses GraphABC, Crt; Const m=15; step=20; Var x, y: Integer; k1, k2: Char; Procedure PutCar(x,y,m: Integer); begin{ Процедура отрисовки машины } SetBrushColor(clOlive ); FillRect(x-3*m,y-m,x+m,y+m); SetBrushColor(clLime ); FillRect(x+m,y-2*m,x+3*m,y+m); SetBrushColor(clGreen ); Circle(x-2*m,y+m,m); SetBrushColor(clGreen ); Circle(x+2*m,y+m,m); end; {PutCar} Procedure DelCar(x,y,m: Integer); begin SetBrushColor(clWhite ); FillRect(x-3*m,y-2*m,x+3*m,y+2*m); end; {DelCar} Продолжение на следующем слайде
14 begin {Main} x:=500; y:=200; PutCar(x,y,m); PutCar(x,y,m); delay(1000); DelCar(x,y,m); Writeln(Чтобы переместить трактор, используйте клавиши со стрелками) writeln('Чтобы увидеть куда переместили машину, нажмите клавишу Page Down'); Продолжение на следующем слайде Продолжение program N3
15 Repeat { цикл до } k1:=#0; k2:=#0; If KeyPressed Then {если нажата} begin {клавиша, читать символ} k1:=ReadKey; {из буфера} If k1=#0 Then k2:=ReadKey; Продолжение на следующем слайде Продолжение program N3
16 Case k2 of { движение } { Left - налево } #77 : begin If x>step+3*m Then x:=x-step; end; { Right - направо } #75 : begin If x<640-step-3*m Then x:=x+step; end; { UP - вверх } #72 : begin If y>step+3*m Then y:=y-step; end; { Down - вниз } #80 : begin If y<460-step-3*m Then y:=y+step; end; end; { Case } Продолжение на следующем слайде Продолжение program N3
17 end; { If KeyPressed } Until (k2=#81); { } PutCar(x,y,m); delay(1000); end. Конец программы Продолжение program N3
18 Uses GraphABC, Crt; {размер экрана вывода графики 640*400} Const m=15; step=2; Var x, y: Integer; k1, k2: Char; Procedure PutCar(x,y,m: Integer); begin{ Процедура отрисовки машины } SetBrushColor(clOlive ); FillRect(x-3*m,y-m,x-m,y+m); SetBrushColor(clLime ); FillRect(x-m,y-2*m,x+3*m,y+m); SetBrushColor(clGreen ); Circle(x-2*m,y+m,m); SetBrushColor(clGreen ); Circle(x+2*m,y+m,m); end; {PutCar} Procedure DelCar(x,y,m: Integer); begin SetBrushColor(clWhite ); FillRect(x-3*m,y-2*m,x+3*m,y+2*m); end; {DelCar} Продолжение на следующем слайде Система управления с обратной связью (замкнутая), Загнать трактор в три гаража
19 begin {Main} SetBrushColor(clRed ); FillRect(0,0,100,101-2*m); SetBrushColor(clRed ); FillRect(0,100+2*m,100,200- 2*m); SetBrushColor(clRed ); FillRect(0,200+2*m,100,300-2*m); SetBrushColor(clRed ); FillRect(0,301+2*m,100,400); x:=500; y:=350; PutCar(x,y,m); Repeat { цикл до } k1:=#0; k2:=#0; If KeyPressed Then {если нажата} begin {клавиша, читать символ} k1:=ReadKey; {из буфера} If k1=#0 Then k2:=ReadKey; Продолжение на следующем слайде Продолжение program N4
20 Case k2 of { движение } #77 : begin { Left - налево } DelCar(x,y,m); If x>step+3*m Then x:=x-step; PutCar(x,y,m); end; Продолжение program N4 Продолжение на следующем слайде
21 #75 : begin { Right - направо } DelCar(x,y,m); If x<640-step-3*m Then x:=x+step; PutCar(x,y,m); end; Продолжение program N4 Продолжение на следующем слайде
22 #72 : begin { UP - вверх } DelCar(x,y,m); If y>step+3*m Then y:=y-step; PutCar(x,y,m); end; Продолжение program N4 Продолжение на следующем слайде
23 #80 : begin { Down - вниз } DelCar(x,y,m); If y<460-step-3*m Then y:=y+step; PutCar(x,y,m); end; end; { Case } end; { If KeyPressed } Until (k1=#27); { } end. Продолжение program N4 Конец программы
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.