IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Нужен совет по игре, Гравтация на поверхности земли.......
сообщение
Сообщение #1


Гость






  program vectorial_physics;                                                  

uses graph, crt;

const

n = 1 ;

grDriver : integer = Detect ;

type

{------------speed-----------------------------}

rate = record

Vx, Vy, V : real ;

V0x, V0y : real ;

end ;

{------------coordinate-------------------------}

coordinate = record

x, y : real ;

x0, y0 : real ;

xBlack , yBlack : integer ;

end ;

{-----------------acceleration----------------------------}

acceleration = record

G : real ;

end ;

{-------------------------------var------------------}

var

speed : rate ;

coord : coordinate ;

accel : acceleration ;

time, grMode : integer ;

{--------------------deskription--------------------------}

procedure description ;

begin

writeln(' Ïðîãðàììà ìîäåëèðóþùÿÿ ïîëåò íàä çåìëåé.');

writeln('------------------------------------------ ');

delay(2000);

writeln(' Óïðàâëåíèå : ');

writeln(' Êóðñîðíûå êëàâèøè çàäàþò V è åå íàïðàâëåíèå. ');

writeln(' < HOME > ïàóçà, äëÿ ñíÿòèÿ ïàóçû íàæìèòå ëþáóþ êëàâèøó. ');

writeln(' < END > âûõîä. ') ;

writeln('------------------------------------------ ');

writeln(' Âðåìåííàÿ òåõ. íàêëàäêà : ïåðåòàùèòå ýòî îêíî íà êðàé ð/ñ ');

writeln('------------------------------------------ ');

writeln(' press any key. ') ;

readkey ;

end ;

{-------------------procedure cursor--keys---------}

procedure cursor_keys ;

const

step = 5 ;

var

key : char ;

begin

if keypressed = true then

begin

with speed do

begin

key := readkey ;

case ord (key) of

77 : Vx := Vx + step ; { âïðàâî }

75 : Vx := Vx - step ; { âëåâî }

72 : V := V - step ; { ââåðõ }

80 : V := V + step ; { âíèç }

71 : readkey ; { pause }

79 : halt ; {âûõîä}

end ;

end ;

end;

end ;

{-----------------------calculation of speed-----------------}


procedure calculation_speed ( t : integer ) ;

begin

speed.Vy := speed.V + speed.V0y + accel.G * t ;

writeln(speed.Vy);

writeln('');

end ;

{--------------------------coordinata----------------------}

procedure coordinat (t : integer ) ;

begin

{---part x-}

coord.x := coord.x0 + speed.Vx * t ;

coord.x0 := coord.x ;

{---part y-}


coord.y := coord.y0 + speed.Vy * t + (accel.G * t * t) / 2 ;

coord.y0 := coord.y ;

end ;

{-------------------------------prisvaivanie--------------------------}

procedure prisvaivanie ;

begin

with speed do

begin

V := 0 ;

V0y := 0 ;

end ;

accel.G := 0.5 ;

coord.x0 := 500 ;

coord.y0 := 50 ;

end ;

{------------------------main programm--------------------}

BEGIN

clrscr ;

description ;

prisvaivanie ;

time := 0;

InitGraph (grDriver, grMode, '') ;

while (true) do

begin

delay(100);

inc (time) ;

cursor_keys ;

calculation_speed(time) ;

coordinat(n) ;

setColor(0);

ellipse(coord.xBlack,coord.yBlack,0,359,50,20);

setcolor(15);

ellipse(round(coord.x),round(coord.y),0,359,50,20);

coord.xBlack := round(coord.x);

coord.yBlack := round(coord.y);

Arc(coord.xBlack,coord.yBlack,0,360,10);

end;

END.



Мои вопросы :

1. Правильно ли ?;

{я новичок и это 1ая более менее серьезная прога}

 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






я гость и не могу прикпепить файл
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


Прикрепленный файл  gravity.rar ( 60.28 килобайт ) Кол-во скачиваний: 467
Здесь представлена прога с кодом я думаю кому-нибудь да понадобится

описание
игра : загнать тело на площадку
+ следить за топливом


Сообщение отредактировано: renesko1 -


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.11.2020 23:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name