Localize file www.TrSek.com/pas/geo5.pas{ GEO5.PAS }
{ Program na vypocet unosnosti zakladovej pody podla STN 731001 }
{ a ENV 1997-1. }
{ Vhodny len pre uzivatelov poznajucich vstupne parametre. }
{ }
{ Author: Miroslav Cerny }
{ Datum: 18.07.2006 http://www.trsek.com }
program Unosnost_zakladovej_pody;
var nd1:real;
R,idel,ibel,icel,gd,gb,gc,Hb,Hl,Nbe,sce,Reb,Rel,pomo,pomo1,ggg:real;
a:integer;
Nc,Nd,Nb,c,l,b,d,g1,g2,Sc,Sd,Sb,dc,db,dd,ic,id,ib,dt,f,H,V,Be,ideb,ibeb,iceb:real;
nazov:string;
Ff:text;
begin
Assign(Ff,'vypocet.txt'); { Standard output }
append(Ff);
writeln;writeln(Ff);
for a:=1 to 68 do write('-'); writeln;
for a:=1 to 68 do write(Ff,'-'); writeln(Ff);
writeln (' énosnosœ z kladovej p“dy pod–a STN 731001 a ENV 1997-1');
writeln (Ff,' Unosnost zakladovej pody podla STN 731001 a ENV 1997-1');
for a:=1 to 68 do write('-');
for a:=1 to 68 do write(Ff,'-');
writeln;
writeln(Ff);
writeln('POKYNY:');
writeln;
writeln('- pri vìpoŸte zad vajte vstupn‚ parametre v uvedenìch jednotk ch');
writeln('- desatinn‚ miesta odde–ujte bodkou');
writeln('- na prechod k Ôalçiemu kroku vìpoŸtu stlaŸte kl vesu " ENTER "');
writeln('- ak chcete z¡skaœ vìpoŸtov£ £nosnosœ zeminy zadajte');
writeln(' vìpoŸtov‚ parametre çmykovej pevnosti zeminy');
writeln('- v pr¡pade vstupov pre Eurok¢d zad vajte extr‚mne zlo§ky zaœa§enia');
writeln;
writeln;
write('VSTUPY:');
writeln(' (Pre spustenie vìpoŸtu stlaŸte kl vesu " ENTER")');
repeat
write ('Zadajte hodnotu s£dr§nosti zeminy (kPa) c='); read(c);
if c < 0 then
writeln('Pozor s£dr§nosœ zeminy nem“§e byœ z porn !');
until c>=0;
writeln (Ff,'Sudrznost zeminy c=',c:4:2,'kPa');
repeat
write ('Zadajte uhol vn£torn‚ho trenia zeminy (v stupåoch) f='); read(f);
if f<0 then
writeln('Pozor uhol vn£torn‚ho trenia zeminy nem“§e byœ z pornì!');
until f>=0;writeln (Ff,'Uhol vnutorneho trenia zeminy f=',f:4:2,'stupnov');
f:=f*3.14159265359/180 ;
repeat
write('Zadajte objemov£ tia§ zeminy nad z kladovou çk rou (kN/m3) ');read(g1);
if g1<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until g1>=0;
writeln (Ff,'Objemova tiaz zeminy nad zakladovou skarou =',g1:4:2,'kN/m3');
repeat
write('Zadajte objemov£ tia§ zeminy pod z kladovou çk rou (kN/m3) ');read(g2);
if g2<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until g2>=0;
writeln (Ff,'Objemova tiaz zeminy pod zakladovou skarou =',g2:4:2,'kN/m3');
repeat
write('Zadajte efekt¡vnu ç¡rku z kladu (m) b='); read(b);
if b<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until b>=0;
writeln (Ff,'Efektivna sirka zakladu b=',b:4:2,'m');
repeat
write('Zadajte efekt¡vnu d’§ku z kladu (m) l='); read(l);
if l<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until l>=0;
writeln (Ff,'Efektivna dlzka zakladu l=',l:4:2,'m');
repeat
write('Zadajte h’bku zalo§enia z kladu (m) d='); read(d);
if d<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until d>=0;
writeln (Ff,'Hlbka zalozenia zakladu d=',d:4:2,'m');
write('Zadajte odklon zaœa§enia od zvislice (v stupåoch) dt='); read(dt);
writeln (Ff,'Odklon zatazenia od zvislice dt=',dt:4:2,'stupnov');
dt:=dt*3.14159265359/180 ;
writeln;
writeln('DodatoŸn‚ vstupy pre vìpoŸet pod–a n vrhu eur¢pskej normy ENV 1997-1');
writeln;
repeat
write('Zadajte horizont lne zaœa§enie z kladu rovnobe§n‚ s jeho ç¡rkou (kN) Hb='); read(Hb);
if Hb<=0 then
writeln('Hodnota je predpokladan ako kladn !');
until Hb>=0;
writeln (Ff,'Horizontalne zatazenie zakladu rovnobezne s jeho sirkou Hb=',Hb:4:2,'kN');
repeat
write('Zadajte horizont lne zaœa§enie z kladu rovnobe§n‚ s jeho d’§kou (kN) Hl='); read(Hl);
if Hl<=0 then
writeln('Hodnota je predpokladan ako kladn !');
until Hl>=0;
writeln (Ff,'Horizontalne zatazenie zakladu rovnobezne s jeho dlzkou Hl=',Hl:4:2,'kN');
repeat
write('Zadajte vertik lne zaœa§enie z kladu (kN) V='); read(V);
if V<=0 then
writeln('Hodnota nem“§e byœ z porn !');
until V>=0;
writeln (Ff,'Vertikalne zatazenie zakladu V=',V:4:2,'kN');
repeat
write('Zadajte sklon ter‚nu (v stupåoch) Be='); read(Be);
if Be<=0 then
writeln('Hodnota je predpokladan ako kladn !');
until Be>=0; writeln (Ff,'Sklon terenu Be=',Be:4:2,'stupnov');
Be:=Be*3.14159265359/180 ;
writeln; writeln(Ff);
writeln('MEDZIVíSLEDKY - STN 731001 (ENV 1997-1):');
writeln(Ff,'MEDZIVYSLEDKY - STN 731001 (ENV 1997-1):');
for a:=1 to 68 do write('-'); writeln;
for a:=1 to 68 do write('-'); writeln;
writeln;writeln(Ff);
writeln;writeln(Ff);
R:=(c*Nc*Sc*dc*id)+(g1*d*Nd*Sd*dd*id)+(g2*0.5*b*Nb*Sb*db*id);
Reb:=(c*Nc*Sce*dc*iceb*gc)+(g1*d*Nd*Sd*dd*ideb*gd)+(g2*0.5*b*Nbe*Sb*db*ibeb*gd);
Rel:=(c*Nc*Sce*dc*icel*gc)+(g1*d*Nd*Sd*dd*idel*gd)+(g2*0.5*b*Nbe*Sb*db*idel*gd);
writeln('énosnosœ podlo§ia vypoŸ¡tan pod–a STN 731001 je R = ',R:4:1,'kPa');
writeln('énosnosœ podlo§ia vypoŸ¡tan pod–a ENV 1997-1 je R = ',Reb:4:1,'kPa');
writeln('(horizont lne zaœa§enie p“sob¡ v smere rovnobe§nom so ç¡rkou z kladu)');
writeln('énosnosœ podlo§ia vypoŸ¡tan pod–a ENV 1997-1 je R = ',Rel:4:1,'kPa');
writeln('(horizont lne zaœa§enie p“sob¡ v smere rovnobe§nom s d’§kou z kladu)');
writeln(Ff,'Unosnost podlozia vypocitana podla STN 731001 je R = ',R:4:1,'kPa');
writeln(Ff,'Unosnost podlozia vypocitana podla ENV 1997-1 je R = ',Reb:4:1,'kPa');
writeln(Ff,'(horizontalne zatazenie posobi v smere rovnobeznom so sirkou zakladu)');
writeln(Ff,'Unosnost podlozia vypocitana podla ENV 1997-1 je R = ',Rel:4:1,'kPa');
writeln(Ff,'(horizontalne zatazenie posobi v smere rovnobeznom s dlzkou zakladu)');
readln;writeln(Ff);
writeln;
writeln('Celì vìpoŸet je ulo§enì v textovom s£bore vypocet.txt !');
for a:=1 to 68 do write('-'); writeln;
writeln('Naprogramoval Miroslav ¬ernì');
writeln(Ff,'Tento program bol vytvoreny hlavne z dovodu precvicenia si programovania.');
writeln('Pripomienky a dotazy mi m“§ete nap¡saœ na email: cerny@orangemail.sk');
writeln(Ff,'Pripomienky a dotazy mi mozete napisat na email: cerny@orangemail.sk');
writeln('Òakujem V m!');
writeln(Ff,'Dakujem Vam!');
writeln;