TheSlide.ru

Изображение колеса и радиуса

Содержание

1. Изображение колеса и радиуса
2. Изображение колеса и радиусаУстановить цвет пера.Прорисовка колеса
3. Uses Graph,CRT;var gm,gd,i,h,r,n,xi,yi:integer; fi0,dfi:real;Function
4. Переход в графический режим, прорисовка начального положения
5. for i:=1 to n do
6. Начнальное положение(Function koleso)Смещение колеса (в цикле)Прорисовка цветом пера(Function koleso)Задержка изображенияПрорисовка цветом фона(Function koleso)Конечное положение(Function koleso)
7. Слайд 7
8. Скачать презентанцию

Изображение колеса и радиусаУстановить цвет пера.Прорисовка колеса и радиуса цветом пера.=======================================Function koleso(i,ic:integer;fi:real):integer; begin setcolor(ic); circle(10+h*i,100,r); xi:=10+h*i+trunc(r*cos(fi+dfi*i)); yi:=100+trunc(r*sin(fi+dfi*i));

Главная
Разное
Изображение колеса и радиуса

Слайды и текст этой презентации

Слайд 1

Слайд 2Изображение колеса и радиуса
Установить цвет пера.
Прорисовка колеса и радиуса цветом

пера.
=======================================
Function koleso(i,ic:integer;fi:real):integer;
begin
setcolor(ic);

circle(10+h*i,100,r);
xi:=10+h*i+trunc(r*cos(fi+dfi*i));
yi:=100+trunc(r*sin(fi+dfi*i));
line(10+h*i,100,xi,yi);
end;

Изображение колеса и радиусаУстановить цвет пера.Прорисовка колеса и радиуса цветом пера.=======================================Function koleso(i,ic:integer;fi:real):integer; begin

Слайд 3
Uses Graph,CRT;
var gm,gd,i,h,r,n,xi,yi:integer; fi0,dfi:real;
Function koleso(i,ic:integer;fi:real):integer;

begin
setcolor(ic);
circle(10+h*i,100,r);

xi:=10+h*i+trunc(r*cos(fi+dfi*i));
yi:=100+trunc(r*sin(fi+dfi*i));
line(10+h*i,100,xi,yi);
end;

Uses Graph,CRT;var gm,gd,i,h,r,n,xi,yi:integer; fi0,dfi:real;Function koleso(i,ic:integer;fi:real):integer; begin setcolor(ic);

Слайд 4Переход в графический режим, прорисовка начального положения колеса
BEGIN
h:=10; r:=30; n:=58;

fi0:=0;
dfi:=3.14159/8;
gd:=Detect;
InitGraph(gd,gm,'');
setcolor(green);
line(10,125,600,125);
koleso(0,4,fi0);

delay(2000);
koleso(0,0,fi0);

Переход в графический режим, прорисовка начального положения колесаBEGINh:=10; r:=30; n:=58; fi0:=0;dfi:=3.14159/8;gd:=Detect; InitGraph(gd,gm,''); setcolor(green); line(10,125,600,125);

Слайд 5for i:=1 to n do
begin

koleso(i,4,0); delay(200);
koleso(i,0,0);
end;
koleso(n,4,0);

readln;
Closegraph;
END.

Прорисовка движения колеса

for i:=1 to n do begin koleso(i,4,0); delay(200);

Слайд 6
Начнальное положение
(Function koleso)
Смещение колеса (в цикле)
Прорисовка цветом пера
(Function koleso)
Задержка изображения
Прорисовка

цветом фона
(Function koleso)
Конечное положение
(Function koleso)

Начнальное положение(Function koleso)Смещение колеса (в цикле)Прорисовка цветом пера(Function koleso)Задержка изображенияПрорисовка цветом фона(Function koleso)Конечное положение(Function koleso)

Слайд 7

Скачать презентацию

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно хранить и делиться своими презентациями с другими пользователями.

Для правообладателей