1.
(*program pozdravi*)
program pozdrav;
begin
writeln ('ahoj');readln;
end.
2.
(*scitac*)
program soucet;
var a,b,c:integer;
begin read(a,b);
c:=a+b;
writeln(c);
readln
3.
(*obvod a obsah ctverce*)
program obvod;
var a,y,o:integer;
begin write('zadej strany ctverce');
readln(a);
y:=(4*a);
o:=(a*a);
writeln('obsah ctverce je',y);
writeln('obvod ctverce je',o);
writeln('to koukas co');
readln;
end.
4.
(*obvod a obsah obdelnika*)
program obvod;
var a,b,y,o:integer;
begin writeln('zadej strany obdelnika');
writeln('stranu a');
readln(a);
writeln('stranu b');
readln(b);
y:=(2*(a*b));
o:=(a*b);
writeln('obsah obdelnika je',o);
writeln('obvod obdelnika je',y);
writeln('to koukas co');
readln;
end.
5.
(*obvod a obsah kruhu*)
program kruh;
var r:integer;
o,s:real;
begin writeln('zadej polomer r');
readln(r);
o:=2*3.14*r;
s:=3.14*r*r;
writeln('obvod je',o:8:3);
writeln('obsah je',s:8:3);
writeln('nezdrzuj, priste si vem kalkulacku');
readln
end.
6.
(*obvod a obsah pravouhleho trojuhelnika*)
program trojuhelnik;
var a,b,c:real;
o,s:real;
begin writeln('napis stranu a');
readln(a);
writeln('napis stranu b');
readln(b);
c:=sqrt(a*a+b*b);
o:=(a+b+c);
s:=(a*b)/2;
writeln('strana c je');
writeln(c:8:3);
writeln('obvod je');
writeln(o:8:3);
writeln('a obsah je');
writeln(s:8:3);
writeln('diky za pocitani, pro ukonceni stisknete ENTER');
readln;
end.
7.
(*prevod*)
program prevadec;
var a,b,c:real;
begin writeln('napis cislo');
readln(a);
writeln('pro prevod na milimetry stiskni 1');
writeln('pro prevod na decimetry stiskni 2');
writeln('pro prevod na kilometry stiskni 3');
readln(b);
if b=1 then c:=(a*1000);
if b=2 then c:=(a*100);
if b=3 then c:=(a/1000);
writeln(c:8:3);
readln;
end.
8.
(*vypise sousedy znaku*)
program vypisovac;
var z,p,n:char;
begin writeln('napis znak');
readln(z);
p:=pred(z);
n:=succ(z);
writeln('predchudce je');
writeln(p);
writeln('nasledovnik je');
writeln(n);
readln;
end.
9.
(*pocet kraliku a slepic*)
program pocitac;
var a,b,c,d:integer;
begin writeln('napis pocet kraliku');
readln(a);
writeln('napis pocet slepic');
readln(b);
c:=(a*4+b*2);
d:=(a+b);
writeln('pocet hlav je');
writeln(d);
writeln('pocet nohou je');
writeln(c);
readln;
end.
10.
(*celociselny podil a zbytek*)
program podil;
uses crt;
var a,b,c,d:integer;
begin clrscr;
writeln('zadej 2 cisla');
readln(a);
readln(b);
c:=a div b;
textcolor(yellow);
writeln('vysledek je', c);
d:=a mod 2;
textcolor(red);
writeln('zbytek je', d);
readln;
end.
11.
(*prekoduje znak o dany pocet pozic*)
program prekodovac;
uses crt;
var vs,vy,q,w:char;
a,b:integer;
begin clrscr;
readln(vs,a);
b:=ord (vs);
b:=b+a;
vy:=chr(b);
writeln(vy);
writeln('zmackni q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
12.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
writeln('napis cislo b');
readln(b);
if a<b then writeln('a je mensi jak b');
if a>b then writeln('a je vetsi jak b');
if a=b then writeln('nezkousej to na me, jsou stejny');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
13.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
if a<0 then writeln('cislo je zaporne');
if a>0 then writeln('cislo je kladne');
if a=0 then writeln('neni kladne, ani zaporne');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
14.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
if a<0 then writeln('cislo je zaporne');
if a>0 then writeln('cislo je kladne');
if a=0 then writeln('neni kladne, ani zaporne');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
15.
(*rozhodnete kolikaciferne cislo je*)
program cifry;
uses crt;
var a:integer;
begin clrscr;
writeln('napis cislo');
readln(a);
if a<10 then writeln('jednociferne')
else if a>99 then writeln('viceciferne');
readln;
end.
16.
(*vetsi cislo*)
program cislo;
uses crt;
var x:char;
a,b,c:integer;
begin clrscr;
writeln('zadej cislo');
readln(a);
writeln('zadej druhe cislo');
readln(b);
if a>b then writeln(a:5,b:5);
if a<b then writeln(b:5,a:5);
if a=b then writeln('jsou stejny');
textcolor(4);
writeln('pro ukonceni zmackni q');
repeat
if keypressed then readln(x);
until x='q';
end.
17.
18.
(*pozdrav podle hodin*)
program hodiny;
uses crt;
var a,b,c:integer;
begin clrscr;
writeln('napiste kolik je hodin, bez minut');
readln(a);
if a<12 then writeln('dobre dopoledne')
else if a<=18 then writeln('dobre odpoledne')
else if a<=24 then writeln('dobry vecer')
else writeln('neblbni');
readln;
end.
19. (*program ktery rozhodne typ znaku*)
program znaky;
uses crt;
var a: char;
begin clrscr;
writeln ('zadej znak');
readln (a);
if (a>'A') and (a<='Z') then writeln ('velke pismenu')
else if (a>='a')and(a<='z') then write ('male pismeno')
else if (a>='0') and (a<='9') then write('cislo')
else write ('jiny znak');
readln;
end.
kalkulacka
(*kalkulacka*)
program pocitani;
uses crt;
var cis1,cis2,vys:integer;
ope:char;
begin clrscr;
writeln ('zadej cislo 1:');
readln (cis1);
writeln ('zadej operator:');
readln (ope);
writeln ('zadej cislo 2:');
readln (cis2);
if(ope='+') then vys:=cis1+cis2;
if(ope='-') then vys:=cis1-cis2;
if(ope='*') then vys:=cis1*cis2;
if(ope='/') then vys:=cis1 div cis2;
writeln ('vyjde nam ', vys);
readln;
end.
Pekař
(*pekar*)
program delta;
uses crt;
var a,b,c,d: real;
begin clrscr;
writeln ('ze vikend ma');
readln (a);
c:=(a/100)*15;
b:=(a-c)-1000;
writeln ('za mesic zbyde ',b:8:3);
d:=b*52;
writeln ('za rok ma ',d:8:3);
if d<15000
then writeln ('nekoupi si auto');
if d>15000
then writeln ('muze si koupit auto za 15000Kc');
if d>25000
then writeln ('muze si kopuit auto za 25000Kc');
readln;
end.
(*opakovaniapodminka*)
program vypisovac;
uses crt;
var n,i: integer;
begin clrscr;
writeln ('zadej cislo');
readln (n);
i:=0;
repeat i:=i+1;
writeln (i)
until i=n;
readln;
end.
Vypisovac
(*opakovaniapodminka*)
program vypisovac;
uses crt;
var n,i: integer;
begin clrscr;
writeln ('zadej cislo');
readln (n);
i:=0;
repeat i:=i+1;
writeln (i)
until i=n;
readln;
end.
(*rozhoduje co je znak*) program rozhodovac; uses crt; var a,b:char; begin clrscr; writeln('klikni na libovolnou klavesnici'); repeat readln(a); case a of '0'..'9':writeln('cislo'); 'a'..'z':writeln('male pismeno'); 'A'..'Z':writeln('velke pismeno'); else writeln('jiny znak'); end; until a=';'; end.
(*zaradi datum*) program zarazovac; uses crt; var a,b:integer; begin clrscr; writeln('napiste datum (den)'); readln(a); writeln('napiste mesic (cislem)'); readln(b); case b of 1..3:writeln('1 ctvrtleti'); 4..6:writeln('2 ctvrtleti'); 7..9:writeln('3 ctvrtleti'); 10..12:writeln('4 ctvrtleti'); else writeln('nevymyslej blbosti'); end; readln; end.
(*bmi index*) program bmi; uses crt; var a,b,c,d:integer; e,f:real; x:char; begin clrscr; repeat writeln('zadej svou vahu (kg)'); readln(a); writeln('zadej svou vysku (m)'); readln(f); e:=a/(f*f); writeln('tvuj idex je ',e:8:3); case round(e) of 0..20:writeln('podvaha'); 21..25:writeln('normal'); 26..100:writeln('nadvaha'); end; writeln('pro ukonceni zmackni ; nebo pokracuj ENTER'); x:=readkey; until x=';' end.
(*rodne cislo*) program rodne; uses crt,dos; var r,m,d,a:integer; rok,mesic,den,dent:word; x:char; begin clrscr; repeat GetDate(rok,mesic,den,dent); writeln('napis prvni 2 cisla z rodneho cisla'); readln(r); writeln('napis druhe 2 cisla z rodneho cisla'); readln(m); writeln('napis treti 2 cisla z rodneho cisla'); readln(d); case m of 1..12:writeln('muz'); 13..62:writeln('zena'); end; if m>13 then m:=m-50; writeln('narodil si se ', d); case m of 1:writeln('leden'); 2:writeln('unor'); 3:writeln('brezen'); 4:writeln('duben'); 5:writeln('kveten'); 6:writeln('cerven'); 7:writeln('cervenec'); 8:writeln('srpen'); 9:writeln('zari'); 10:writeln('rijen'); 11:writeln('listopad'); 12:writeln('prosinec'); end; writeln('v roce 19',r); if r<88 then writeln('jsi plnolety') else writeln('nejsi plnolety'); if (den=d)and(mesic=m) then writeln('happy birthday'); writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*rodne cislo*) program rodne; uses crt,dos; var r,m,d,a:integer; rok,mesic,den,dent:word; x:char; begin clrscr; repeat GetDate(rok,mesic,den,dent); writeln('napis prvni 2 cisla z rodneho cisla'); readln(r); writeln('napis druhe 2 cisla z rodneho cisla'); readln(m); writeln('napis treti 2 cisla z rodneho cisla'); readln(d); case m of 1..12:writeln('muz'); 13..62:writeln('zena'); end; if m>13 then m:=m-50; writeln('narodil si se ', d); case m of 1:writeln('leden'); 2:writeln('unor'); 3:writeln('brezen'); 4:writeln('duben'); 5:writeln('kveten'); 6:writeln('cerven'); 7:writeln('cervenec'); 8:writeln('srpen'); 9:writeln('zari'); 10:writeln('rijen'); 11:writeln('listopad'); 12:writeln('prosinec'); end; writeln('v roce 19',r); if r<88 then writeln('jsi plnolety') else writeln('nejsi plnolety'); if (den=d)and(mesic=m) then writeln('happy birthday'); case m of 1:if d<=21 then writeln('si vodnar') else writeln('si ryba'); 2:if d<=21 then writeln('si ryba') else writeln('si beran'); 3:if d<=21 then writeln('si beran') else writeln('si byk'); 4:if d<=21 then writeln('si byk') else writeln('si blizenec'); end; writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*geometricke tvary*) program geometrie; uses crt; var a,b,c:integer; o,s,f:real; x:char; begin clrscr; repeat writeln('pro vypocet kruhu zmackni 1, pro ctverec 2, pro obdelnik 3'); readln(c); case c of 1:begin writeln('zadej polomer'); readln(a); o:=(2*3.14)*a; s:=3.14*(a*a); end; 2:begin writeln('zadej stranu a'); readln(a); o:=4*a; s:=a*a; end; 3:begin writeln('zadej stranu a'); readln(a); writeln('zadej stranu b'); readln(b); o:=2*(a+b); s:=a*b; end; end; writeln('obvod je ', o:8:3); writeln('obsah je ', s:8:3); writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*priklad 27*) program dvacetsedm; uses crt; var n,i:integer; begin clrscr; readln(n); i:=0; while i<n do begin i:=i+1; writeln(i); end; readln; end.
(*priklad 27 tretim cyklem*) program dvacetsedm; uses crt; var n,i:integer; begin clrscr; readln(n); for i:=1 to n do writeln(i); readln; end.
(*cykly*) program cykly; uses crt; var n,i,a:integer; begin clrscr; writeln('napis libovolne cislo'); readln(n); i:=0; a:=0; repeat i:=i+1; if i=n then write(i) else write(i,'+'); a:=a+i; until i=n; writeln('=',a); readln; end.
(*vytiskni prvni n livhych cisel*) program vytiskovac; uses crt; var n,i:integer; a,x:char; begin clrscr; writeln('napis libovolne cislo'); readln(n); i:=1; repeat i:=i+2; writeln(i); until i>n; readln; end.
(*kladne cislo*) program kladnecislo; uses crt; var i,n,p:integer; o:real; begin clrscr; randomize; textcolor(random(15+1)); repeat writeln('napis cislo'); readln(n); p:=p+1; if n<=0 then writeln('ses nula zadej kladne cislo'); until n>0; writeln('pocet je pokusu', p); o:=sqrt(n); writeln('odmocnina je',o:8:3); readln; end.
(*deset nasobku cisla*) program nasobky; uses crt; var i,n:integer; begin clrscr; writeln('napis cislo'); readln(n); for i:=1 to 10 do write(i,'*',n,'=',i*n,' '); readln; end.
(*nevim*) program nevim; uses crt; var a:integer; begin clrscr; randomize; a:=0; repeat textcolor(random(15+1)); writeln('AHOJ'); a:=a+1; until a=16; readln; end.
(*udela neaky moznosti bez operatoru*) program bezoperatoru; uses crt; var a,b,c,i:integer; begin clrscr; writeln('zadej cislo a'); readln(a); writeln('zadej cislo b'); readln(b); c:=0; i:=0; repeat c:=a+c; i:=i+1; if i=b then write(a) else write(a,'+'); until i=b; writeln('=',c); readln; end.
(*33ka*) program prg; uses crt; var a,b,n,pocet,i:integer; begin clrscr; readln(n); pocet:=0; for i:=1 to n do begin if (n mod i)=0 then begin write(i:4); pocet:=pocet+1; end; end; textcolor(2); writeln(' pocet delitelu je', pocet); readln; end.
(*34 novym zpusobem*) program upgrade34; uses crt; var i,n:integer; begin clrscr; readln(n); for i:=1 to n do writeln(i); readln; end.
(*33ka*) program prg; uses crt; var a,b,n,pocet,i:integer; begin clrscr; readln(n); pocet:=0; for i:=1 to n do begin if (n mod i)=0 then begin write(i:4); pocet:=pocet+1; end; end; textcolor(2); writeln(' pocet delitelu je', pocet); textcolor(9); if pocet<=2 then writeln('prvocislo'); readln; end.
dalsi ulohy:
(*napsat prvnich deset nesobku cosla7*)
var c:integer;
begin c:=0;
repeat c:=c+7;
writeln (c);
until c=70;
readln;
end.
(*38 je dano n cisel,vytisknete primer n=3: 1,2,3 prumer soucet/pocet 6/3=2.maximu, je 3*)
program cisla;
var n, cislo, soucet, i:integer; prumer: real;
begin readln(n);soucet:=0;
for i:=1 to n do
begin readln (cislo);
soucet:=soucet+cislo
end;
prumer:=soucet/n;
writeln ('prumer je:', prumer:0:2);
readln
end.
(*36 je dano n cisel,vytisknete primer n=3: 1,2,3 prumer soucet/pocet 6/3=2.maximu, je 3*)
program cisla;
var n, cislo, max, i:integer; prumer: real;
begin readln(n);max:=0;
for i:=1 to n do
45begin readln (cislo);
if cislo>max then max:=cislo
end;
writeln ('max je:', max);
readln
end.
(*48*)
program uloha48;
uses crt,dos;
var h,m,s,ss:word;
begin
repeat clrscr;
delay(1000);
gettime (h,m,s,ss);
writeln (h,':',m,':',s);
until keypressed;
end.
(*10cisel (10-50)*)
program nasobky;
uses crt;
var c,i:integer;
begin clrscr;
randomize;
for i:=1 to 10 do
begin c:=random(41)+10 ;
writeln(c);
if (c mod 2)=0 then writeln('sude') else
end;
readkey;
end.
(*48*)
program uloha48;
uses crt,dos;
var h,m,s,ss:word;
begin
repeat clrscr;
delay(1000);
gettime (h,m,s,ss);
writeln (h,':',m,':',s);
until keypressed;
end.
(*vytisknete prvnich 10 nasobku cisla n a soucet techto nasobku*)
program nasobky;
uses crt;
var n,i,s:integer;
begin clrscr;
writeln ('zadejte cislo');
readln(n);
for i:=1 to 10 do
begin
writeln(i*n); s:=s+i*n;
end;
writeln ('soucet je',s);
readln;
end.
(*odecitani od 100 n*)
program odecitani;
uses crt;
var n,p:integer;
begin clrscr;
p:=100;
repeat writeln (p);
p:=p-n;
until p<=0;
readkey;
end.
program pade;
uses crt;
var a:integer;
ch: char;
begin
repeat
writeln ('stiskni nekterou klavesu');
ch:=readkey;
case ch of
'a'..'z':writeln ('male pismeno');
'0'..'9':writeln ('cislice');
'A'..'Z':writeln ('velke pismeno');
#27:writeln('ESC');
#13:writeln('ENTER');
#0:begin ch:=readkey;
if ch = #72 then writeln ('sipka nahoru');
if ch = #80 then writeln ('sipka dolu');
if ch = #77 then writeln ('sipka doprava');
if ch = #75 then writeln ('sipka doleva');
end;
end;
until ch=#27;
end.
(*50*)
program pade;
uses crt;
var a: integer;
ch: char;
begin clrscr;
repeat
ch:=readkey;
textcolor(10);
writeln('program ukoncis kl.zkratkou');
textcolor(8);
writeln(ord(ch));
until ord(ch)=1;
end.
(*53 malovani*)
program malovani;
uses crt;
var x,y:integer;
ch:char;
begin textbackground(9); clrscr; x:=40; y:=25;
repeat gotoxy(x,y);
textcolor(10);
textbackground(1);
writeln('*');
ch:=readkey;
if ch=#0 then ch:=readkey;
case ch of
#72:y:=y-1;
#80:y:=y+1;
#77:x:=x+1;
#75:x:=x-1;
end;
until ch=#27
end.
Komentáře
Přehled komentářů
This is a unique place for fashionable women's clothing and accessories.
We offer our clients women's clothing, jewelry, cosmetics and health products, shoes, bags and much more.
https://fas.st/Ujfha
Franknox
(Franknox, 9. 7. 2021 1:46)
Fantastic goods from you, man. I have be aware your stuff previous to and you are just extremely fantastic. I actually like what you have acquired here, really like what you're stating and the way wherein you say it. You are making it enjoyable and you still take care of to keep it sensible. I can not wait to read far more from you. That is actually a great site.
injustes statusnya sachiko particulier greatvomit
(HenisCox, 8. 7. 2021 23:45)https://cutt.us/jdwLP https://cutt.us/oDbCy https://cutt.us/vOhOL https://cutt.us/pydTY - https://clck.ru/VvwAX https://gee.su/ZAz8S https://gee.su/iCWq5 https://cutt.us/exjxV https://cutt.us/oGSTx https://gee.su/MYCgd - https://qps.ru/Wg6PF https://gee.su/GhvT6 https://clck.ru/VvFg3 https://qps.ru/gFZQe https://gee.su/1Cvh3 https://clck.ru/VvQjP - https://qps.ru/t8H9y https://gee.su/bZ7MQ https://cutt.us/patQR https://cutt.us/onreghttps://qps.ru/OseWH https://qps.ru/ewXKo https://clck.ru/Vvr3m https://cutt.us/aATrL - https://qps.ru/tZx4Y https://qps.ru/LeVZ3 https://cutt.us/QEyMs https://qps.ru/7d9LA https://cutt.us/mLRFO https://cutt.us/KGsDC - https://cutt.us/CbVMP https://clck.ru/Vvv6e https://gee.su/oGX5Z https://gee.su/hojXx https://clck.ru/VwG25 https://gee.su/0nrpK - https://qps.ru/DyruA https://gee.su/QdjAu https://cutt.us/SNxPN https://gee.su/h00n9
korado appliquer slammin divpadsmit rancori
(HenisCox, 8. 7. 2021 14:41)https://cutt.us/PwEiJ https://cutt.us/FwCvO https://cutt.us/SzmJj https://clck.ru/VvE6n - https://clck.ru/Vva4L https://clck.ru/VvG7P https://clck.ru/Vx8Hd https://clck.ru/Vvfot https://clck.ru/VvGzQ https://clck.ru/VvLtk - https://qps.ru/cv7uV https://qps.ru/FaPV1 https://gee.su/1h7Az https://qps.ru/DF4IS https://clck.ru/Vvd92 https://cutt.us/qxvnz - https://gee.su/gSyFz https://clck.ru/VvTWF https://clck.ru/VwiVG https://qps.ru/m4SKohttps://gee.su/EUwie https://gee.su/EUsr4 https://cutt.us/MYnRL https://clck.ru/VvmRQ - https://gee.su/ux6Ae https://clck.ru/VvgPq https://gee.su/yTz2P https://qps.ru/x4fBk https://clck.ru/VvG3w https://gee.su/UgFDx - https://cutt.us/jERkO https://cutt.us/hUZgE https://clck.ru/VvoMY https://clck.ru/VwCpT https://clck.ru/VvbgF https://clck.ru/VvPHN - https://gee.su/9Idi3 https://qps.ru/8zxBU https://cutt.us/nXkPB https://clck.ru/Vvbd8
saista rdier rokov cranio dilibatkan
(HenisCox, 8. 7. 2021 5:35)https://qps.ru/efBPs https://qps.ru/SAfvE https://qps.ru/EeDF7 https://qps.ru/EbtYD - https://qps.ru/53xJW https://clck.ru/VwQaD https://clck.ru/VvQv4 https://gee.su/elnAf https://cutt.us/dymSs https://qps.ru/87GUJ - https://cutt.us/FqPrI https://gee.su/SgwP9 https://qps.ru/rSQH6 https://cutt.us/LPpOx https://gee.su/mt3qd https://clck.ru/VvTC5 - https://qps.ru/F6vKd https://cutt.us/ocgrI https://clck.ru/VwK5M https://gee.su/Ks6LRhttps://qps.ru/wKXiT https://clck.ru/VvTtF https://clck.ru/VwKtN https://cutt.us/hWBxd - https://clck.ru/VwGJf https://cutt.us/JUOwY https://cutt.us/IcWqh https://clck.ru/VwBZP https://gee.su/FAUPf https://qps.ru/mLIjX - https://clck.ru/VvMgu https://qps.ru/ku6Hf https://qps.ru/DL1c8 https://cutt.us/TzfeD https://qps.ru/8Z2iq https://gee.su/FJaG1 - https://qps.ru/ObYP5 https://cutt.us/XXeNB https://cutt.us/UUqBJ https://cutt.us/trExT
manipuladas polyspermy youre idolatrous skutocneho
(HenisCox, 7. 7. 2021 20:35)https://cutt.us/JHKvP https://cutt.us/vKWjf https://qps.ru/487VD https://cutt.us/mLVYa - https://gee.su/dml9V https://cutt.us/ZfNDR https://qps.ru/5O6Ps https://gee.su/CWg4X https://gee.su/vC3bg https://gee.su/vElCy - https://clck.ru/Vw7qZ https://clck.ru/VxAgS https://cutt.us/gIOzo https://qps.ru/qmBj0 https://cutt.us/rBuLZ https://clck.ru/VvRj2 - https://gee.su/ka4Lt https://clck.ru/Vx87M https://qps.ru/oQ0t1 https://clck.ru/VvR8Zhttps://clck.ru/VvsRG https://qps.ru/6Hgnq https://qps.ru/hl4Y6 https://gee.su/Saxhb - https://qps.ru/CYrWx https://cutt.us/pqvRx https://gee.su/8Qjcp https://qps.ru/0ruFS https://cutt.us/FwdsB https://cutt.us/KHubE - https://gee.su/VTM2b https://cutt.us/iYgvt https://qps.ru/IxGcJ https://cutt.us/rbbMs https://gee.su/go7Ka https://cutt.us/JthTe - https://clck.ru/VvQN4 https://clck.ru/VwqqH https://clck.ru/VvaG8 https://qps.ru/9rK35
uv led s-nails si
(Adrianbek, 6. 7. 2021 12:41)uv led https://www.s-nails.si/3-uv-led-gel-lak
Women's The rage Backpack
(JasonFlole, 5. 7. 2021 4:29)https://geni.us/qX4pKE leather knapsack for females
Squase
(KeithAsymn, 4. 7. 2021 22:39)
https://telegra.ph/GroГџen-Saftigen-Titten-Milf-11-01
https://telegra.ph/Cutie-Hot-Babe-Tegan-Tate-Loves-Fucking-03-29
https://telegra.ph/Young-Hawaiian-Teen-Pussy-03-27
https://telegra.ph/Young-Beauties-With-Perfect-Slim-Bodies-Fuck-An-04-01
https://telegra.ph/Schöne-Nackte-Teen-Gif-11-02
https://telegra.ph/Nude-Girl-Posing-With-Basketball-04-02
https://telegra.ph/Turned-On-Pigtailed-Auburn-Coed-Gal-Khloe-03-31
https://telegra.ph/Porno-Skinny-10-31
https://telegra.ph/Nikki-Fritz-Sex-Scenes-03-24
https://telegra.ph/Gorgeous-Babe-Mit-GroГџen-WeiГџen-Arsch-Anal-03-28
https://telegra.ph/Wifey-Ass-Play-04-04
https://telegra.ph/Deutschsprachige-Pornofilme-10-31
https://telegra.ph/Mädchen-In-Nazi-Uniformen-11-02
https://telegra.ph/Alte-Lesben-Muschi-Bilder-11-02
https://telegra.ph/Online-Dating-Sites-In-West-Bengal-04-02
https://telegra.ph/Sunny-Leone-Family-Xxx-03-24
https://telegra.ph/Mgs-Panther-Huge-Cock-04-02
https://telegra.ph/Top-Dessous-Xxx-Filme-03-27
https://telegra.ph/Super-Sexy-Latina-Porn-03-23
https://telegra.ph/Wie-Der-Geschmack-Von-Cum-11-02
https://telegra.ph/Richtig-Fette-Titten-03-27
https://telegra.ph/Ryoko-Murakami-Porn-03-29
https://telegra.ph/Naked-Teen-Photos-Black-Girls-In-The-Mirror-03-24
https://telegra.ph/Lesben-Porn-Hd-03-28
https://telegra.ph/
https://telegra.ph/Filipina-Ass-And-Pussy---Porn-Clip-03-31
https://telegra.ph/Deutsche-Oma-Porno-Kostenlos-11-01
https://telegra.ph/Spermatrinken-10-31
https://telegra.ph/Nude-Girls-Teen-Art-Photos-04-03
https://telegra.ph/Pornohimmelnet-11-01
https://telegra.ph/Hotel-Young-Teen-Porn-Videos-03-28
https://telegra.ph/Emily-Blunt-Dating-04-01
https://telegra.ph/Selvaggia-Young-Teen-Porn-Videos-03-28
https://telegra.ph/Fucking-College-Clit-Porn-11-12
https://telegra.ph/Naked-Economics-Chapter-Summaries-04-02
https://telegra.ph/Mydirtyhobby-Free-Stream-11-01
https://telegra.ph/
https://telegra.ph/Einfachpornos-11-01
https://telegra.ph/Nude-Ebony-Taking-Bath-04-01
https://telegra.ph/Little-Bitty-White-Girls-Fuck-11-10
https://telegra.ph/Guy-Licking-Vagina-Naked-11-11
https://telegra.ph/Libaya-Girl-Pussy-Image-03-26
https://telegra.ph/
https://telegra.ph/Porn-Top-Teen-Girl-03-26
https://telegra.ph/Sneha-Naked-And-Shows-Pussy-11-10
https://telegra.ph/Hot-Marathi-Girl-Nude-04-02
https://telegra.ph/Selfie-Porn-Horny-Guy-03-25
https://telegra.ph/Black-Und-White-Dating-Seiten-Kostenlos-11-04
https://telegra.ph/Redhead-Banged-From-Behind-In-Doggy-Style-03-29
https://telegra.ph/Little-Girl-Taking-Big-Rod-Into-Her-Little-Hole-03-29
Play in best games
(ScottPunty, 3. 7. 2021 8:09)
TOP porn games in the world https://www.myadultonlinegames.com/category/premium-adult-games - go and play
ElaralpEurolve wknus
(pharmacepticacom, 1. 7. 2021 14:26)buy erectile dysfunction meds https://pharmaceptica.com/
301 Moved Permanently
(JamesAwaip, 1. 7. 2021 3:51)301 Moved Permanently https://motionfreecambodia.wordpress.com/ - 301 Moved Permanently>>>
ElaralpEurolve klqnz
(pharmaceptica.com, 29. 6. 2021 19:41)sildenafil 50 mg online uk https://www.pharmaceptica.com/
купить ремень грм
(Robertghm, 29. 6. 2021 2:02)
Доброго времени суток дамы и господа
Бурение скважин
В этой статье мы Вам расскажем для чего необходимо бурение и какие виды бурения бывают.
Для чего необходимо бурение скважины?
В загородных постройках, которые находятся на большом расстоянии от централизованных систем, остро встает вопрос персонального водоснабжения. Использование подземных источников позволяет вести автономное существование с максимальным и рациональным уровнем комфорта.
Помимо обеспечения водой, крайне необходимо чтобы вода была и пригодной к употреблению и использованию в домашних условиях. Подземные воды, изолированные толщами горных пород от поверхностного загрязнения, отвечают санитарным нормам, установленным для воды бытового назначения. При дополнительной очистке, проходя через фильтровальное устройство, они приобретают высокое качество. Для того чтобы получить доступ к источникам воды — требуется бурение скважин под воду.
Для определения способа бурения водозаборной скважины на участке нужно правильно определить глубину уровня подземных вод и породы геологического разреза, которые подлежат проходке. Правильно выбранная технология бурения скважин на воду позволит быстро пробурить скважину, избежать аварийных ситуаций при бурении. Наши специалисты выедут на участок и помогут определить вид и способ бурения, который будет оптимальным именно для вашего участка.
Бурение скважины
Бурение скважин — это способ и режим разрушения различных горных пород, очищение ствола скважины и укрепление ее стенок, оборудование водоприемной части.
В процессе бурения будет образовано направленное отверстие цилиндрической формы в породе, которое необходимо для монтажа обсадной колоны. Такая скважина представляет собой гидротехническое сооружение, имеющее круглое сечение, а глубина ее бурения зависит от особенностей грунта. Перед тем, как обустроить водозабор необходимо установить на какой глубине находится, водоносные слои и от этого будет зависеть способ бурения, которое бывает роторным и шнековым.
Виды бурения
Шнековое Бурение — это способ вращательного бурения при котором порода от забоя до верха скважины поднимается при помощи шнека — буровой трубы с наваренной на неё стальной лентой. На нижнем конце первого шнека установлен режущий наконечник, он при вращении разрыхляет почву и по шнеку порода поднимается от забоя до устья скважины. Шнековый способ применяется при бурении неглубоких скважин в песчаных и глинистых породах, а так же в породах средней твердости.
Стоимость такого бурения в нашей компании 55 рублей за метр погонный.
Роторное Бурение (Бурение с промывкой или продувкой). При таком способе бурения используется оборудования вращательного типа. Порода разрушается специальным инструментом долотом. В результате поступательно-вращательных движений, оборудование постепенно заглубляется, а почва из забоя выводится наружу глиняным раствором, водой или сжатым воздухом. Применяется для бурения как мягких, так и твёрдых пород на довольно большую глубину. Скважины, сделанные роторным способом имеют более продолжительный срок службы.
Роторное Бурение в нашей организации стоит 60 рублей за метр погонный.
Виталий и Евгений - специалисты по бурению!
Виталий и Евгений — специалисты по бурению!
Пробурили на двоих не одну сотню скважин с 2006 года! Имея огромный опыт за плечами наши сотрудники нацелены на бурение в максимально короткие сроки, минимизируя ошибки и оперативно решать возникшие трудности на пути к вашей воде! А благодаря собственному автопарку, буровых установок, большого и дружного коллектива мы можем предложить максимально интересные условия для сотрудничества!
Задать интересующие вопросы можно заполнив форму ниже или позвонить нам по телефону:
+375 (29) 186-45-03
Обещаем, Вы не пожалеете!
ElaralpEurolve eyfqa
(pharmaceptica, 26. 6. 2021 6:42)is chloroquine a sulfa drug https://www.pharmaceptica.com/
скважина на воду зимой
(Donaldkvn, 23. 6. 2021 1:15)
Здравствуйте господа
О компании КОНТАКТЫ ДОКУМЕНТЫ ОТЗЫВЫ НАШИ РАБОТЫ
Буровая компания «БурТехСервис» образована в апреле 2010 года и с тех пор активно осуществляет свою деятельность, не испытывая дефицита работы. Штат специалистов 10 человек позволяет нам быть задействованными в нескольких проектах одновременно. Наши сотрудники отличаются высоким уровнем профессионализма и обладают опытом деятельности в этой сфере вот уже 10 лет. Мы специализируемся на решении задач по комплексному водоснабжению и канализации в частных домах и коттеджах под ключ, осуществляем сервисное обслуживание и ремонт скважин, устанавливаем фильтры для очистки воды, а также другие специальные виды работ по бурению скважин широкого назначения – скважины на песок и артезианские скважины, находящиеся на глубине от 20 до 200 м.
burtehservice-logo
Мы - профессионалы своего дела!
Мы специализируемся на бурении и обустройстве скважин любой сложности. Пробурили уже более тысячи скважин. Каждый новый проект давал нам возможность расти и расширяться, учиться и совершенствовать свое мастерство в этой сфере. Мы не привыкли видеть в Вас клиента, мы хотим, чтобы на время нашего сотрудничества Вы стали нашим партнером, с которым пройдя путь от начального этапа Вашего заказа, мы выйдем на конечный рубеж доставив Вам комфорт от осуществленных нами услуг. Мы рады раскрыть свой потенциал на ваших объектах и готовы к сотрудничеству.
Дубовик Евгений Викторович - Индивидуальный предприниматель.
Основные виды деятельности:
Бурение скважин на воду;
Монтаж систем водоснабжения;
Монтаж фильтров водоочистки;
Монтаж систем канализации;
Сервисное обслуживание систем водоснабжения, водоочистки и канализации;
История в цифрах
2010 — Год основания компании. Специалисты компании «БурТехСервис» оказывают услуги комплексного водоснабжения объектов. Штат сотрудников включает специалистов, имеющих аккредитацию, а также специалистов с опытом работы не менее 10 лет в данной сфере.
2014 — Компания динамично развивается, наращивает объемы выполняемых работ по обеспечению частных лиц и предприятий водой, строительство ВЗУ, бурение промышленных скважин, работы в Минской области и регионах Гродненской области.
2020 — Сегодня компания «БурТехСервис» занимает одно из лидирующих мест среди буровых компаний оказывающих услуги по бурению скважин и водоснабжению объектов. Серьезный опыт вот уже 10 лет в оказываемых нами услугах. Сформированы все штатные единицы компании. Персонал постоянно повышает свою квалификацию. Наличие собственной буровой и строительной техники.
Предоставляемое оборудование
Компания «БурТехСервис» использует оборудование фирмы БурСпецТехника, Партнер, МОЗБТ.
Предлагаем бонусы Устранение сайтов мошенника вирусные базы
(StasVlasov, 21. 6. 2021 9:30)
Предлагаем испытанную временем услугу:
"Быстрая ликвидация сайтов конкурентов!"
Каким методом мы это выполняем?!
- Опыт наших специалистов - 10 лет.
- Используем конфиденциальные методы.
- Наращиваем серьезную ссылочную массу с использованием порно и вирусных ссылок.
- Поисковики молниеносно обращают внимание на наши базы.
- Тексты с веб-сайта спамятся, что делает их неуникальными.
- У нашей компании очень серьезные возможности и практический опыт в данной сфере деятельности.
Стоимость 6000py.
Полная отчётность.
Оплата: Qiwi, Яндекс.Деньги, Bitcoin, Visa, MasterCard...
Telgrm: @xrumers
Skype: xrumer.pro
WhatsApp: +7(977)536-08-36
электронка: support@xrumer.cc
Только эти!
А тАкож Работаем со Студиями!
скважина на воду стоимость
(Donaldpqm, 20. 6. 2021 12:06)
Добрый день дамы и господа
Ремонт скважин Ремонт скважин в Минске – это комплекс мер, направленных на восстановление работоспособности скважины и водоподъемного оборудования. Заметное уменьшение объема добываемой из скважины воды или появление в ней примесей могут вызывать разные причины.
Основные неисправности – это:
износ или повреждение погружного насоса,
забивание песком (илом) фильтра скважины,
износ и повреждение обсадных труб.
Не рекомендуем пытаться устранять эти неисправности самостоятельно, так как неумелые действия могут привести к повреждению скважины или погружного насоса. Из-за чего затраты на ремонт скважины возрастут многократно.
Стоимость ремонта скважин
Наименование работ
Цены, BYN
Поднятие и замена насоса из скважины (без материала)
от 200 руб
Поднятие и замена насоса в промышленных скважинах
от 1500 руб
Замена и ремонт элементов автоматики оборудования скважины
от 100 руб
Диагностика и ремонт старых скважин
от 100 руб
Восстановление дебита скважин
от 400 руб
Видео инспекция скважин с выездом на место
от 250 руб
Извлечение застрявших в скважинах насосов
от 230 руб
Прочистка и промывка скважин
от 230 руб
Восстановление паспорта скважины
от 70 руб
Консервация скважин
от 800 руб
Кислотная обработка скважин
Договорная
Оценка водных запасов
Договорная
Ликвидация скважины
Договорная
Этапы ремонта скважины на воду:
1 этап:
Диагностика. Выполняется обследование скважины.
2 этап:
После выявления причины неисправности, составляется план работ по восстановлению скважины наиболее подходящим методом в каждом конкретном случае.
3 этап:
После ремонта выдаётся акт выполненных ремонтных работ и рекомендации по уходу за восстановленной скважиной.
Диагностика скважины и выявление причин неисправностей
Перед тем как наметить план ремонтных работ и выяснить причины поломки, необходимо провести обследование и оценить состояние скважины. Если неисправность вызвана заиливанием и вообще попаданием посторонних примесей, то поможет обыкновенная промывка скважины. Несколько часов – и Ваша скважина снова даёт чистую воду. Если же дело серьёзнее, и повреждён фильтр либо насосное оборудование, понадобится ремонт скважины на воду.
Для обеспечения беспрерывной работы скважины, необходимо правильно её эксплуатировать, проводить регулярное обслуживание и устранять мелкие поломки своевременно, не дожидаясь когда скважина перестанет работать совсем.
Мы ценим доверие наших клиентов, поэтому наша компания “БурТехСервис” проводит регулярное техническое обслуживание пробуренных нами скважин.
На фото представлено выполнение работ по замене скважинного насоса.
Прекрасные кинофильмы
(Peterker, 18. 6. 2021 17:24)https://kino-teatr.ua/articles/chto-v-kino-premeryi-nedeli-12-18-dekabrya-4801.phtml - Замечательные кинофильма
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100
Major
(KennethElulp, 9. 7. 2021 3:43)