Рассматриваем движение тела, брошенного под углом к горизонту без начального ускорения. Уравнения движения тела в осях координат известны из физики: Также известна формула для определения времени движения тела до его падения (т.е. возвращения на исходную высоту, которая совпадает с осью X): Считаем, что в начальных условиях задается количество точек, в которых нужно найти значения пути пройденного в осях координат.
uses Crt; const g=9.81; pi=3.14; var alpha,ar,v0,t,x,y,tmax,ht,v0x,v0y:real; n:integer; begin ClrScr; Write('Vvedite alpha, v0: '); Read(alpha,v0); Write('Chislo tochek= '); Read(n); ar:=pi*alpha/180; v0x:=v0*cos(ar); v0y:=v0*sin(ar); tmax:=2*v0*sin(ar)/g; ht:=tmax/n; t:=ht; while t<=tmax do begin x:=v0x*t; y:=v0y*t-g*sqr(t)/2; Writeln('t=',t:6:3,' x=',x:8:3,' y=',y:8:3); t:=t+ht end; ReadKey end.
Const N = 15; Var A:array[1..N] of integer; i,Kc,Kn,Sn:integer; Begin Kc:=0; Sn:=0; Kn:=0; Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] mod 2 = 0 then Kc:=Kc+1; if A[i] mod 2 <> 0 then Begin Sn:=Sn+A[i]; Kn:=Kn+1; End; if A[i]>0 then A[i]:=0; End; WriteLn; WriteLn('Количество чётных: ',Kc); WriteLn('Среднее арифметическое нечётных: ',Sn/Kn); Write('Новый массив:'); For i:= 1 to N do Write(' ',A[i]) End.
