---

Hej,

jeg ved intet om pascal, men har downloaded dev-pascal 1.9 og inskrevet en
kildetekst på et program jeg skal bruge. Jeg har kørt compileren og rettet
fejl. Nu kører programmet, men vinduet åbner og lukker med det samme, uden
at jeg kan nå at taste data ind eller se reslutatet. Er der nogen der kender
løsningen på problemet?

p.s. programmet er skrevet til Turbo Pascal jeg ved ikke om det betyder
noget

Kildetekst:
Program Trykst;
{Simpelt trykstødsprogram for pumpestop i Turbo Pascal}
{$N-} Uses Crt,Dos,Printer;
Const

L=1000.0; { rørlængde (m) }
D=0.2354; { rørdiameter (m) }
Hgeo=6.0; { geometrisk løftehøjde (m) }
Vstart=1.10; { hastighed i rør før pumpestop (m/sec) }
f=0.00545; { friktionstal (dim.løs) }
c=295.0; { trykstøds bølgehastighed (m/sec2) }
g=9.8105; { tyngdens acceleration (m/sec2) }
n=21; { antal beregningspunkter }
Jmax=500; { antal tidsskridt }
Var
H,Hp,V,Vp :Array[1..100] of Real;
t,dx,dt,R,DeltaH :Real;
i,j :Integer;
resultat :Text;
Begin
Assign(resultat,'resfile.res'); Rewrite(resultat);
dx:=L/(n-1); dt:=dx/c; R:=0.25*D;
{---Begyndelsesbetingelser - Stationær strømning--- }
DeltaH:=f*Vstart*Vstart*L/(2*g*R);
For i:=1 To n Do
Begin
V[i]:=Vstart; H[i]:=Hgeo+DeltaH*(n-i)/(n-1);
End;
{--- Her begynder den ikke-stationære beregning --- }
For J:=1 To Jmax Do
Begin
t:=j*dt;
{-Opstrøms randbetingelse - stoppet pumpe med kontraventil-}
Vp[1]:=0.0; { Kontraventil antages at være lukket }
Hp[1]:=H[2]+(c/g)*(Vp[1]-V[2])+f*V[2]*Abs(V[2])*dx/(2*g*R);
IF Hp[1]<0.0 THEN { Kontraventil åben hvis trykket er negativt }
Begin
Hp[1]:=0.0;
Vp[1]:=V[2]+(g/c)*(Hp[1]-H[2]-f*V[2]*Abs(V[2])*dx/(2*g*R));
End;
{--- Indre beregningspunkter ---}
For i:=2 To n-1 Do
Begin
Hp[i]:=0.5*(H[i-1]+H[i+1])+0.5*(c/g)*(V[i-1]-V[i+1])
+c*f*dt/(2*g*R)*(0.5*(V[i+1]*Abs(V[i+1])-V[i-1]*Abs(V[i-1])));
Vp[I]:=0.5*(V[i-1]+V[i+1])+0.5*(g/c)*(H[i-1]-H[i+1])
-f*dt/(2*R)*(0.5*(V[i+1]*Abs(V[i+1])+V[i-1]*Abs(V[i-1])));
End;
{--- Nedstrøms randbetingelse - konstant trykniveau ---]
Hp[n]:=Hgeo;
Vp[n]:=V[n-1]-(g/c)*(Hp[n]-H[n-1]+f*V[n-1]*Abs(V[n-1])*dx/(2*g*R));
{--- Udskrift gamle værdier med nye ---}
For i:=1 To n Do Begin H[i]:=Hp[i]; V[i]:=Vp[i]; End;
{--- Udskriv resultater ---}
Writeln(resultat, 't= ',t:5:2,' ',Hp[1]:7:2,' ',Hp[17]:7:2);
End;
Close(resultat);
End.

---

Tilføj "readln;" efter close(result).

"dueweng" <dueweng@image.dk> wrote in message
news:dgqea.642$vn1.163946@news010.worldonline.dk...
> Hej,
>
> jeg ved intet om pascal, men har downloaded dev-pascal 1.9 og
inskrevet en
> kildetekst på et program jeg skal bruge. Jeg har kørt compileren og
rettet
> fejl. Nu kører programmet, men vinduet åbner og lukker med det samme,
uden
> at jeg kan nå at taste data ind eller se reslutatet. Er der nogen der
kender
> løsningen på problemet?
>

---

"Uffe Kousgaard" <uffe@routeware.dk> wrote in
news:3e7a46e5$0$137$edfadb0f@dtext01.news.tele.dk:

> "dueweng" <dueweng@image.dk> wrote in message
> news:dgqea.642$vn1.163946@news010.worldonline.dk...
>> Hej,
>>
>> jeg ved intet om pascal, men har downloaded dev-pascal 1.9 og
>> inskrevet en kildetekst på et program jeg skal bruge. Jeg har kørt
>> compileren og rettet fejl. Nu kører programmet, men vinduet åbner og
>> lukker med det samme, uden at jeg kan nå at taste data ind eller se
>> reslutatet. Er der nogen der kender løsningen på problemet?
>>
> Tilføj "readln;" efter close(result).
>

Men eftersom programmet blot skriver nogle data til en fil og ikke noget
til skærmen, så er det jo egentlig ligemeget om vinduet forsvinder
umiddelbart efter udførslen.

/Claus

--
Claus Christiansen, <mailto:NOSPAM@unipeople.dk>, leave the adr. as it is
personal: <http://unipeople.dk/~cch>; pythia: <http://www.pythia.dk>
===========================================================--------------
"Computers are useless. They can only give you answers" - Pablo Picasso