exploders.info - Портал по взрывчатым веществам и пиротехнике
АВТОРИЗАЦИЯ
ЛОГИН:
ПОРОЛЬ:
Автор: kosoy тот же
2007-06-24 [#23163]

программа разлёта осколков

Форум: Вспомогательные средства

написал в паскале программу,чтоб узнать на ск могут при взрыве разлететься осколки. запрашивает скорость детонации ВВ,толщину оболочки,уд.плотность её.должна учитывать сопротивление воздуха. если кому не влом - проверьте,достоверный ли результат получается.вот она: program oskolok2;label m1,m2,m3,m4; var u0,a,d,q,ux,uy,aa,x,y,x1:real; begin m4: write(' nach skorost U0=');read(u0); write(' tolshina obolochki(mm) d=');read(d); write(' udelnaya plotnost obolochki q=');read(q);a:=0; m2:a:=a+1; aa:=a/180*3.14;ux:=u0*cos(aa);uy:=u0*sin(aa); x:=0;y:=0; m1:x:=x+ux*0.0001;y:=y+uy*0.0001;ux:=ux-0.0001*1.29*ux*sqrt(sqr(ux))/(d*q); uy:=uy-9.8*0.0001-1.29*0.0001*uy*sqrt(sqr(uy))/(d*q);if y>0 then begin goto m1; end;if x1>x then goto m3;x1:=x;goto m2; m3:write( ' rasstoyanie ',x:2:2,'metrov'); write(' na skorosti ',sqrt(ux*ux+uy*uy):2:2,'m/s');goto m4; end.

Мне нравится
  • Dr. Lecter Мозгоёбство всё это... 2007-06-25 [#23166]
  • HMTD Ай-яй-яй! Первое, чему учат при программировании на паскале - не использовать метки 2007-06-25 [#23169]

© Добрейшей души человеки, 2003-2019

При использовании материалов ресурса ссылка обязательна.