Зерттеулердің есептеу нәтижелері

INPUT s'40

a = 200: b = 20: N = 7: d = 40

x1 = a - d: 1 = 10

SCREEN 2

FOR r = 0 TO 100

FOR j = 2 TO .1 * M STEP .15

z = j

GOSUB 100

FOR H = 1 TO 1500

NEXT H

FOR j = 2 TO .1 * M STEP .15

z = .1 * M - j

CLS

FOR H = 1 TO 1500

NEXT H

NEXT j

END

LINE (x1, b + z * (2 * I + 1) / 2) - (a, b + z * I)

LINE (x1, b + z * (2 * I + 1) / 2) - (a, b + z * (I + 1))

NEXT I

LINE (a - d / 2, b + z * (N + 2)) - (a -d / 2, b + z * (N + 2) + 1)

PSET (a - 10 - d / 2, b + z * (N + 2) + 1)

DRAW "R20D20L20U20"

program esep(input);

const g=9.8;

p=3.14;

var m,x,a0,an,t,t1,b,vm,am,et,en,ek,v,km:real;

t0:integer;

begin

readln(t0);

readln(a0);

readln(an);

k:=(m*g)/x;

t:=2*p*sqrt(m/k);

t1:=t0/n;

b:=ln(a0/an)/t0;

vm:=sqrt(k/m)*a0;

am:=(k*a0)/m;

et:=(k*(a0/a0))/2;

en:=(k*(x*x))/2;

ek:=et-en;

v:=vm*sqrt(1-((x*x)/(a0*a0)));

writeln('k=',k);

writeln('t=',t);

writeln('t1=',t1);

writeln('b=',b);

writeln('vm=',vm);

writeln('am=',am);

writeln('et=',et);

writeln('en=',en);

writeln('ek=',ek);

writeln('v=',v);

100 200 200 400 500 600 700	0,4 0,8 1,15 1,6 2 2,7 3,2	13 17 20 23 26 31 36	8 10,5 12,5 14,3 15,5 16,6 17,5	1 1,6 2 2,4 2,8 3,3 3,9	1,28 1,81 2,22 2,56 2,86 3,14 3,39	1,3 1,7 2 2,3 2,6 3,1 3,6
100 200 300 400 500 600 700 800	0,75 1,5 2,5 3,3 3,8 4,3 5,5 6	15 22 28 33 36 40 45 48	12,5 17,5 21 24 26,5 28,8 30,5 31,5	2,5 3,6 5 6,3 7 7,7 8,4 9	1,74 2,46 3,02 3,48 3,89 4,26 4,62 4,93	1,5 2,2 2,8 3,3 3,6 4 4,5 4,8