begin Write('Введите начальную скорость и угол: '); Readln(v0, alpha); Writeln(' t x y'); t := 0; while t <= 10 do begin x := v0 * t * cos(alpha * pi / 180); y := v0 * t * sin(alpha * pi / 180) - g * t * t / 2; Writeln(t:4:1, x:11:3, y:13:3); t := t + 0.5 end end.
Отрицательные значения y в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в пропасть)))
Program z1; uses crt; const n=10; var a: array[1..n] of integer; i, s: integer; begin clrscr; s:=0; writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i] mod 2 = 1 then inc(s) end; writeln(s); readkey; end.
program z2; uses crt; const n=5; var a: array[1..n] of real; i: integer; s: real; begin clrscr; s:=0; writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); // ввод элементов в одну строку через пробел if a[i]>2 then s:=s+sqr(a[i]) end; writeln(s); readkey; end.
program z3; uses crt; const n=5; var a1, a2, a3: array[1..n] of integer; i: integer; begin clrscr; randomize; for i:=1 to n do begin a1[i]:= random(100)+1; // рандомное число от 1 до 100 a2[i]:= random(100)+1; a3[i]:=a1[i]-a2[i]; writeln(a1[i], ' ', a2[i], ' ', a3[i]); end; readkey; end.
program z4; uses crt; const n=10; var a: array[1..n] of integer; max, c, i: integer; begin clrscr; writeln('Введите элементы массива'); for i:=1 to n do read(a[i]); max:=a[i]; for i:=1 to n do begin if max<a[i] then begin max:=a[i]; c:=i end end; writeln(''); writeln('max=', max, ' номер=', c); readkey; end.
pi = 3.14;
g = 9.81;
var
v0, alpha, x, y, t: single;
begin
Write('Введите начальную скорость и угол: ');
Readln(v0, alpha);
Writeln(' t x y');
t := 0;
while t <= 10 do
begin
x := v0 * t * cos(alpha * pi / 180);
y := v0 * t * sin(alpha * pi / 180) - g * t * t / 2;
Writeln(t:4:1, x:11:3, y:13:3);
t := t + 0.5
end
end.
Тестовое решение:
Введите начальную скорость и угол: 30 60
t x y
0.0 0.000 0.000
0.5 7.507 11.760
1.0 15.014 21.068
1.5 22.521 27.923
2.0 30.028 32.326
2.5 37.534 34.276
3.0 45.041 33.773
3.5 52.548 30.819
4.0 60.055 25.411
4.5 67.562 17.551
5.0 75.069 7.239
5.5 82.576 -5.526
6.0 90.083 -20.743
6.5 97.590 -38.413
7.0 105.097 -58.535
7.5 112.603 -81.110
8.0 120.110 -106.138
8.5 127.617 -133.617
9.0 135.124 -163.550
9.5 142.631 -195.935
10.0 150.138 -230.772
Отрицательные значения y в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в пропасть)))