audrius^

O kas jeigu įvestas sakinys viršija 200 simbolių? Ir dar jeigu yra K didžiųjų?
Geriau taip daryt:

program programa; var sakinys:string; i, k:integer; Begin readln(sakinys); k := 0; for i:=1 to length(sakinys) do if (ord(sakinys[i]) = 107) or (ord(sakinys[i]) = 75) then k+=1; writeln('k = ', k); readln; End.

2. Parasykite programa, kuri apskaiciuotu nurodyto skaiciaus skaitmenu suma(pvz:152,skaitmenu suma yra 8);

program programa; var sk, sum:longint; Begin readln(sk); sum := 0; while sk > 0 do begin sum += sk mod 10; sk := sk div 10; end; writeln(sum); readln; End.
 
3. Parasykite programa, kuri rastu ir isspausdintu skaiciaus n pirma ir paskutini skaitmeni;

program programa; var n:longint; Begin readln(n); writeln('Pirmas skaitmuo: ', n div 10 ** (trunc(ln(n)/ln(10)))); writeln('Paskutinis skaitmuo: ', n mod 10); readln; End.
 
4. Parasykite programa, kuri rastu didziausiaji sekos nari ir jo eiles numeri sekoje(ciklas while);
Nesupratau šios užduoties biškį :/

Nesutinku, kad jei žmogus vidutiniškai mokosi, ar gauna vidutinį atlyginimą - jį jau galima vadinti vidutinybe. Mačiau pirmūnų, su kuriais nėra apie ką pasikalbėti, o mačiau ir padaužų, nesugebančių nelikti antriems metams, kurie yra fantastiškai įdomūs, charizmatiški, ir protingi. Gal nevisiems tinka švietimo sistema, gal nekiekvienam hiperaktyviam paaugliui skiriama pakankamai reikalingo dėmesio. Žinoma mokytis reikia, kitaip nesakiau ir nesakysiu, bet mokytis reikia toli gražu ne tik to, ko moko vadovėliai ir mokytojai - to norint išaugti įdomia asmenybe, patikėkit, neužteks ;) Mokykla kaip tik ir augina vidutinybes.
 
Manau reikia žvelgti gerokai plačiau - pasitaiko, kad beveik visai pajamų neturintis žmogus yra toks, iš kurio labai daug būtų galima pasimokyti - jis tiesiog orientuojasi į dvasinį gyvenimą (dvasingumas nėra tapatu religingumui). Mano mėgstamas pavyzdys - budistų vienuoliai. :) Jie neturi praktiškai nieko, o vis dėlto - jie ne tik, kad ne vidutinybės, bet tiesiog šviesuliai. Na taip, gal ne visi, bet vis dėlto - tai pavyzdys, kaip materialus pasaulis nieko nelemia. Tie žmonės tiek dirba su savimi, savo protu, savo kūnu, savo jausmais, kad galiausiai mes šalia jų atrodome kaip neandartaliečiai - visiškai nekontroliuojantys nei to ką kalbam, nei savo judesių, nei kūno poreikių... O jie gali medituoti savaitėmis, gerdami tik vandenį ir nuodus (!) ir likdami sveikutėliai. Arba stovėti ant vienos kojos kelias valandas. :D Na nežinau, sakykit ką norit, bet aš mielai tokiam vienuoliui rytą/vakarą kojas prausčiau, kad tik jis papasakotų man kvailai, bent kelias savo paslaptis - kaip jis toks romus, ir toks stiprus.
 
O mes kuo toliau, tuo labiau virstame materialistais, ir nors viena vertus, galima teigti kad tai normalu - kita vertus - negalima pamiršti apie harmoniją. Ir kai žmonės visiškai pamiršta savo kūną, savo sielą ir tik "kala" litus - jie išduoda save. Ir, tiesą pasakius, šiais laikais aš vidutinybe būtent ir pavadinčiau tokį pamišusi darboholiką, litų kaliką, kuriam galvoj tik karjera, turtai, kuris neturi laiko šeimai, draugams, pomėgiams, jau nekalbant apie stabtelėjimą pasižiūrėt kaip žvirbliai pešasi dėl trupinio :) Nes tokių žmonių yra masės. Ir čia matyt nemažai tokių, galit mestelt akmenį kitą, nebijau, nes manau kad gyvenimas turi kur kas daugiau sudedamųjų dalių nei materialiniai turtai, o ar reinkarnacija bus - neįrodyta. :)
O tas, kuris turi ir kitų siekių, galvoja ne tik apie milijonus, bet ir apie savo savijautą, jausmus, siurprizą mylimam žmogui, laisvalaikį, asmeninį tobulėjimą (nekalbu apie karjerą, kalbu apie savirealizaciją, kūrybą, saviraišką - paiešką to, kas tikrai yra tavo ir tau), lyrinį nukrypimą, ekspromtą vidury dienos - gal ir nėra toks turtingas finansiškai, bet gyvena turtingesnį gyvenimą, ir dažniausiai yra laimingesnis. :)
 
O dar - konformistas, ar nekomformistas? Jei esi tas, kuris matydamas neteisybę drąsiai pasakys: "jūs kaip norit, bet čia nesąmonė, aš noriu kad būtų kitaip" - ir dar ne tik sukritikuos, bet ir imsis ieškoti sprendimo - tada tikrai nesi vidutinybė, visiškai nesvarbu pažymiai, atlyginimas, batų firma ar šukuosena. Esi stipri asmenybė, ir bet kada gali tapti revoliucionieriumi - žinoma geriau be šautuvų. :) Greičiausiai jau mokykloj spėjai užlipt ant stalo, ir karštai paprieštaraut mokytojui, o jei dar ne - nepamiršk, kad savyje nešiojiesi ugnį, kuri gali uždegti daug ką, ir kurios nereikia slopinti - ją reikia išnaudoti protingai. Nekonformistų visada reikia - būtent jie pradeda griauti pasenusias sistemas, kartais ta pradžia būna tik karšta kalba, kartais - kumštis į stalą, bet esmė yra tame, kad be šių žmonių greičiausiai neįvyktų nieko - visi kiti tiesiog nedrįstų, nutylėtų, pabijotų. :)
 
Tad mano galva - dešimt pirmūnų gali būti vidutinybės, lyginant su vienu vidutiniškai besimokančiu nekonformistiškai nusiteikusiu, nedisciplinuotu, panirusiu kūrybon gitaristu (ar programeriu/dizaineriu/skaitytoju etc.)
Lygiai taip pat - dešimt verslininkų gali būti "neverti" vieno pamišusio dėl savo projekto / studijų / hobio susivėlusio žmogaus X. Nes viską lemia visai ne kostiumas ar išsilavinimas, ką šiais laikais gali turėt bet kas. Ir ne mašina (nors ir Maserati). Tai nieko nereiškia, mirsim visi vienodai neturtingi, tik vargu, ar tas, kuris praarė visą gyvenimą, bent turės ką atsimint.
 
Reziume: apskritai nepriimu sąvokos "vidutinybė". Kiekvienas yra unikalus - mažų mažiausiai - anatomiškai (žinoma graudu, kai išskirtinumas tik toks). Ir kuo žmogus turi daugiau hobių (hobiu laikau bet kokią veiklą, kur galima tobulėti: muzikavimas, menai, sportas, verslas, kolekcionavimas - viskas išskyrus beprasmius laiko žudymus, kurie neduoda realios naudos) - tuo jis yra unikalesnis ir įdomesnis. Natūralu - juk kuo daugiau žmogus domisi, užsidega, mokosi - tuo jis yra dvasiškai turtingesnis ir intelektualesnis.

Yra tokia ORD() funkcija, kuri parodo kiekvieno simbolio ar ženklo ASCII reikšmę. Plačiau gali čia apie tai pasiskaityt: http://www.hkbu.edu.hk/~bba_ism/ISM2110/pas036.htm

Pirmiausia sveiko proto reikia tureti, kad nekiltu panasiu ideju.

Ištrauka iš http://kernius.net/kaip-pasiruosti-egzaminams-vbe-gidas
 
Mokantis matematiką rekomenduoju:
 
V. Mockus „Matematikos atmintinė moksleiviams“ (visos formulės, apibrėžimai ir jų paaiškinimai, kurių gali prireikti ruošiantis VBE) http://mockus.projektas.lt/1.htm
V. Mockus „Matematikos valstybinio brandos egzamino užduočių pavyzdžiai (su atsakymais)“ http://mockus.projektas.lt/4_valst_2004.htm

record nėra vienmatis :)

Be to dar kokio taško negautum už tai, kad nekomentuoji :)

Iš savo draugų rato neteko girdėti, kad kas naudotų frype.lt tai man vienodai jos likimas.

KTU - Taikomoji matematika, gal bus čia iš uždarbiečių bendrakursių? :)

Audriau, labai galimas dalykas, kad ir as stosiu i taikomaja matematika.

Kauliuko akučių aibė: A = {1, 2, 3, 4, 5, 6}
Įvykis susideda iš trijų akučių (tvarka svarbi).
 
Palankių įvykių aibė:
M = {(1, 1, 6), (1, 2, 5), (1, 3, 4), (1, 4, 3), (1, 5, 2), (1, 6, 1), (2, 1, 5), (2, 2, 4), (2, 3, 3), (2, 4, 2), (2, 5, 1), (3, 1, 4), (3, 2, 3), (3, 3, 2), (3, 4, 1), (4, 1, 3), (4, 2, 2), (4, 3, 1), (5, 1, 2), (5, 2, 1), (6, 1, 1)}
kurios galia |M| = m = 21
 
Visų įvykių aibė N = A*A*A (Dekarto sandaugos prasme),
kurios galia |N| = n = |A|*|A|*|A| = 6 * 6 * 6 = 216
 
Tikimybė lygi palankių įvykių ir visų įvykių santykiui P = m/n = 21/216 = 7/72
kas apytiksliai lygu 9,72%

1) x = 3
2) x = 1.35
3) x = 2
4) x = 2
5) x = 1/100
6) x = sqrt(1000)
Jei reikia sprendimų susisiek per Skype arba Až :)

program KinuMetuZenklai; var metai:integer; Nr:integer; begin write('Iveskite gimimo metus: '); readln(metai); Nr := (metai + 4) mod 12 + 1; write('Pagal kinu zodiako kalendoriu, jus esate: '); case Nr of 1:writeln('Drakonas'); 2:writeln('Gyvate'); 3:writeln('Arklys'); 4:writeln('Ozka'); 5:writeln('Bezdzione'); 6:writeln('Gaidys'); 7:writeln('Suo'); 8:writeln('Kiaule'); 9:writeln('Ziurke'); 10:writeln('Jautis'); 11:writeln('Tigras'); 12:writeln('Kiskis'); end; readln; end.

Kam tau reikalingas dar vienas vardas? Geriau būtų tiesiai į masyvą nusiskaityt
Readln(duomenys, masyvas[i].vardas, d)
O klaida tau meta todėl, kad turi būti prie masyvas, o ne prie vardas... masyvas.vardas:=vardas masyvas.vardas:=vardas;

Būtų neblogai, jei susirašytum per skype ;)

function DaugiausiaGrybu(B, R, L:mas1):integer; var i:integer; max:integer; Diena:integer; begin max := -1; for i:=1 to 31 do begin sum := B[i] + R[i] + L[i]; if sum > max then begin max := sum; Diena := i; end; end; DaugiausiaGrybu := Diena; end;
Funkcijos reikšmė bus diena kurią buvo surinkta daugiausia grybų, o kiek grybų buvo surinkta gali tiesiog vietoj sudėti visus grybus kiek tą dieną buvo surinkta. Štai taip:
diena := DaugiausiaGrybu(baravykai, raudonikiai, lepšiai); Writeln(ffr, diena, baravykai[diena]+raudonikiai[diena]+lepsiai[diena])
Ir dar kai tu pradžioje apsibrėži TYPE, tai kadangi bus naudojamas vienodo tipo masyvas visiems masyvams, užtenka apsibrėžti vieną, taip:
type masyvas1=array[1..31] of integer; ir po to
var baravykai, raudonikiai, lepsiai:masyvas1;

Turiu idėją, o gal ne idėja tik šiaip mintį.Pastebėjau, kad uždarbyje yra daug žmonių kurie skolinasi pinigus ir nemaža dalis prisiskolina tiek, kad paskui nepajėgia grąžinti.Dauguma iš jų nėra vagys tiesiog neapsiskaičiuoja, kad negalės grąžinti.Aišku čia būtų galima kaltininti pačius skolintojus, kad nereikėjo skolinti ir t.t, bet čia irgi ne išeitis.Turiu tokią mintį:
 
Padaryti kažką panašaus kaip skolinimosi yrašus kuriuos rodytų skolininko profilyje.Viskas vyktų taip: žmogus norintis pasiskolinti iš nario pinigus siunčia prašymą paskolinti(viskas prieš tai jau būtų susitarta asmeniškai čia tik įrodymui).Tada skolintojas gali priimti prašymą arba atmesti.Jei priima to žmogaus profilyje rodo pvz: Petras paskolino (suma) nariui Antanas.Tai būtų įrodymas,kad žmogus skolinosi.Kam to reikia? Nei vienas skolintojas neskolintų nariui pinigų jei žinotų,kad jis prisiskolinęs dar dešimčiai.Jei būtų tokie įrašai - skolintojas užeina į nario profilį ir mato ar jis prisiskolines ar ne.Įrašo panaikinimas būtų panašus kaip ir pridėjimas: skolininkas atidavęs skola siunčia prašymą skolintojui panaikinti įrašą,nes skolą jis grąžino jei skolintojas sutinka įrašas panaikinamas.Kaip jūs manote toks dalykas būtų naudingas ar ne? :)

function DaugiausiaGrybu(B, R, L:mas1):integer; var i:integer; max:integer; Diena:integer; begin max := -1; for i:=1 to 31 do begin sum := B[i] + R[i] + L[i]; if sum > max then begin max := sum; Diena := i; end; end; DaugiausiaGrybu := Diena; end;
Funkcijos reikšmė bus diena kurią buvo surinkta daugiausia grybų, o kiek grybų buvo surinkta gali tiesiog vietoj sudėti visus grybus kiek tą dieną buvo surinkta. Štai taip:
diena := DaugiausiaGrybu(baravykai, raudonikiai, lepšiai); Writeln(ffr, diena, baravykai[diena]+raudonikiai[diena]+lepsiai[diena])
Ir dar kai tu pradžioje apsibrėži TYPE, tai kadangi bus naudojamas vienodo tipo masyvas visiems masyvams, užtenka apsibrėžti vieną, taip:
type masyvas1=array[1..31] of integer; ir po to
var baravykai, raudonikiai, lepsiai:masyvas1;

Kolkas neturi is kur naftos pavogti, tai sugalvojo is pokerio issiurbti pinigu :lol:
stai kas laukia pokeri
http://www.youtube.com/watch?v=-XjP3nSE2r0

Čia kad šiek tiek gražiau spausdintų visus skaičius

program Noname40; var i:integer; begin for i:=1 to 97 do begin if i mod 2 = 0 then begin if i mod 10 <> 0 then write(i:3) else writeln(i:3); end; end; readln; end.

program Noname40; var i, suma:integer; begin suma :=0; for i:=1 to 97 do if i mod 2 = 0 then suma := suma + i; writeln(suma); readln; end.

program Noname40; var i, suma:integer; begin suma :=0; for i:=1 to 97 do if i mod 2 = 0 then suma := suma + i; writeln(suma); readln; end.

http://www.programavimopamokos.net/index.php?vaizdas=FPSPamokos
Labai gerai svetainė, kurioje yra pilna klipų su pamokomis kaip programuoti su FPS :) Pradedančiajam labai praverčia ;)

Įdomiai čia :D. Man atrodo, kad tai tik eilinis jauno žmogaus užsidegimas kažką kurti, bet nieko rimto nesigaus :)