Сканируется цветное изображение размером 33, 02×33, 02 см. разрешающая способность сканера — 600×1200 dpi, глубина цвета — 24 бита. какой информационный объём будет иметь полученный графический файл?

сначала решим :

дано:

v₀;

l;

найти:

γ;

решение:

решим систему ур-й описывающих движение:

y(t)=v₀δt·sinγ -  ½gδt²

x(t)=v₀δtcosγ;

в момент времени пусть  δt =  τ   x(t)=l, тогда y(t)=0  ⇒

τ= l  ÷ v₀cosγ (из ур-я x(t))

из ур-я y(t)

l·g  ÷ v₀²=sin2γ

γ = ½arcsin (lg  ÷ v₀²) - это конечная формула

ответ:   γ =  ½ arcsin(lg  ÷ v₀²);

 

теперь код программы (pascalabc.net):

//если угол нужен в радианах

program bullet_rad;

const g_grav = 9.8; // гравитационная постоянная g=9,8

varl, //расстояние до целиv: real; //начальная скорость снаряда

beginreadln (l,v); // читаем расстояние и скоростьwriteln (0.5*arcsin((l*g_grav)/sqr(; //выводим ответend.

 

//если угол нужен в градусах

program bullet_gr;

const g_grav = 9.8; // гравитационная постоянная g=9,8 pi = 3.14; // постоянная п=3,14

varl, //расстояние до целиv: real; //начальная скорость снаряда

beginreadln (l,v); // читаем расстояние и скоростьwriteln ((90/pi)*arcsin((l*g_grav)/sqr(; //выводим ответend.

Program zadacha; var a: array [1..12] of integer; i, o, k, z, j: integer; s: real; begin writeln('vvedite kolichestvo osadkov'); for i: =1 to 12 do read(a[i]); o: =0; for i: =1 to 12 do o: =o+a[i]; writeln('obshee kolichestvo osadkov=',o); s: =o/12; writeln('srednee kolichestvo=',s: 3: 2); k: =0; for i: =1 to 12 do if a[i]< 30 then k: =k+1; writeln('kolichestvo zasushlivih=',k); j: =30; for i: =1 to 12 do if a[i] begin j: =[i]; z: =i; end; writeln('samiy zasusliviy mesyac=',z); readln; end.