2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Помогите с кодом [Pascal]
Сообщение11.04.2010, 09:00 
Даны три программы:

Program Pr1;
uses crt;
Var B,dT,R,dB,A,Vr1,Vz1,Vr2,Vz2,R1,R2,Z1,Z2:real;
H:text;
begin
assign(H,'Pr1.txt');
rewrite(H);
dB:=0.001;
B:=0.01;
while B<=0.5 do
begin
Vr1:=0;
Vz1:=1;
A:=9/40;
R:=0.87;
dT:=0.01;
R2:=1;
R1:=1;
Z1:=0;
while R2>=R do
begin
Vr2:=dT*(-B*R1+A*Vr1)+Vr1;
Vz2:=dT*(1-Vz1*A)+Vz1;
R2:=dT*Vr1+R1;
Z2:=dT*Vz1+Z1;
R1:=R2;
Z1:=Z2;
Vr1:=Vr2;
Vz1:=Vz2;
end;
WriteLn(B,Z2);
WriteLn(H,B,Z2);
B:=B+dB;
end;
ReadLn;
close(H);
end.

Program Z(A);
uses crt;
Var A,B,dT,R,dA,Vr1,Vz1,Vr2,Vz2,R1,R2,Z1,Z2:real;
H:text;
begin
assign(H,'ZA.txt');
rewrite(H);
dA:=9/400;
A:=9/40;
while A<=1.5 do
begin
Vr1:=0;
Vz1:=1;
B:=0.01;
R:=0.87;
dT:=0.01;
R2:=1;
R1:=1;
Z1:=0;
while R2>=R do
begin
Vr2:=dT*(-B*R1+A*Vr1)+Vr1;
Vz2:=dT*(1-Vz1*A)+Vz1;
R2:=dT*Vr1+R1;
Z2:=dT*Vz1+Z1;
R1:=R2;
Z1:=Z2;
Vr1:=Vr2;
Vz1:=Vz2;
end;
WriteLn(A,Z2);
WriteLn(H,A,Z2);
A:=A+dA;
end;
ReadLn;
close(H);
end.

Program Z(R);
uses crt;
Var A,B,dT,R,dA,Vr1,Vz1,Vr2,Vz2,R1,R2,Z1,Z2:real;
H:text;
begin
assign(H,'ZR.txt');
rewrite(H);
Vr1:=0;
Vz1:=1;
B:=0.01;
A:=9/40;
dT:=0.01;
R2:=1;
R1:=1;
Z1:=0;
while R2>=sqrt(0.3) do
begin
Vr2:=dT*(-B*R1+A*Vr1)+Vr1;
Vz2:=dT*(1-Vz1*A)+Vz1;
R2:=dT*Vr1+R1;
Z2:=dT*Vz1+Z1;
R1:=R2;
Z1:=Z2;
Vr1:=Vr2;
Vz1:=Vz2;
WriteLn(R2,Z2);
WriteLn(H,R2,Z2);
end;
ReadLn;
close(H);
end.

Можно ли эти три программы объединить в одну, чтобы на выходе получалось три отдельных текстовых файла с числовыми значениями для каждого цикла новой программы отдельно? Заранее спасибо:)

 
 
 
 Re: Помогите с кодом.
Сообщение11.04.2010, 12:53 
scottie в сообщении #308394 писал(а):
Можно ли эти три программы объединить в одну, чтобы на выходе получалось три отдельных текстовых файла с числовыми значениями для каждого цикла новой программы отдельно?


Конечно можно.

 
 
 
 Re: Помогите с кодом.
Сообщение11.04.2010, 13:50 
Всем спасибо, уже сделал:)

 
 
 [ Сообщений: 3 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group