Rhymond

ką daro tas defektas plačiau galima ? ir iš kur esi?

Pasiūlė gi ir visai patiko tinklapis tikrai gerų loginio mąstymo ir skaičiavimo užduočių yra.

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23. Find the sum of all the multiples of 3 or 5 below 1000.

reik knygutes atiduot man atrodo ;) Pas mus mokykloj jei nerandi knygos tai galima atnešt kokią panašią seną iš namų ;D irgi užskaito .

1. Viename duomenų faile surašyta lentelė tuščius laukelius pažymint taškais arba brūkšneliais. Viskas vienoje eilutėje. Ką padaryti: Gražiai atvaizduoti lentelę sudarytą pagal duotus duomenis. (Truputį sunkiau) Išspręsti sudoku program Bevarde11; const duom = 'sudoku.txt'; procedure vienas(var i : string); var sk, x : integer; begin x := 3; for sk := 1 to 9 do begin if x mod 3 = 0 then write('|'); x := x + 1; write(' ',i[sk],' '); end; write('|'); writeln(''); end; var A : text; i : string; x : integer; begin assign(A,duom); reset(A

moku truputį PHP. HTML/CSS gerai moku, bet aišku čia nepričiom, taip taip pirma mano kalba ir buvo pascalio, kai pradėjau mokytis PHP viskas daug lengviau buvo.

dar kartą ačiū už viską turėsiu dabar daug darbo ;) teks pasukti smegenėles, nes dar nelabai moku net skaitymą iš bylų

ok neskaitysiu spolerio dar: Kaip turėtų atrodyti tas atvaizdavimas ;) brukšniukais aš įsivaizduoju kažkodėl jį ar tai tiesa?

Štai pagaliau žmogus suprato ko aš norėjau ;) Pradėsiu nuo pirmos užduoties tarkim turim sudoku http://www.learn-math.info/gamesFolder/sudoku/sudoku.png tekstinis failas turėtų atrodyti taip? 53--7---- 6--195--- -98... ir t.t. taip supratau? reikia padaryti programą kad šį SUDOKU išsprestų manau kad čia tikrai reiks pasukt galvą labai kolkas viskas sunkiai skamba

Tiesą pasakius nepagavau ;/

Labai ačiū už patarimus ;) Taip tiesa šitą žinau kad geriau padaryti programą kuri veiktų trumpiau, o ne tik kad veiktų. Šitą stengiuosi daryti. Taip šitą jau žinau, sužinojau nelabai senai, o jau pripratau kažkaip prie pascalio ir nenoriu keist nieko, jis man nekliudo. Vistiek viskas daroma dėl egzaminų.

Nieko nepadarysi pradėjau tai pradėjau, o egzaminus juk reik praeit ;)

pradėsiu nuo to, jog nemėgstu laiko švaistyti veltui. Tad norėčiau per vasarą daugiau pramokt pascalį, nes noriu ateitį sieti su informatika, programavimu ir t.t. Jei kas turi neišsprestų užduočių ar kažko panašaus susijusio su paskaliu norėčiau kad viską keltumėt čia, stengsiuosi jas atlikti turiu keletą uždavinių, bet man to neužtenka jie yra išspresti. Gal yra tinklapis kuriame yra šito pobūdžio dalykų labai padėtumėt, Ačiū :) Štai keletas užduočių: Tekstiniame faile stulpeliu surašyti žodžiai. Parašykite programa, kuri nustatytu, ar klaviatura ivestas žodis yra faile ir jei yra, tai kiek

aš manau dirbk vienas ;) jei pamatysi kad sunku pats sau pasakysi. O gal geriau dirbt reiktų grupėje? O jei viskas išeina vienam o ko gi ne ;) darbas žmogų puošia. Ką išmoksi ant pečių nenešiosi, juk gal kada tas žinias įgytas galėsi kai kur panaudot.

pirmiausia gal padaryk nemokamą ;) pažiūrėk žmonių aktyvumą.. arba padaryk nemokamą ir surink iš visų žaidusių geriausius ir tada juos į mokamą.

aš kai iš tiketos bilietą perku internetu man būna taip :) nusiperku sumoku per internetinį banką ir jie man atsiunčia bilietą .pdf formatu ir viskas atsikopijuoji ir veikia ;]

geras straipsnis, tikrai nemažai sužinojau ;)

LTU rašau visada :)

ar yra toks chronometras kuris kas minutę supipsėtų aišku reiktų PC versijos ;) dar geriau būtų online ;]

nepagailėk pinigų ir padarys tai unikalią ir gražią temą ir dar užmaust ant TVS ;)

viską daryk su div'ais ;) kaip sakė Crembo pasimokyk html/css tikrai nėra sunku... ;) pamatysi greit pagausi, o ir darbas kokibyškesnis bus, nes table nėra skirtas daryti tokiems dalykams

bet kažko skaito tvarkingai visą failą po eilutę ;/

Nelabai aš suprantu tuos EoF ir Eoln supranti kad failo pabaiga ir eilutės pabaiga... bet man veikia su eoln gal galima plačiau apie juos abu ?

pasakyčiau labai išsamu :)

va padariau šitaip ir veikia program zodziai; const duomenys = 'zodis.txt'; procedure skaitymas(var A:text; var zdz : string); var zodis : string; n : integer; begin n := 0; Assign(A,duomenys); reset(A); while not eoln(A) do begin readln(A, zodis); if zdz = zodis then n := n + 1; end; writeln(n); close(A); end; var A : text; zdz : string; begin writeln('iveskite zodi: '); readln(zdz); skaitymas(A, zdz); Readln; end.