Kas gal sumastę kaip išsisukt nuo klevo lapo? Prikibo du kilbukai mentai dėl jo ir rašo nuolat baudas. Per ~25000 km stažą sustabdę buvo daug ~10 kartų, bet niekas nekibo dėl to klevo lapo. Bet va atsirado du kilbukai, kurie žmogiškai nesupranta, kad užtenka tų baudų man rašyt. Visiems ok, bet jiems neįtiko.
KET 4 priedo 20 dalis: "Vairuotojams, neturintiems 2 metų vairavimo stažo, privaloma ant automobilio priekinės ir galinės dalių turėti kvadratinį žalią klevo lapo formos skiriamąjį ženklą. Kvadrato kraštinės ilgis – nuo 150 mm iki 200 mm."
Masčiau užklijuot po kapotu ir ant bagažinės iš vidaus, bet klausimas ar nėra kur kokio straipsniuko KET'e, kad transporto priemonių skiriamieji ir informaciniai ženklai būtinai turi būti matomi. Idiotiškai viskas čia skamba, bet gal išeitų sužaist su žodžiais. Principo reikalas jau pasidarė, vienas mentas mldc, šneka kaip žmogus, o jo kolega pamato mane priešai parvažiuojanti tai šoka iš mašinos stabdyt arba soka i masina ir vejasi per puse miesto jei pamato kur nors toli.
Komentarai nesusiję su šita konkrečia tema bus ištrinti. Nereikia man moralų "užsidėk klevo lapą". ;]
Kad jus biski nusisnekat. Pagal jusvisi, lietuviai padroztas parduoda, o uzsienieciai tai tik geras, ane? Apskritai niekas geros masinos neparduoda, o tiketis, kad 15 metu senumo masina bus kaip nauja, yra kvaila. Reikia ziureti i masinos bukle, o ne ar Lietuvoje vazineta. Lietuvoje vazinetos masinos privalumai - praeita technikine, galbut draudimas dar nepasibaiges, daznai pridedamas antras padangu ar net ratlankiu komplektas, mage, aparatura. O is uzsienio atvaryta masina buna be siu priedu. I tai taip pat reikia atkreipti demesi, ypac perkant pigesne masina.
Žinau, kad skaičiuoti svetimus pinigus nemandagu, bet manau daug kam didelė paspirtis būtų sužinant jog iš to tikrai įmanoma užsidirbti. Taigi kiek uždarbiečių- blogerių užsidirba iš savo blogų? Kiek (nebūtina tiksliai atsakyti, tiesiog pvz.: ant alaus užtenka, ant benzo užtenka ir pan. :) ) ?
Sveiki, taigi 10 klasės informatikos kurse tenka visiems paragauti programavimo pradmenų. Vieniems sekasi geriau, kitiems blogiau... Bet visgi dauguma žmonių prašo pagalbos forume sprendžiant vienokius ar kitokius uždavinius. Todėl nusprendžiau su jumis pasidalinti savo programomis, kurias darėme praeitais metais ir dar keletu naudingų dalykėlių, kuriuos "pasiskolinau" iš mokyklos kompiuterio. :) Taigi štai: SPAUSTI ČIA Čia rasite testą iš kompiuterių raidos, po to dar keletą testų, padedančių suprasti sąlygos sakinius ir pan. ir dar informatikos pradmenų vadovėlį. :) Na, o žemiau pakopinsiu visas programas, kurias teko padaryti praeitais metais (taip taip, aš jas visas atsikopijuodavau į flashą). :D Manau, kad visiems duoda sudaryti maždaug panašias programas, todėl jei rasit kokią panašią, galėsit truputį pasiredaguot. :) Beveik visos yra su uždavinio sąlygomis, todėl neturėtų būti labai sunku susigaudyti. P.S. Nesmerkite už netvarkingą rašymą, galbūt dar kur ir klaidų įsivėlė ir t.t., nes praeitais metais buvau visiškas noobas, kaip ir dauguma dabartinių 10-okų (neįsižeiskit). :) Štai dar linkas su tom pačiom programom, tik išryškinta sintakse: SPAUSTI ČIA
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri surastu dvieju skaiciu didziausia bendra dalikli.}
program didziausias_bendras_daliklis;
var a, b, i, dbd:integer;
begin
WriteLn('Iveskite du skaicius:');
Readln(a, b);
for i:= 1 to a do
if (a mod 10= 0) and (b mod 10= 0) then
dbd:=i;
writeln ('DBD yra: ',dbd);
readln
end.
/--------------------------------------------------------------------------------------
Prasykite programa, kuri patikrintu ar is triju ivestu atkarpu galima sudaryti trikampi.
program trikampis;
var a, b, c: real;
begin
WriteLn('Iveskite tris atkarpas');
Readln(a, b, c);
if (a+b>c) and (b+c>a) and (a+c>b)
then writeln ('Galima sudaryti trikampi')
else writeln ('Negalima sudaryti trikampio');
readln
end.
/--------------------------------------------------------------------------------------
Prasykite programa, kuri patikrintu ar is triju ivestu atkarpu galima sudaryti trikampi, jei galima, tai koki? Lygiakrasti, lygiasoni ar statuji?
program trikampis;
var a, b, c: real;
begin
WriteLn('Iveskite tris atkarpas');
Readln(a, b, c);
if (a+b>c) and (b+c>a) and (a+c>b)
then begin
if (a=b) and (b=c) then writeln ('Trikampis lygiakrastis')
else if (a=b) or (b=c) or (a=c) then writeln ('Trikampis lygiasonis');
if (sqr(a)+ sqr(b)= sqr(c)) or (sqr(c)+ sqr(a)= sqr(b)) or (sqr(c)+ sqr(b)= sqr(a))
then writeln ('Trikampis status')
end
else writeln ('Negalima sudaryti trikampio');
readln
end.
/--------------------------------------------------------------------------------------
Parasykite programa kvadratinei lygciai spresti.
program kv_lygtis;
var a, b, c, d, x1, x2 :real;
begin
WriteLn('Iveskite a, b, c');
Readln(a, b, c);
if (a<>0) and (b<>0) and (c<>0)
then begin
d:=sqr(b)-4*a*c;
if d>0 then begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln ('x1 yra:',x1: 8: 2);
writeln ('x2 yra:',x2: 8: 2);
end
else writeln ('Diskriminantas neigiamas. Sprendiniu nera.');
end
else writeln ('Ivestas skaicius negali buti 0!');
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde36;
var x, y: real;
begin
WriteLn('Iveskite x reiksme:');
Readln (x);
if x<0 then y:=0
else if x<=5 then y:=x
else y:=sqr(x)-3;
writeln ('Kai ', x:8:2, ' tai reiksme yra ', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde37;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<-10 then y:=abs(x)
else if x<=-4 then y:=-2*x
else if x<4 then y:=sqr(x)
else if x<=10 then y:=sqr(x)-x
else if x>10 then y:=7;
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde38;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<=-13 then y:=sqr(x)-2
else if x<-2 then y:=6
else if x=-2 then y:=0
else if x>-2 then y:=x+2;
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Duotas naturalusis keturzenklis skaicius. Parasyti programa, kuri suformuotu
skaiciu isbraukiant du vidurinius skaitmenis ir surastu visu skaitmenu suma,
jeigu skaitmenu sandauga dalijasi is 3 be liekanos. Priesingu atveju surastu
visu skaitmenu geometrini vidurki.}
program keturzenklis;
var n, a, b, c, d, k, s :integer;
g: real;
begin
WriteLn('Iveskite keturzenkli skaiciu:');
readln (n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100 mod 10;
d:= n div 1000;
if (a*b*c*d) mod 3=0 then begin
k:= d*10+a;
writeln ('Du krastiniai skaiciai:', k);
s:= a+b+c+d;
writeln ('Skaiciu suma yra:', s);
end
else begin
g:= sqrt(a*b*c*d);
writeln ('Skaiciu geometrinis vidurkis:', g:8:2);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti.}
program Bevarde38;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<2 then y:=x-5
else if x<=7 then y:=sqr(x)+2*x
else if x<27 then y:=18
else if x>=27 then y:=x-sqr(x);
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą kuri, bet kuriame sveikųjų skaičių intervale
suskaičiuotų skaičių besibaigiančių trim sandaugą ir juos atspausdintų,
bei surastų skaičių besidalančių iš 7 aritmetinį vidurkį.
Jei intervale nurodytų skaičių nebuvo, tai programa turi parašyti,
kad tokių skaičių nėra.}
program valentino_diena;
var a, b, san, k, i: integer;
s: real;
begin
WriteLn('Įveskite intervalo ribas:');
Readln(a, b);
write ('Skaičiai besibaigiantys trim: ');
san:=1;
s:=0;
k:=0;
for i:= a to b do
begin
if i mod 10 = 3 then begin
san:= san * i;
write(i, ' ')
end;
if i mod 7 = 0 then begin
s:=s+i;
k:=k+1
end;
end;
writeln;
if san=1 then writeln ('Skaičių besibaigiančių trim nėra.')
else writeln ('Skaičių besibaigiančių trim sandauga: ', san);
if k=0 then writeln ('Skaičių dalių iš 7 nėra.')
else writeln ('Skaičių dalių iš 7 vidurkis yra:', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasyti programa, kuri bet kuriame sveikuju skaiciu intervale surastu
skaiciu besidalanciu is astuoniu sandauga (jei intervale nurodytu skaiciu
nebuvo tai rasyti besidalanciu is astuoniu skaiciu nera) ir lyginiu skaiciu
aritmetini vidurki, taip pat atspausdintu skaicius, kurie baigiasi sesiais.}
program ketvirtadienis;
var a, b, san, k, s, i: integer;
begin
WriteLn('Iveskite intervalo ribas: ');
Readln (a, b);
Write ('Skaiciai besibaigiantys sesiais: ');
san:= 1;
s:= 0;
k:= 0;
for i:= a to b do
begin
if i mod 8 = 0 then san:= san * i;
if i mod 2 = 0 then begin
s:= s + i;
k:= k + 1;
end;
if i mod 10 = 6 then
write (i, ' ');
end;
writeln;
if san=1 then writeln ('Skaiciu besidalanciu is astuoniu nera.')
else writeln ('Skaiciu besidalanciu is astuoniu sandauga: ', san);
if k <> 0 then
writeln ('Skaiciu besidalanciu is astuoniu vidurkis: ', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasyti programa, kuri bet kuriame intervale suskaiciuotu,
kiek yra skaiciu besibaigianciu devyniais(jei tokiu nebuvo, rasyti kad nera)
skaiciu daliu is triju aritmetini vidurki ir juos atpausdinti ir skaiciu
besibaigianciu septyniais sandauga.}
program zudikas_mirs_visi;
var a, b, san, k, k2, s, i: longint;
begin
WriteLn('Iveskite intervalo ribas: ');
Readln(a, b);
write ('Skaiciai dalus is 3: ');
san:=1;
s:=0;
k:=0;
k2:=0;
for i:=a to b do
begin
if i mod 10=9 then
k:=k+1;
if i mod 3=0 then begin
s:=s+i;
k2:=k2+1;
end;
if i mod 10=7 then
san:=san*i;
end;
writeln;
if k=0 then
writeln('Skaiciu besibaigianciu 9 nera')
else writeln ('Sk besib 9: ', k);
if k2<>0 then
writeln ('Sk besib 3 vid yra: ', s/k2:8:2);
if san<>1 then
writeln ('Sk besib 7 san.', san);
readln;
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet kuriame naturaliuju skaiciu intervale
atspausdintu skaicius besibaigiancius 7 ir suskaiciuotu nelyginiu skaiciu
aritmetini vidurki, skaiciu besidalanciu is 4 sandauga ir skaiciu
besibaigianciu 6 kieki}
program ketvirtadienis;
var a,b,i,s,k,n,san:integer;
begin
WriteLn('Įveskite intervalo ribas');
readln (a,b);
write (' Skaičiai besibaigiantys 7: ');
san:=1;
n:=0;
for i:= a to b do
begin
if i mod 2=1 then begin
s:=s+i;
k:=k+1;
end;
if i mod 4=0 then san:=san*i;
if i mod 10=7 then write (' ', i);
if i mod 10=6 then n:=n+1;
end;
writeln;
writeln (' skaiciu besibaigianciu 4 sandauga ', san );
writeln (' skaiciu besibaigianciu 6 kiekis ', n );
if k<>0 then writeln (' nelyginiu skaiciu aritmetinis vidurkis', s/k:8:2);
Readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet kuriame sveikuju skaiciu intervale suskaiciuotu
skaiciu besidalanciu is 9 aritmetini vidurki, skaiciu besibaigianciu 8 sandauga,
skaiciu besibaigianciu 7 suma ir juos atspausdintu, skaiciu besidalanciu is 4
kieki. Jei tokiu skaiciu nebuvo tai turi spausdinti, kad tokiu skaiciu nera.}
program intervalas;
var a, b, s, k, s7, n, i, san :integer;
begin
WriteLn('Iveskite intervalo ribas');
Readln (a,b);
san:=1;
s:=0;
k:=0;
s7:=0;
n:=0;
for i:= a to b do
begin
if i mod 9=0 then begin
s:= s+i;
k:=k+1;
end;
if i mod 10=8 then san:= san *i;
if i mod 10=7 then begin
s7:= s7+i;
end;
if i mod 4=0 then n:=n+1
end;
writeln;
writeln ('Skaiciu besibaigianciu 8 sandauga: ', san);
writeln ('Skaiciu besibaigianciu 7 suma: ', s7);
if n<>0 then writeln ('Skaiciu besibaigianciu 4 kiekis: ', n)
else writeln ('Skaiciu besidalanciu is 4 nera.');
if k<>0 then writeln ('Skaiciu besibaigianciu 9 aritmetinis vidurkis', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
Parašyti programą, kuri surastų mažiausią skaičiaus skaitmenį, atspausdintų atbulą, surastų skaitmenų besidalančių iš trijų artimetinį vidurkį ir lyginių nenulinių skaitmenų sandaugą.
program ankstyvas_rytas;
var n, s, san, atb, k, ps, maz :integer;
begin
WriteLn('Iveskite naturaluji skaiciu');
Readln (n);
k:=0; san:=1; atb:=0; maz:=9;
while n>0 do
begin
ps:=n mod 10;
if maz > ps then maz:=ps;
if ps mod 3 = 0 then begin
k:=k+1;
s:=s+ps;
end;
atb:=atb*10+ps;
if (ps mod 2=0) and (ps<>0) then
san:=san*ps;
n:= n div 10;
end;
Writeln ('Skaiciaus lyginiu skaitmenu sandauga yra ', san);
Writeln ('Maziausias skaiciaus skaitmuo yra ', maz);
if k<>0 then Writeln ('Skatmenu besidalanciu is triju vidurkis ', s/k:8:2);
Writeln ('Ivestas skaicius atbulai ', atb);
Readln;
end.
/--------------------------------------------------------------------------------------
Parašyti programą, kuri surastų didžiausią ir mažiausią skaičiaus skaitmenis.
readln(n);
did:=0;
maz:=9;
while n>0 do
begin
ps:=n mod 10;
if did < ps then did:= ps;
if maz > ps then maz:=ps;
n:= n div 10;
end;
/--------------------------------------------------------------------------------------
program dalikliai;
var a, i: integer;
begin
WriteLn('Įveskite skaičių');
Readln(a);
writeln('Skaičiaus ', a,' dalikliai: ');
for i:= 1 to a do
if a mod i=0 then writeln(i, ' ');
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri apskaiciuotu skaiciaus faktoriala.}
program skaiciaus_faktorialas;
var n, i, f:integer;
begin
WriteLn('Iveskite skaiciu:');
Readln(n);
f:=1;
for i:= 1 to n do
f:=f*i;
writeln('Skaiciaus ',n,' faktorialas yra: ',f);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri skaiciu 2 pakeltu n laipsniu.}
program skaicius_pakeltas_n_laipsniu;
var n, i, l:integer;
begin
WriteLn('Iveskite laipsni, kuriuo kelsite skaiciu 2:');
Readln(n);
l:=1;
for i:= 1 to n do
l:=l*2;
writeln('Skaicius 2 pakeltas ',n,' laipsniu yra: ',l);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet koki skaiciu pakeltu naturaliuoju laipsniu.}
program skaicius_pakeltas_naturaliuoju_laipsniu;
var a, b, i, l:integer;
begin
WriteLn('Iveskite pagrinda ir laipsni:');
Readln(a, b);
l:=1;
for i:= 1 to n do
l:=l*a;
writeln('Skaicius a pakeltas ',n,' laipsniu yra: ',l);
readln
end.
/--------------------------------------------------------------------------------------
{Duotas natūralusis penkiaženklis skaičius.
Pparašykite programą, kuri, jei įvestas skaičius lyginis surastų šio
skaičiaus visų skaitmenų sandaugą ir vidurkį. Priešingu atveju
atspausdinti skaičių atbulai.}
program penkiazenklis;
var a, b, c, d, e, n, san, atb: longint;
vid: real;
begin
WriteLn('Įveskite penkiaženklį skaičių:');
Readln(n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100 mod 10;
d:= n div 1000 mod 10;
e:= n div 10000;
if a mod 2=0 then begin
san:= a*b*c*d*e;
writeln ('Įvestų skaičių sandauga yra: ', san);
vid:= (a+b+c+d+e)/5;
writeln ('Įvestų skaičių vidurkis yra:', vid:5:2);
end
else begin
atb:= a*10000 + b*1000 + c*100 + d*10 + e;
writeln ('Atbulas skaičius yra: ', atb)
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri patikrintu ar ivestas skaicius yra pirminis.
d=dalikliai}
program pirminis;
var n, i, d:integer;
begin
WriteLn('Iveskite skaiciu:');
Readln(n);
d:=0;
for i:= 1 to n do
if n mod i = 0 then
d:= d + 1;
if d=2 then
writeln ('Skaicius pirminis')
else writeln ('Skaicius sudetinis');
readln
end.
/--------------------------------------------------------------------------------------
program metai;
var x, y, s, d: real;
begin
WriteLn('Ei zasine yvesk du skaicius');
Readln (x, y);
s := x + y;
d := x * y;
writeln ('Sudejus ',x: 5: 2,' ir ',y: 5: 2,' bus ',s: 5: 2);
writeln ('Sudauginus ',x: 5: 2,' ir ',y: 5: 2,' bus ',d: 5: 2);
readln
end.
/--------------------------------------------------------------------------------------
Sekos.
Duota sveikųjų skaičių seka. Sekos pabaiga 0.
Parašykite programą, kuri surastų visų sekos skaičių aritmetinį vidurkį.
program Bevardė56;
var n, s, k: longint;
begin
writeln ('Įveskite pirmą sekos narį. Sekos pabaiga - nulis.');
readln (n);
s:=0;
k:=0;
while n<>0 do
begin
s:=s+n;
k:=k+1;
writeln ('Įveskite kitą sekos narį: ');
readln (n);
end;
if k<>0 then writeln ('Skaičiaus aritmetinis vidurkis yra: ', s/k:8:2);
readln;
end.
/--------------------------------------------------------------------------------------
Duota sveikųjų skaičių seka. Sekos pabaiga - nulis. Parašykite programą, kuri suskaičiuotų, kiek sekoje yra neigiamų skaičių, skaičių, kurių paskutinis skaitmuo 4 sandaugą ir skaičių besidalančių iš 3 aritmetinį vidurkį. Jei kokių tai skaičių nebuvo, tai turi rašyti, jog tokių skaičių nebuvo.
program seka;
var n, s, k, kn, san : integer;
begin
WriteLn('Įveskite pirmą sekos narį. Sekos pabaiga - nulis.');
Readln(n);
s:=0; k:=0; kn:=0; san:=1;
while n <>0 do
begin
if n<0 then kn:=kn+1;
if n mod 10=4 then san:=san*n;
if n mod 3=0 then begin
s:=s+n;
k:=k+1;
end;
writeln('Įveskite kitą sekos narį');
readln(n);
end;
if kn>0 then writeln('Neigiamu skaiciu yra', kn)
else writeln('Neigiamu skaiciu nera');
if san>0 then writeln('Skaiciu, kuriu pask.skaitmuo 4 sandauga ', san)
else writeln('Skaiciu, kuriu pask.skaitmuo 4 nera.');
if k<>0 then writeln('Skaiciu,besidalinanciu is 3 aritm.vid ', s/k:8:2)
else writeln('Skaiciu, besidalinanciu is 3 nera.');
readln;
end.
/--------------------------------------------------------------------------------------
{Duoda seka. Sekos pabaiga - nulis. Parasyti programa, kuri surastu
didziausia ir maziausia sekos nari.}
program Bevarde56;
var n, did, maz: longint;
begin
writeln ('Iveskite pirma sekos nari. Sekos pabaiga - nulis.');
readln (n);
did:=n;
maz:=n;
while n<>0 do
begin
if n > did then did:=n;
if n<maz then maz:=n;
writeln ('Iveskite kita sekos nari: ');
readln (n);
end;
writeln ('Didziausias sekos narys yra ', did, ' Maziausias sekos narys yra ', maz);
readln;
end.
/--------------------------------------------------------------------------------------
{Duota sveikuju skaiciu seka. Sekos pabaiga - nulis. Parasykite programa,
kuri suskaiciuotu kiek sekoje yra skaiciu mazesniu uz simta. Sandauga,
skaiciu, kurie baigiasi 4. Ir didziausia sekos nari. Jei nera tai nera.}
program Bevarde56;
var n, san, k, did: longint;
begin
writeln ('Iveskite pirma sekos nari. Sekos pabaiga - nulis.');
readln (n);
san:=1;
k:=0;
did:=n;
while n<>0 do
begin
if n mod 10=4 then san:=san*n;
if n>did then did:=n;
if n<100 then k:=k+1;
writeln ('Iveskite kita sekos nari: ');
readln (n);
end;
if k<>0 then writeln('Skaiciu mazesniu uz 100 yra: ', k)
else writeln('Skaiciu mazesniu uz 100 nera.');
if san<>0 then writeln('skaiciu,kuriu pask.skaitmuo 4 sandauga ', san)
else writeln('skaiciu,kuriu pask.skaitmuo 4 nera');
writeln('Didziausias sekos narys: ', did);
readln;
end.
/--------------------------------------------------------------------------------------
program blahblahblah;
var n, a, b, c, san, atb: integer;
vid: real;
begin
WriteLn('Yvesk trizenkli sk.');
Readln (n);
a:= n mod 10; {paskutinis skaitmuo}
b:= n div 10 mod 10;
c:= n div 100;
if (a>b) and (c>b)
then begin
atb:= a*100 + b*10 + c;
san:= a*b*c;
writeln ('Atbulas yra:', atb ,'ir skaitmenu sandauga:', san)
end
else begin
vid:= (a+b+c)/3;
writeln ('Aritmetinis vidurkis:', vid:8:2);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, spausdinančią visus triženklius skaičius, kurių kiekvienas kitas skaitmuo vienetu didesnis už prieš tai buvusį, skaičiuojančią tų skaičių sumą ir kiek yra tokių skaičių.}
program Bevard?0;
var a,b,c,d ,sum, k:longint;
begin
sum :=0;
k:=0;
for a:=100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b+1=c) and (b+2=d) then
begin
writeln (a);
sum:=sum+a;
k:=k+1;
end;
end;
writeln ('suma ', sum);
writeln ('kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, spausdinančią visus keturženklius skaičius, kurių kiekvienas skaitmuo du kartus didesnis už prieš tai buvusį, skaičiuojančią šių skaičių skirtumo modulį ir kiek yra tokių skaičių.}
program Bevarde0;
var a,b,c,d ,e,sk, k:longint;
begin
k:=0;
sk:=0;
for a:=1000 to 9999 do
begin
b := a div 1000;
c := a div 100 mod 10;
d := a div 10 mod 10;
e := a mod 10;
if (b*2=c) and (c*2=d) and (d*2=e) then
begin
writeln (a);
sk:=sk - a;
k:=k+1;
end;
end;
sk:=abs(sk);
writeln ('Skirtumo modulis ', sk);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią visų dviženklių skaičių, dalių iš penkių, kvadratų sumą ir kiek yra tokių dviženklių skaičių.}
program Bevarde0;
var a,sum, k:longint;
begin
k:=0;
sum:=0;
for a:=10 to 99 do
begin
if a mod 5 = 0 then
begin
sum:=sum + sqr (a);
k:=k+1;
end;
end;
writeln ('Suma ', sum);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri sumuotų visus natūraliųjų skaičių intervalo [m;n] skaičius, dalius iš keturių, ir suskaičiuotų, kiek tame intervale yra tokių skaičių.}
program Bevarde0;
var a,m,n,sum,k:longint;
begin
writeln ('Iveskite m ir n');
readln(m,n);
k:=0;
sum:=0;
for a:=m to n do
if a mod 4 = 0 then
begin
sum:=sum + a;
k:=k+1;
end;
writeln ('Suma ', sum);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią įvesto nelyginio skaičiaus dvigubą faktorialą. Pvz.: 5!! = 1 * 3 * 5, 11!! = 1 * 3 * 5 * 7 * 9 * 11.}
program Bevarde0;
var a,f,x:longint;
begin
writeln ('Iveskite x');
readln(x);
f:=1;
for a:=1 to x do
begin
if x mod 2 <> 0 then
if a mod 2 <> 0 then
f:=f*a;
end;
writeln ('Faktorialas ', f);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią kiek sveikųjų skaičių intervale [a;b] yra skaičių, kurie dalijasi iš septynių.}
program Bevarde0;
var a,b,i, k:longint;
begin
writeln ('Iveskite [a;b]');
readln(a,b);
k:=0;
for i:=a to b do
begin
if i mod 7 = 0 then
k:=k+1;
end;
writeln ('Kiekis ', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri skaičiuotų visų triženklių skaičių, lygių savo skaitmenų kubų sumai, sumą ir kiekį.}
program Bevarde0;
var a,b,c,d ,sum, k:longint;
begin
sum :=0;
k:=0;
for a:=100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b*b*b+c*c*c+d*d*d)=a then
begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln ('suma ', sum);
writeln ('kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri skaičiuotų, kiek sveikųjų skaičių intervale [a;b] yra lyginių ir nelyginių skaičių, suskaičiuotų lyginių ir nelyginių skaičių sumas ir jas palygintų. Pvz., jei turime [5;10], tai jame yra 3 lyginiai skaičiai, kurių suma lygi 24 ir 3 nelyginiai skaičiai, kurių suma lygi 21. Didesnė yra lyginių skaičių suma.}
program Bevarde0;
var a,b,i, knelyg, sumnelyg, klyg, sumlyg:longint;
begin
writeln ('Iveskite [a;b]');
readln(a,b);
knelyg:=0;
sumlyg:=0;
klyg:=0;
sumnelyg:=0;
for i:=a to b do
if i mod 2 = 0
then
begin
klyg:=klyg+1;
sumlyg:=sumlyg+i;
end
else
begin
knelyg:=knelyg+1;
sumnelyg:=sumnelyg+i;
end;
writeln ('Kiekis nelyginiu ', knelyg);
writeln ('Kiekis lyginiu ', klyg);
writeln ('Suma nelyginiu ', sumnelyg);
writeln ('Suma lyginiu ', sumlyg);
if sumlyg > sumnelyg
then writeln ('Didesne suma lyginiu.')
else writeln ('Didesne suma nelyginiu.');
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurie yra du kartus mažesni už jiems atbulus skaičius.}
program Bevarde0;
var a,b,c,d,atb:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
atb:=d*100+c*10+b;
if atb div a = 2 then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurių vidurinysis skaitmuo yra du kartus didesnis už kraštinių skaitmenų sumą.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if c = 2*(b+d) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurie dalijasi iš visų savo skaitmenų.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b<>0) and (c<>0) and (d<>0) then
if (a mod b = 0) and (a mod c = 0) and (a mod d = 0) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius palindromus (palindromas – skaičius, vienodai skaitomas iš dešinės į kairę ir iš kairės į dešinę, pvz. 242).}
program Bevarde0;
var a,b,c,d, atb:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
atb:=d*100+c*10+b;
if atb = a then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurių pirmasis skaitmuo penkiais mažesnis už paskutinį.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if b = d-5 then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus nelyginius triženklius skaičius, besidalijančius bent iš vieno savo skaitmens.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if a mod 2 <> 0 then
if (b<>0) and (c<>0) and (d<>0) then
if (a mod b = 0) or (a mod c = 0) or (a mod d = 0) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
Nežinomų kartojimų skaičiaus ciklas.
Surasti natūraliojo skaičiaus pirmąjį skaitmenį.
while n>9 do
n:=n div 10
writeln ('pirmas skaitmuo ", n);
/--------------------------------------------------------------------------------------
Surasti skaičiaus skaitmenų sumą (ps = paskutinisskaiciausskaitmuo).
s:=0;
m:=n;
while n>0 do
begin
ps:= n mod 10;
s:=s + ps
n:=n div 10
end;
writeln(skaiciaus ',m,'skaitmenusuma", s);
/--------------------------------------------------------------------------------------
Surastų lyginių skaitmenų sumą.
readln(n);
s:=0;
m:=n;
while n>0 do
begin
ps:= n mod 10;
if ps mod 2 = 0 then s:=s+ps,
n:=n div 10
end;
writeln(skaiciaus ',m,'skaitmenusuma", s)
/--------------------------------------------------------------------------------------
Surasti skaitmenų aritmetinį vidurkį.
readln(n);
s:=0;
m:=n;
k:=0;
while n>0 do
begin
ps:= n mod 10;
s:=s+ps;
k:=k+1;
n:=n div 10
end;
if k<> 0 then writeln('skaitmenu aritmetinis vidurkis', s/k:8:2)
/--------------------------------------------------------------------------------------
Parašyti programą, kuri suformuotų atbulą skaičių.
readln(n);
atb:=0;
while n>0 do
begin
ps:= n mod 10
atb:= atb*10+ps;
n:= n div 10;
end;
writeln ('atbulas skaicius: ', atb);
/--------------------------------------------------------------------------------------
{Duotas naturalusis skaicius. Suraskite nelyginiu skaitmenu aritmetini
vidurki ir visu skaitmenu sandauga, lyginiu suma ir sufomuoti atbula skaiciu.}
program ciklas_while;
var a, nelyg, san, k, atb, ps :integer;
begin
WriteLn('Įveskite natūralųjų skaičių');
Readln (a);
k:=0; nelyg:=0; san:=1; atb:=0;
while a<>0 do
begin
ps:= a mod 10;
if ps mod 2 <>0 then begin
k:=k+1;
nelyg:=nelyg+ps;
end;
atb:=atb*10+ps;
san:=san*ps;
a:= a div 10;
end;
if k<>0 then Writeln ('Skaiciaus nelyginiu skaitmenu vidurkis yra ', nelyg/k:8:2);
Writeln ('Skaiciaus skaitmenu sandauga yra ', san);
Writeln ('Ivestas skaicius atbulai ', atb);
Readln;
end.
/--------------------------------------------------------------------------------------
Tai tiesiog jei nori laiko sutaupyti, geriau sudėlioti į krūveles ar kaip nors surūšiuoti. O tai 3 litrus išpilsi ten ir lauksi valandą kol suskaičiuos?
Yra daug budu, bet jeigu tokiu klausimu klausineji tai tikrai neuzdirbsi ;) truri pats dometis ziuret kas tau geriau patinka ar puslapiu projektu kurimas ju vystymas ir pardavimas ar koks nors SEO ir pana gal kitiems lazybos ar pokeris labiau prie sirdies
jeigu pats nesugalvoji kaip internete tau uzdirbt tai gal geriau ir nedirbk
Ar kada nors, užsirūkę cigaretę, pagalvojote apie tai, ką iš tikrųjų įkvepiate su kiekvienu dūmo užsitraukimu? Ar iš tiesų apie tai kada nors susimąstėte? Didinti straipsnio tekstą Mažinti straipsnio tekstą
Žinoma, daugeliui rūkančių žmonių šis įprotis išties labai malonus: pagerina nuotaiką, trumpam laikui pakelia darbingumą, trumpam suteikia daugiau energijos ir žvalumo. Dauguma šio įpročio pančiojamų vyrų ir moterų nekreipia dėmesio į nuolatinius gydytojų perspėjimus (nors kiekvienas žino apie daugybę ligų, susijusių su rūkymu), blogą burnos ir kūno kvapą, pageltusius ar sugedusius dantis (rūkoriai 3 kartus dažniau kenčia nuo dantų ėduonies), anksti atsirandančias veido raukšles, pablogėjusią savijautą ir prastą ištvermę, nuolatinį kosulį, krenkštimą ir skrepliavimą. Gyvename 21 amžiuje, turime visišką teisę pasirinkti.
Tabako dūmuose yra virš 4000 nuodingų ir vėžį sukeliančių medžiagų.
Nesinorėtų kritiškai atsiliepti apie rūkančiuosius, tačiau norėčiau pasidalyti keliais palyginimais ir patebėjimais apie šį įprotį. Pirmasis palyginimas, kurį turbūt visi girdėjome nuo paauglystės laikų: rūkyti pačiam ar bučiuotis su neseniai rūkiusiu žmogumi prilygsta laižyti peleninę. Šlykštu, bet tiesa.
Tabako dūmuose yra virš 4000 nuodingų ir vėžį sukeliančių medžiagų. Norėčiau paminėti tik kelias jų, ir kur dar jos randamos ar naudojamos.
• Nikotinas – nuodas, sukeliantis širdies aritmiją. Apsinuodijimas šia medžiaga gali būti mirtinas; • Arsenas – sudėtinė žiurkių nuodų dalis; • Amoniakas dar naudojamas žemės ūkyje, buitinės chemijos pramonėje, langų valiklių ir grindų šveitiklių gamyboje; • Kadmis naudojamas gaminant baterijas; • Formaldehidas naudojamas lavoninėse, konservuoti mirusių kūnus; • Butanas – dujos, suskystintoje formoje pasitelkiamas žiebtuvėliams užpildyti; • Cianidas ir anglies viendeginis (smalkės) plačiai naudotos vokiečių koncentracijos stovyklų dujų kamerose. Dar aptinkamos automobilių išmetamose dujose.
jei klausi tokiu klausimu speju dar nesi girdejas apie toki dalyka kaip google. eik adresu www.google.lt ir ivesk zodi apie kuri nori gauti informacija. Sitas dalykas tau turetu dar daug kartu praversti ;)
ir siaip palyginus pigi dovana, gali viena visai seimai dovanot :)
šiuo metu esu ketvirto kurso informatikos studentas. Kadangi po paskaitų lieka laiko (nors ir nedaug), o ir pinigų studentams visuomet trūksta, siūlau įvairias su IT susijusias paslaugas. Žemiau pateikiu sąrašą paslaugų, kurias galėčiau suteikti.
WEB programavimas
PHP5 (OOP, design paterns) MySQL (projektavimas, optimizavimas, realizavimas) Javascript (jQuery) CSS (atitinkantis standartus) (X)HTML (atitinkantis standartus) HTML5 Smarty (v2/v3a) WML AJAX Semantinis WEB Accessibility, usability SEO
Portalų, TVS'ų ir kitų didelių puslapių kūrimas dėl laiko stygiaus nelabai domina. Pagrinde nedideli puslapiukai bei įvairūs papildomi scenarijai jau esamoms sistemoms. Žinoma, galimos išimtys, jei pasiūlymas bus tikrai įdomus
Aplikacijų programavimas
C++ (Eclipse, DevC++, C++ Builder) Pascal (FPS) Delphi (Delphi Builder) JAVA (NetBeans) Perl Batch Bash AutoIT Python Qt grafikos karkasas
Diegimas, sistemos konfigūravimas, Apache (+PHP)/MySQL/SSH/CS serverių diegimas ir konfigūravimas
Windows (XP, Vista, 7):
Diegimas Konfigūravimas Problemų sprendimas
Nuotolinis šių problemų sprendimas ir konsultavimas.
Ofiso programinė įranga:
Microsoft Word 2007/2010 Microsoft Excel 2007/2010 Microsoft PowerPoint 2007/2010
Užduočių atlikimas su šiomis programomis, konsultacijos.
Tekstų vertimas:
ENG -> LT
Lietuviškų tekstų taisymas:
Sintaksė Rašyba Kalbos kultūra (dalinai)
Nuolatinis rašymas internete, galvojant apie kiekvieną dedamą skyrybos ženklą ar rašomą raidę, padeda daug lengviau pastebėti ir ištaisyti savo bei kitų klaidas.
Atlikti darbai:
NickasLT - visos puslapio sistemos suprogramavimas Bosxs - statymų suvestinė Orionui - C++ laboratorinis darbas su Visual Studio 2008 Paulens - C++ laboratorinis darbas su Eclipse ShadoVw - Excel laboratorinis darbas Karoliui (ne iš forumo) - pora C++ laboratorinių darbų su Visual C++ 2005 Embr1you* - C++ laboratorinis darbas su Visual C++ 2005 Rokinis - C laboratorinis darbas su DevC++ Vasia* - C++ laboratorinis darbas su Visual C++ 2005 Mindaugas* - C++ laboratorinis darbas su Visual C++ 2005 Paullo* - C++ laboratorinis darbas su Visual C++ 2005 Urban* - 3 C++ laboratoriniai darbai su Dev-C++ CobLySs - Laucher'is žaidimui Dodin - smulkūs dizaino pakeitimai Vppromoter - puslapio programavimas Feedback - smulkus Wordpress puslapio patobulinimas NickasLT - puslapiavimas puslapyje Ramp - Papildomų funkcijų WordPress'ui programavimas MummyII - C++ laboratorinis su C++ Builder 5 Paulens - nedidelis jQuery skriptukas Pildyk - Wordpress modifikavimas, papildomos funkcijos Lucosius - katalogo (http://www.lumin-or.de/en_prod_01.htm) išvertimas (EN->LT) Audrius404 - teksto vertimas EN->LT Viktor - Dizaino sukarpymas ir uždėjimas ant turimos TVS SlaveMaster - Skripto vertimas EN->LT Mangirdas - DevC++ laboratorinis darbas Wilmukas* - DevC++ laboratorinis darbas Gerchardas - CS Source administratorių sąrašo ir SMS sistemos susiejimas Donass2 - C++ laboratorinis darbas su Visual C++ 2005 J@R@* - C laboratorinis su Dev-C++ DIYexpert - C++ darbas su WX-Dev-C++ Around the World* - porą C laboratorinių su DevC++ white_squall - Referalų sistema elektroninei parduotuvei. marchiuzz - SMS sistema Brb - Friendly URLs sistema Around the World* - porą C laboratorinių su DevC++ Tom - išspręsta didelė problema su Windows Vista Feedback - sutvarkytos IPB problemos Justas* - padaryta registracijos forma su MICRO/MAKRO mokejimai.lt apmokėjimais. Do - paruoštas serveris video puslapiui BOSAS - pilnai suprogramuoti puslapiai: www.pagerank24.lt, www.ip24.lt ir www.domenai24.lt HeliX - sutvarkytas SMTP servisas VPS'e AAAA - "WP Link Directory" lokalizacija Brb - lietuviškų raidžių sutvarkymas friendly URLs, mod_rewrite pajungimas Bosas - pranešimas, kad puslapis skirtas tik suaugusiems Brb - sutvarkytas neveikiantis skriptas Bosas - SMS žaidimas/loterija AAAA - Wordpress pataisymai Bosas - nuotraukų kėlimas, miniatiūrų generavimas Gediminas* - reprezentacinis puslapis HeliX - importuotas didžiulis duombazės dump'as Marciokazzz - sutvarkytas BUX skriptas Bosas - šiektiek DHTML'o Energie - Excel mokyklinio egzamino užduotis Likido - WordPress modifikacija AAAA - Vektorinio paveiksliuko paredagavimas Vizitine - surasta ieškoma programa Jankarl - Visual C++ programa DigitalGuru* - Wordpress e-commerce įskiepio modifikacija Brb - DNS Lookup PHP skriptas
* žvaigždute pažymėti ne šio forumo lankytojai
Papildoma informacija:
Asmeninis tinklalapis Asmeninis tinklaraštis Bendruomenės tinklalapis
Kontaktai:
Skype: tomukas18 E-Mail: tomuxaz[baronka]gmail.com Asmeninė žinutė šiame forume.
Perskaičiau visą temą, tai subjektyvia nuomone, manau buvo ryškiai pervertintos galimybės... Tai atsispindėjo rezultatuose. Čia dalis narių, kurie į tai žiūrėjo iš pesimistiškos pusės - buvo teisūs. Šiaip iš dalies gaila ir Mageking, nors iš kitos medalio pusės - pats užvirė košę, dabar ir turi srėbti. Anyway - tikiuosiu visiems bus viskas gerai. :P Mageking galima tik pagirti tiek, kad kol kas viską bando atgauti ir pan. - nebėga. ;) GL. :)
Lin3R sureagavo į Ernestas Klevo lapas. Kaip išsisukti?
Lin3R gavo reakciją nuo MrSandman Ar uždirbate iš blogų?
Lin3R gavo reakciją nuo Vilmantas Ar uždirbate iš blogų?