Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  24780
Language: C/C++
Code:
programmatmodeli;
Var Mk,Mg,C,h,g,t,Tmax,M,q0,q2,q1,qi:real;
F1:text;
Begin
Writeln('ВведитемассукузоваMk');
Readln(Mk);
Writeln('ВведитемассугрузаMg');
Readln(Mg);
Writeln('Введите жесткость рессорного подвешивания C');
Readln(C);
assign(F1,'E:результат.txt');
rewrite(F1);
h:=0.025;
Tmax:=1.9;
g:=9.81;
t:=0;
M:=Mg+Mk;
q0:=(M*g)/(2*C);
q1:=0;
qi:=q0;
repeat
q2:=2*qi-q1+sqr(h)*(g-(2*C*qi)/M);
writeln(qi:20:4,t:20:3);
writeln(F1,qi:20:4);
q1:=qi;
qi:=q2;
t:=t+h;
until t>Tmax;
close(F1);
readln;
end.

          
Comments: