MiniPixeL

Na sakyčiau gan įdomi lygtis. :D Jei salygoj daugiau nieko neduota, tai neišspręsi. Mokytis Pascal? Paspausk ant mano parašo, ten rasi ir pamokų ir daug kito gėrio. :lol:

Kiek pažiūrėjau tai gan geras dalykas ten pasipraktikavimui. Beveik viskas paaiškinta. :lol: Čia jum objektinis programavimas į įnformatikos programą įeina, ar čia savarankiškai mokotės? O šiaip moki Pascal? Nes Delphi procedūros aprašomos labai panašiai. :D

Tarkim yra tokia programa, ar imanoma padaryt kad is to combobox eitu nustatyt ant keliu indeksu kad rasytu raide ar bet koki kita dalyka? ;]

 

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if combobox1.itemindex=1

then begin

label1.caption:='Raide'

end

else

label1.caption:='Skaicius'

Redaguok if'o sąlygą. Pavyzdžiui pridėk

or (combobox1.itemindex=2)

tada ir ant indekso 2 rašys Raide. Kad pakeistum tai ką rašyt, redaguok

label1.caption:='Raide'

Pavyzdžiui procedūrą atrodytų taip:

procedure TForm2.ComboBox1Click(Sender: TObject);
begin
if (combobox1.itemindex=1) or (combobox1.ItemIndex=2) or (combobox1.itemindex=4)
then begin
 label1.caption:='As jau moku'
  end
else
 label1.caption:='Skaicius'
end;

Su laidu.

Pribaigė. :lol:

yra toks dalykelis, tai tikrai patogu, manau is nuotraukos viskas aisku :D

Įdomus daiktas, jei kas išbandęs kaip kokybė? :D

Na štai sekmingai gavau dabar teliko visa iskalt ir išlaikyt :lol:. Aš esu ketvertukininkas ir tikrai manau kad tokiems kaip as nera kito pasirinkimo tik pirkti darbą, taip kad nesigynčikit chebra ar gerai yra pirkti kiekvienam savo :D

Kaip tai nėra? Visada yra kitas pasirinkimas. Amm, pavyzdžiui pradėt mokytis. Nepagalvojai? :D Anyway, nemoralizuosiu. Tokiam kvailam dalykui kaip kalbų įskaitos, kuris visiškai niekur nefigūruoja ir tik atestatą puošia (arba gadina) darbą galima ir nusipirkt. :D

Kazkam pasiseke gavo nachaliavai papildyma :lol:)

O nieks nesusimąstėt gal temos autorius šiaip paprikolint sugalvojo? :D

Nėr už ką. Aš ir pats nelabai gaudaus dar. Jei ne paslaptis iš kur čia tas užduotis imi? :)

Na gavau dar viena uzduotele, gal galit padet su "parašykite įvykio procedūrą", nes net nenumanau kokia cia procedura turetu but ;]

 

 

Sudarykite galimybę taip įvesti tekstą, kad berenkant jis iš karto automatiškai kartotųsi kitose formos vietose, skirtingais šriftais, dydžiais ir spalvomis.

Patarimas. Sukurkite teksto lauką tekstui įvesti ir kelias etiketes įvestam tekstui kartoti. Panaudokite teksto laukui įvykį OnChange (pasikeitimas), kuriam parašykite įvykio procedūrą.

Sprendimas. Formoje sukuriamos norimo dydžio, spalvų, šriftų žymės Label1, Label2, Label3 ir t.t., kuriose automatiškai kartosis tekstas, įvestas į teksto lauką Edit1.

Na tai čia pačia paprasčiausia procedūra. Kaip supratau laukelius sudėliot ir įvykius sukurt moki. Įvykis automatiškai sukuria procedūrą, tarp kurios begin ir end belieka įrašyti kodą. Priklausomai nuo to kiek laukelių įdėsi, taip jie ir vadinsis. Pavyzdžiui, įdėjus 3 laukelius teksto rodymui kodas atrodytų taip:

Label1.caption := Edit1.text;
Label2.caption := Edit1.text;
Label3.caption := Edit1.text;

O visa procedūra:

procedure TForm2.Edit1Change(Sender: TObject);
begin
Label1.caption := Edit1.text;
Label2.caption := Edit1.text;
Label3.caption := Edit1.text;
end;

O teksto spalvas ir šriftą keisk per Properties>Font. Tikiuosi suprantamai paaiškinau. :)

Pagal mane, šitos sąlygos:

and (k2.z <> ks)

nebereikia, nes jeigu abi kortos bus kozeriai, tai jos abi bus vienodos rūšies ir tada bus vykdoma pirmoji sąlyga. :)

Čia trečias. Jei sąlygą teisingai supratau. :) Mokamos paprastosios palūkanos, kas vieni metai.

program Bevardė14;
var sum,k,p:real;
i,x:integer;
begin
Readln(k);
Readln(p);
Readln(x);
sum:=k;
for i:=1 to x do
 sum:=sum+k*p/100;
if sum>=2*k then
  Writeln('Dvigubės')
 else
  Writeln('Nedvigubės');
Readln;
end.

EDIT:

oxopo teisingai sąko, reik optimizuot programą, o ne į tiesiai per aplinkui važiuot. :)

Pirmasis.

program Bevardė15;
uses math;
var i,s,z:longint;
sk:real;
begin
 for i:=100 to 999 do
  begin
s:=i;
while s>0 do
 begin
  sk:=sk+power((s mod 10),3);
  s:=s div 10;
 end;
if sk=i then
 begin
  Writeln(i);
  inc(z);
 end;
sk:=0;
  end;
 Writeln('Išviso tokių skaičių:',z);
 Readln;
end.

Antrasis. Nors sąlygą iš pradžių šiek tiek suklaidino, manyčiau taip:

program Bevardė18;
var i,s,sk,a:longint;
begin
 for i:=1000 to 9000 do
  begin
s:=i;
sk:=0;
while s>0 do
 begin
  sk:=sk+s mod 10;
  s:= s div 10;
 end;
if sk*sk*sk*sk=i then
 begin
  Writeln(i);
  inc(a);
 end;
 end;
 WriteLn('Išviso tokių skaičių:',a);
 Readln;
end.

Visada reikia stengtis taip daryt. Iš dalies kiekvienoje temoje, nesvarbu ji skirta kalbėjimui ar rašiniui, visada galima įžvelgti dvi puses. O tai žymiai praplečia apimtį. :)

Šiandien atsiverčiu TEO sąskaitą už paslaugas ir matau ganėtinai ilgesnį paslaugų sąrašą. Iš kažkur tai atsiradę mokėjimo planai "Neribotas" ir "Savi". Kiek prisimenu, jokių papildomų planų neužsakinėjau, bet savitarnos svetainėje pasitikrinu - planai įjungti. Kaip supratau TEO juos įjungė automatiškai, visiems? Tiesa, po tos krūvos paslaugų, krūva nuolaidų ir galų gale bendra mokėtina suma nesikeičia. Bet klausimas, kiek ilgai tos nuolaidos galios? Pasidomėjau, kiek kainuotų išjungti planą - 10,99Lt. Gal čia toks TEO planas iš žmonių papildomai nulupt? O gal aš tiesiog kažko nežinau? Kaip jums tai?

done ;)

Tikrai geras. Nebuvau matęs. ;)

Tai tiesiog ant tų langelių, kuriuose rašysi datas, uždėk Date formatą. Tada į tą langelį, kuriame turi būti ats įrašyk kad atimtų pirmą datą iš antros. Ir patikrink ar ant atsakymo langelio uždėtas general formatas, nes bent jau man tai ir ats langelį automatiškai pakeičia į Date.

Linksmai. Pradžioj nieko, bet kur pradėjo tas diedukas juoktis tai vos nenumiriau. Buvau jau anksčiau matęs kažkokioj laidoj, bet vistiek. :) O šiaip tai žmogus turi įgimtą savybę - atkartot. Tai kaip ir žiovulys, juokas yra užkrečiamas. :)

Na daleiskim, laidas sudaromas iš 4 mažų, skirtingų spalvų laidų. Sąlyga sako, kad tam pačiam laide, negali būti net 2 tokios pat spalvos laidų, t.y. turi būti vienas. Nei daugiau nei mažiau. Na tai logiška, kad į pirmą vietą galim imt bet kokios spalvos laidas, antrą vietą jau tik 3 laidai iš tų 4(nes negali būti tos pačios spalvos), trečią vietą tik 2 laidai, o ketvirtą vietą tik vienas. Ir nežinau ar čia formulė ar kas ten, bet esmė, kad visus tuos skaičius reikia sudaugint vieną su kitu, t.y. 4*3*2*1 = 24.

 

Lyg ir taip.

 

Edited: sąlyga ne visai tokia. :D Atsakymas irgi. Paaiškinau tik bendrą principą. Jei reikia daugiau - ignoruok šitą žinutę. :)

Ne pačią esmę aš suprantu. Bet aš skaičiuoju, taip kad pirmam laidui turim 4 pasirinkimo galimybes, antram laidui lieka 3 pasirinkimo galimybės, tai turim 4*3=12. Aš tiesiog norėjau pasidomėt, kodėl jis skaičiavo 4*3*2*1/2. Kombinatorika slidus daiktas. :)

Sveiki. Kokių žinot tarptautinių universitetų, ar tiesiog atskirų fakultetų Lietuvos universitetuose? Arba tiesiog studijų anglų kalba. Kiek žinau viena tokių aukštųjų mokyklų yra ISM. O kiek daugiau googlinau, visur man siūlo užsienin šaut. :) Ačiū už pagalbą. :)

Jei bobutė turėtų kiaušus, tai būtų diedukas. Idiotiškas pasiteisinimas. Nereikėjo, tai nereikėjo. Reiškias suklydai ir nusišnekėjai, nebėra daugiau ką šita tema šnekėt.

 

Rytas! Rytas! Rytas!

Linksmai jūs čia. :D Vistiek Dankans teisus. Negalit paimt ir iš oro prisilygint kažkam jei to nėra sąlygoje.

Aišku arius tą lygtį išsprendė gerai, tik tiek kad jis tą lygtį pats ir sugalvojo. :)

O į temą. Nelabai supratau to kombinatorikos uždavinio su elektriku skaičiavimo principo, gali paaiškint? :)

Ačiū labai. :rolleyes:

Sveiki. Tikriausiai jau kada nors buvo toks klausimas, bet kiek ieškojau po visą forumą nelabai radau. Taigi sugalvojau pabandyt kurt blog'ą. Atrodo instaliavau viską teisingai. Kai prisijungiu kaip admin viską rodo lyg ir tinkamai.

http://i41.tinypic.com/28tax4w.jpg

Bet pabandžius tiesiog užeiti į domeną http://pixel.rip.lt išmeta TopHosto directadmin paveiksliuką.

http://i42.tinypic.com/2rqkn41.jpg

Iš tiesų, galiu pasakyt, kad nelabai nusimanau ir nežinau ką daryt, kad rodytų blog'ą. Gal galit padėt?

Pagal mane tai 2 klaidos. Vieną buvau teisingai padaręs, bet mokytoja pasufleravo neteisingą atsakymą. :D

gerulis komentaras

 

:D

Nužudė. :D

Matysim kaip čia bus, pernai metų dariau tai pakenčiamas, 28 taškai. :D Bet šiaip tai aš irgi nemanau, kad bus reikalingas tas popiergalis, šiaip tai kai kurie klausimai pakankamai verčiantys pamąstyt, ir žalias atėjęs neišlaikysi tai vistiek parodo tavo komp. raštingumo lygį. Bet vat dėl tokių "bendro darbo" bajerių ir netenka lapelis vertės. Kol nepradės rimtai į tai žiūrėt, tol nieko nebus. Kodėl pavyzdžiui per lietuvių įskaitą nebūna "bendro darbo"? Sueitume puse klasės, pasikalbėtume visi draugiškai, ir visiem po 10. Nes šiaip tai lt įskaita dar labiau beprasmė negu šita. :D