Презентация к уроку информатики

?

1

Можно ли организовать движение по окружности средствами языка программирования

2

A

C

B

α

3

A

C

B

α

4

X

Y

x

y

α

x

y

A

C

B

Координаты X и Y зависят от угла α

R

X=R∙cos α

Y=R∙sin α

5

X

Y

O(0,0)

320

200

400

640

x´= 320 + x

y´= 200 + y

X´

Y´

6

X

Y

y=f(x)

y= -f(x)

Умножение функции на
-1
отражает график симметрично относительно оси ОХ

7

x´= 320 + x

y´= 200 + y

X´

Y´

y´= 200 - y

y´= 200

8

α = 0°

α = 45°

α = 90°

α = 135°

α = 180°

α

9

10

За один оборот
α изменяется от 0 до 2*Pi

Функция Pi

11

x´= 320 + x

y´= 200 + y

x´= 320 + R∙cos α

y´=

12

Repeat
тело цикла;
Until keypressed;

Возвращает значение Тruе, если  на  клавиатуре  нажата клавиша и False в

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);

14

15

100

100

stir.bmp

soln.bmp

Фон

100

100

plan.bmp

Планета

Стирание планеты

Звезда

fon.jpg

16

1. Описатели.
Описатель - целое число, однозначно определяющее рисунок. Используются обычные процедуры

17

DrawPicture(n,x,y);
Выводит рисунок в позицию (x,y) графического окна.

DestroyPicture(n);
Разрушает объект (рисунок).

18

n.Draw(x,y);
Выводит рисунок в позицию (x,y) графического окна.

n.Destroy;
Разрушает объект (рисунок).

19

uses GraphABC; var n: integer; begin   n:=LoadPicture('demo.bmp');   SetPictureTransparent(n,True);   DrawPicture(n,0,0);   DestroyPicture(n); end.

Описатель – переменная целого

20

uses GraphABC;
var p: Picture;
begin
p:=Picture.Create('demo.bmp');
p.Transparent:=True;
p.Draw(0,0);
p.Destroy;
end.

Переменная класса Picture

Загружаем рисунок

21

Создать модель планетарной системы