Изображение колеса и радиуса - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Изображение колеса и радиуса. Доклад-сообщение содержит 7 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

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

Слайд 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;

Слайд 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;

Слайд 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);