agnek21

Ar verta laikyti šią įskaita? Kokia nauda iš jos, kam man to popieriuko gali vėliau prireikt? Reikia apsispręst laikyt ar ne, tai ir norėčiau išgirst jūsų nuomonę. :)

program pelnas; type masyvas = array[1..12] of integer; var p, r, z : masyvas; i, n, suma, max, min, s, ma, m : longint; fd, fr : text; begin assign(fd, 'firma.txt'); reset(fd); readln(fd, n); s := 0; suma := 0; max := 0; min := 100000; for i := 1 to n do begin readln(fd, r[i], p[i]); suma += p[i] - r[i]; if max < (p[i] - r[i]) then begin ma := i; max := p[i] - r[i]; end; if (min > p[i] -r[i]) and (p[i] - r[i] > 0) then begin m := i; min := p[i] - r[i]; end; if (p[i] - r[i]) > 0 then s += 1; end

matau niekas nenori užsiimt su tokiom 'sudėtingom' programom :D //Parasykite sakiniu seka, sukeiciancia vietomis pirmus du trizenklio skaiciaus skaitmenis program keitimas; var sk, a, b, c : integer; begin WriteLn('iveskite 3-enkli skaiciu'); readln(sk); a := sk div 100; b := sk mod 100 div 10; C := sk mod 10; sk := b * 100 + a * 10 + c; writeln('sukeista: ', sk); Readln; end. //Parasykite programa, randancia trizenklio sveiko skaiciaus skaitmenu, kurie dalijasi ir 3, suma. program suma; var a, b, c, sk, sum : integer; begin WriteLn('prasauuuu ivesk 3-enkli skaiciu '); readln(sk

{----------------procedūra failo nuskaitymui-----------------------------------} procedure skaitymas(var A : masyvas; var grupDYD : integer); var i, z : integer; fd : text; čia taip komentuoju programos dalis, o taip program automobilis; var a, //1-ojo pagreitis v1, //1-ojo pradinis greitis v2, //2-ojo greitis h : integer; //kelio skirtumas t1, t2 : integer; // vietos kur susitiks begin taip komentuoju kintamuosius, ciklus. Kintamuosius, programos dalis(funkcijas, procedūras) komentuoju visada, dar kartais koki ciklą, bet ne visada. Komentarus reikia rašyti su lietuviškomis r

program Noname3; var Df,Rf:text; i,n,s:integer; namas,gyventojai : array[1..50] of integer; //------------------- procedure viso(var s : integer); var i : integer; begin s := 0; for i := 1 to n do s += gyventojai[i]; end; //------------------------------- begin Assign(Df,'duom.txt'); Reset(Df); Readln(Df,n); for i:=1 to n do Readln(Df,namas[i], gyventojai[i]); viso(s); Close(Df); Assign(Rf,'rez.txt'); Rewrite(Rf); Writeln(Rf,s); Close(Rf); end. dabar gražina, aš čia net procedūros nerašyčiau. bet jei jam taip gerai tai tegul rašo.

program Pirkejas; type masyvas = array[1..100] of integer; var A : masyvas; t1, t2, N : integer; {------------------procedūra failo nuskaitymui---------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'DUOM.TXT'); reset(fd); readln(fd, t1, t2, N); for i := 1to N do readln(fd, A[i]); close(fd); end; {-------funkcija rasti daugiausia prekiu turincio eiles numeriui nustatyti-----} function didpirk : integer; var i, max : integer; begin max := 0; for i := 1 to N do if max < A[i] then begin

su nuskaitymu tai viskas čia gerai.

program Noname3; var Df,Rf:text; i,n,s:integer; namas,gyventojai : array[1..50] of integer; //------------------- procedure viso; var i : integer; begin s := 0; for i := 1 to n do s += gyventojai[i]; end; //------------------------------- begin Assign(Df,'duom.txt'); Reset(Df); Readln(Df,n); for i:=1 to n do Readln(Df,namas[i], gyventojai[i]); viso; Close(Df); Assign(Rf,'rez.txt'); Rewrite(Rf); Writeln(Rf,s); Close(Rf); end. ciklą persuk procedūroje, kad suma gautum. pataisiau čia truputi.

paspręsk iš pradžių lengvas užduotis, vėliau po truputi sunkesnes, o tada jau egzaminų buvusias užduotis. dėl knygų, tai yra įvairių, tačiau man geriausios tik 2, tai: G.Grigas 'Programavimas Paskaliu' o dėl užduočių aiškinimo tai Jonas Blonskis Vytautas Bukšnaitis Renata Burbaitė 'ŠIUOLAIKIŠKAS ŽVILGSNIS Į PROGRAMAVIMO PAGRINDUS'.

na jeigu užduotį aiškiau parašytum tai gal padaryčiau :rolleyes:

su div 10 daryk. pvz: k = 258, k := k div 10, o dabar k jau tik 25.

Readln(Df,vp[i],kainos[i],dienos[i]); average:=average + dienos[i]/n; if dienos[i]>max then neapskliausk, nes tau ką sudeda vėl viską iš n dalina. :rolleyes:

koks vidurkio atsakymas?

tai dabar, kai radau kodus pasidarė aišku, :rolleyes: program simboliai; var kodas : integer; begin readln(kodas); if (kodas >= 048) and (kodas <= 057) then writeln('tai yra skaičius ', chr(kodas)) else if (kodas >= 066) and (kodas <= 090) then writeln('Tai didžioji raidė ', chr(kodas)) else if (kodas >= 097) and (kodas <= 122) then writeln('tai mažoji raidė ', chr(kodas)) else writeln ('tai kitas simbolis'); Readln; end. čia, manau, taip reikėjo.

sveiki! truputi pagalbos reikėtu. yra užduotis:'duotas simbolis x(jei gerai suprantu kodas turėtų būti), nustatyti ar tai skaitmuo, didžioji raidė, mažoji raidė ar kitos simbolis'. nesuprantu kaip čia turėtu pascalis tikrinti, kaip čia daryti? Neteko dar tokio daryti :blink: mane bent ant kelio užveskit. čia šitie kodai? Jei jie tai man tada jau aišku! http://borlandpascal.wikia.com/wiki/ASCII_Table

pritariu, knygų pirkt tikrai neverta. Man asmeniškai c++ išmokti padėjo http://www.thenewboston.com/?cat=66&pOpen=tutorial, gana aiškios pamokos, o jei nori 'įtvirtinti' žinias, tai persisiųsk kokia knygą iš interneto platybių. ;)

pritariu ankstesnėms nuomonėms, kad programavimo jei nenorėsi tai niekas ir neišmokys, o jei norėsi be jokiu studijų gali išmokti :) Šiaip svarbiausia manau, kad Tave trauktu programavimas ir Tau tai būtų įdomu :rolleyes:

:) jeigu nieko nekomentuosi tai tikrai gausi -1 tašką, bet manau pilnai užtektu pakomentuoti programos dalis ir kintamuosius :rolleyes:

Mano pastebėjimai: 1. Programos pavadinimą moko rašyti tik ‚Mainai‘. 2. Nuskaitymo procedūra visada turi būti prieš funkcijas(programos pradžioje). 3. Funkciją galima iškviesti į procedūrą.(Nors manau tai ne taip svarbu). 4. Pagrindinės programos pabaigoje parašyta 'readln', sakė kad tai skaitosi kaip darbas su ekranu. 5. Po ciklo, jei vykdomas tik viena eilutė, nereikia 'begin' ir 'end'.(Tik apkrauni darbu programą) O dėl komentavimo tai mums visada sako rašyti ką daro funkcijos ir procedūros , o dėl kintamųjų komentavimo tai, manau, kad tavo programoje tai nėra būtina, nes kintamieji yra n

Taip man dar vieni metai :rolleyes: , viskas dar gali pasikeisti. Sėkmės tau taip pat!

kai tiksliai žinosim kur stojam tai ir chat'o reiks ;) na keblumu stojant, bent man, tai tikrai nebus. :rolleyes: labai mažai balų reikia norint įstoti į nemokamą. Reikia tik norėt ir tada viskas įmanoma :D

:D man kaip tik ir patinka, kai būna vaikinų grupė. Pagalba, taip pat, visada praverčia. ;) Na dėmesio ir dabar nestinga, bet per daug jo nebūna! Jau noriu į VU :D

:rolleyes: Nuraminot, kad ir merginos stoja. O su vaikinais jau per šiuos metus pripratau dirbti grupėje. Na jei niekas labai nepasikeis, tai tada stosiu į PS po metų!

kiek pastebėjau į PS ir kas susiję su informatika, programavimu stoja tik bernai. Aš dar tik 11kl baigiau, bet jau galvoju apie stojimus, stočiau į PS, nes matematika sekasi labai gerai, informatikos mokytojo pastangomis gerai(palyginus su kitais grupiokais) išmokau programuot pascaliu. Jau pabaigiau visų metų VBE praktines užduotis, kitais metais pradės mokyti C++, kadangi pascali jau pakankamai gerai moku.Informatika pabaigiau šiuos metus A lygiu programavimą, egzaminą laikysiu ir manau išlaikysiu pakankamai gerai. Man įdomu būtu sužinoti ar galima man butu studijuoti PS, nes dabar tai man s

program Pelnas; var n, k, s : integer; fd, fr : text; begin Assign(fd, 'Duom.txt'); Reset(fd); Readln(fd, s); while not eof (fd) do begin readln(fd, n, k); s += n * k; end; Close(fd); Assign(fr, 'Rez.txt'); rewrite(fr); writeln(fr, s); Close(fr); end. Skaičiuoja viską, aš visada fd ir fr rašau, tai nežinau jei jūs rašot d ir r tada pakeisk ;)