Taigi darbai eina i pabaiga ir VOV.LT - TAVO MIESTO SKELBIMAI! jau veikia, beliko finaliniai sulietuvinimo darbai, ishcentravimas, integruoti mokejimai.lt sistema ir reklama ne tik internete, bet ir ziniasklaidoje bei lipdukais ant automobiliu :lol:
Prashau ivertinimo ir maloniai kvieciu naudotis svetaine ir talpinti savo skelbimus, praneshimus, nuorodas, paveikslelius, renginius ir t.t. ;)
Na nežinau, kaip kitiems, bet pateiksiu savo nuomonę, kuri susidarė peržiūrėjus daugelį tavo darbų. Beveik visi dizainai mano akimis žiūrint yra per tušti ir per blankūs. Dažniausiai juose išryškėja koks 1 elementas (navigacija), o jiems kaip atsvaros nieko nėra, tai gaunasi, kad dizainas ne "clean", o kažkoks tuščias... Daugumoj dizainų toks įspūdis pasireiškia. Manau, kad esi per daug įpratęs viską nušviesinti ir dar specialiai stengiesi tai padaryti, tai ir gaunasi tokie blankūs, tarsi išskalbti variantai. Tiesiog viskas techniškai daugiau-mažiau gerai padaryta, bet nepalieka tuštumos įspūdis. Beje, paskutiniam darbe contentas per siauras arba vėl kažkokios panelės šone trūksta ir per riebiai atseikėjai vietos reklamai viršuje, ko pasekoje viskas nusigrūda į apačią ir reikia scrollinti, kad akis užkliūtų už pagrindinio turinio, o ne nuklystų į nereikšmingą vietą, kaip yra dabar.
Krizės metu vis daugėjant barų ir kavinių, kurie skelbia akcijas alui, su draugu kilo idėja sukurti svetainę, kurioje būtų galima rasti apie tai informacijos :)
Kam mokėti 7 Lt, jei tokį patį bokalą gali gauti už 3.50 Lt? :)
Kol kas labiau orientuota į Vilnių, bet skelbiami kavinių / picerijų tinklai gali būti ir kituose miestuose.
Tinklalapis: GalAlaus.lt
Gal turite pasiūlymų, kaip patobulinti šią idėją? :)
Man toks įspūdis susidarė, kad tu pats nelabai gaudaisi svetainių kūrime, nes kas rimtai tuo užsiima, žino, kad tiek aprėpti, kiek tu čia išvardijai, beveik neįmanoma. Aš labai abejoju, ar tu sugebėtum sukurti tikrai kokybiškų ir originalių pamokų, nes tam atlikti reikia daug laiko (sakau iš patirties). Žodžiu, kratykis tokių tinklalapių apie viską. Sugalvok kokią unikalią svetainės idėją (na, arba bent jau kažką tokio, ką pats išmanai ir plačiai domiesi), kurk, tobulink ir gal kažkas iš to išeis.
Man toks įspūdis susidarė, kad tu pats nelabai gaudaisi svetainių kūrime, nes kas rimtai tuo užsiima, žino, kad tiek aprėpti, kiek tu čia išvardijai, beveik neįmanoma. Aš labai abejoju, ar tu sugebėtum sukurti tikrai kokybiškų ir originalių pamokų, nes tam atlikti reikia daug laiko (sakau iš patirties). Žodžiu, kratykis tokių tinklalapių apie viską. Sugalvok kokią unikalią svetainės idėją (na, arba bent jau kažką tokio, ką pats išmanai ir plačiai domiesi), kurk, tobulink ir gal kažkas iš to išeis.
Uz tai, kad uz tave idiegia TVS. Niekas nesako, kad tu negali pats isidiegt. Bet jei samdai zmogu kuris sukonfigins viska tai tu jam ir moki uz tai. Cia tas pats uz ka man moket programuotojui, jeigu pilnas internetas tutorialu apie programavima?
Tad baikit nusisneketi ir daryti OffTopic. Jeigu netenkina paslaugos ir neuzsakinejat.
p.s. dar juokingiau atrodo kai padare zmogus kelias klaideles. As per kontrolini padarau ju desimtymis, tai ka mane dabar ismest is mokyklos nes atrodau nepatikimas?
Jei fonas nebus baltas - palik užlaidas (pratęsk foną po kokius 5 mm į visas puses). Tai galioja ne tik tuo atveju jei visas fonas spalvotas, bet ir jei prie krašto prieina koks nors spalvotas objektas, pvz spalvota juostelė, eina per visą ilgį (tada reikia po 5 mm pailgint tą juostelę). Arba nuotrauka, ribojasi su kraštu (tada reikia nuotrauką dėti taip, kad ji išlystų 5mm už vizitinės ribų.
Jei nepaliksi, vizitinė bus lygiai 50*90mm - apipjaunant gali likti balti kraščiukai, nes pjaunant yra kelių milimetrų paklaida.
Ar man tik atrodo, ar inkscape neturi nieko bendro su profesionalumu? color managment'o nulis, kazokiu irankiu spaudos darbams - nulis, integravimas i kitus grafinius paketus - galima pamirshti nes SVG formatas daznai susivelia kai importuoji koki sudetingesni daiktuli i rimta softa. Man atrodo naudoti inkscape vietoj illustratoriaus pvz, cia tas pats kas naudoti gimp vietoj photoshopo - galima, bet tik jeigu poreikiai apsiriboja fotkiu kropinimu
Nežinau kaip tu tai padarei, tačiau tai galima laisvai padaryti užkėlus kontrastą ir su juodos spalvos brush'u pateplioti šonus. Net nežinau ką čia vertinti.
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.
/--------------------------------------------------------------------------------------
adijux gavo reakciją nuo Valuediz Kuo skiriasi programavimas ..
adijux gavo reakciją nuo adrenalinas login/register script
adijux gavo reakciją nuo Domus ar dera tokios temos?