Движение по окружности
Скачать презентацию (0.22 мб)
Слайды и текст этой презентации
| Слайд №1 | |
 |
Движение по окружности Тема: программирование на языке PascalABC Автор: Юдин Андрей Борисович Учитель информатики МКОУ Плесская СОШ Презентация к уроку информатики |
| Слайд №2 | |
 |
? 1 Можно ли организовать движение по окружности средствами языка программирования |
| Слайд №3 | |
 |
2 A C B ? |
| Слайд №4 | |
 |
3 A C B ? |
| Слайд №5 | |
 |
4 X Y x y ? x y A C B Координаты X и Y зависят от угла ? R X=R?cos ? Y=R?sin ? |
| Слайд №6 | |
 |
5 X Y O(0,0) 320 200 400 640 x?= 320 + x y?= 200 + y X? Y? |
| Слайд №7 | |
 |
6 X Y y=f(x) y= -f(x) Умножение функции на -1 отражает график симметрично относительно оси ОХ |
| Слайд №8 | |
 |
7 x?= 320 + x y?= 200 + y X? Y? y?= 200 — y y?= 200 — y; движение против часовой стрелки y?= 200 + y; движение по часовой стрелке |
| Слайд №9 | |
 |
8 ? = 0° ? = 45° ? = 90° ? = 135° ? = 180° ? = 225° ? = 270° ? = 315° ? = 360° ? = ? + 45° |
| Слайд №10 | |
 |
9 |
| Слайд №11 | |
 |
10 За один оборот ? изменяется от 0 до 2*Pi Функция Pi с шагом ? = ? + Pi/40 Uses Crt; Begin WriteLn(‘Число Pi = ‘, Pi);End. |
| Слайд №12 | |
 |
11 x?= 320 + x y?= 200 + y x?= 320 + R?cos ? y?= 200 — R?sin ? x = R?cos ? y = R?sin ? x:=trunc(320+100*cos(a)); y:=trunc(200-100*sin(a)); Х целое число, а результат функции будет выражен дробным числом. Для преобразования типов используем функцию TRUNC |
| Слайд №13 | |
 |
12 Repeat тело цикла; Until keypressed; Возвращает значение Тruе, если на клавиатуре нажата клавиша и False в противном случае. Действия повторяются, пока на клавиатуре не нажата какая либо клавиша. |
| Слайд №14 | |
 |
13 Program n1; Uses crt,graphabc; Var x,y:integer; a:Real; Begin clrscr; x:=0;y:=0;a:=0; Repeat x:=trunc(320+100*cos(a)); y:=trunc(200+100*sin(a)); SetPenColor(clBlack); circle(x,y,3); delay(100); SetPenColor(clWhite); circle(x,y,3); a:=a+Pi/30; Until keypressed; end. Устанавливаем начальные значения X,Y и угла ? Организуем цикл, пока не нажата любая клавиша Вычисляем X и Y в зависимости от угла Устанавливаем черный цвет рисования и рисуем окружность Приостанавливаем выполнение програмы Стираем: рисуем окружность белым цветом Изменяем угол |
| Слайд №15 | |
 |
14 |
| Слайд №16 | |
 |
15 100 100 stir.bmp soln.bmp Фон 100 100 plan.bmp Планета Стирание планеты Звезда fon.jpg |
| Слайд №17 | |
 |
16 1. Описатели. Описатель — целое число, однозначно определяющее рисунок. Используются обычные процедуры и функции. 2. Объекты класса Picture. Класс Picture описывает рисунок, хранящийся в оперативной памяти Работа с рисунками в PascalABC uses GraphABC; {описатели}var n: integer;begin n:=LoadPicture(‘demo.bmp’); SetPictureTransparent(n,True); DrawPicture(n,0,0); DestroyPicture(n);end. uses GraphABC;{класс Picture} var p: Picture;begin p:=Picture.Create(‘demo.bmp’); p.Transparent:=True; p.Draw(0,0); p.Destroy;end. |
| Слайд №18 | |
 |
17 DrawPicture(n,x,y); Выводит рисунок в позицию (x,y) графического окна. DestroyPicture(n); Разрушает объект (рисунок). |
| Слайд №19 | |
 |
18 n.Draw(x,y); Выводит рисунок в позицию (x,y) графического окна. n.Destroy; Разрушает объект (рисунок). |
| Слайд №20 | |
 |
19 uses GraphABC;var n: integer;begin n:=LoadPicture(‘demo.bmp’); SetPictureTransparent(n,True); DrawPicture(n,0,0); DestroyPicture(n);end. Описатель – переменная целого типа Загружаем рисунок из файла Делаем прозрачным фон Выводим рисунок на экран Разрушаем рисунок, перед завершением программы |
| Слайд №21 | |
 |
20 uses GraphABC; var p: Picture; begin p:=Picture.Create(‘demo.bmp’); p.Transparent:=True; p.Draw(0,0); p.Destroy; end. Переменная класса Picture Загружаем рисунок из файла Делаем прозрачным фон Выводим рисунок на экран Разрушаем рисунок, перед завершением программы |
| Слайд №22 | |
 |
21 Создать модель планетарной системы |
| Слайд №23 | |
 |
22 Список используемой литературы: С. В. Филичев. Занимательный Basic. Москва: ЭКОМ. 1997 год. М.В. Мозговой Занимательное программирование. Самоучитель. Издательский дом Питер. 2005. А.В. Погорелов. Геометрия: Учебник для 7-9 классов бщеобразовательных учреждений. М: Просвещение, 2000 г. Ю.Н. Макарычев. Алгебра. 9 класс: учебник для общеобразовательных учреждении. М:Просвещение, 2007 г. |
