APCY

Manasis variantas. Gal kam pravers. :) Kartais visai mielai paspręsčiau akademinio tipo pascal, C ar C++ uždavinius už atitinkamą atlygį.
 

program Pascal_Job; const dfilename = 'uzduotis.txt'; Max = 100; Max1 = 100; type Eil = string[20]; Eil2 = string[5]; Mokinys = record pav: Eil; grupe: Eil2; paz: array [1..Max] of integer; pazk: integer; vid: real; idk: integer; end; Mas = array [1..Max1] of Mokinys; procedure Skaityti (var m: mas; var n: integer); var byla: text; i, j : integer; begin Assign (byla, dfilename); Reset (byla); i := 0; while not Eof (byla) do begin i := i + 1; Read (byla, m[i].pav, m[i].grupe); j := 0; while not Eoln (byla) do begin j := j + 1; Read (byla, m[i].paz[j]); end; m[i].pazk := j; Readln (Byla); end; n := i; Close (byla); end; procedure Vidurkiai (var m: mas; mx : integer); var i, j, suma: integer; begin for i := 1 to mx do begin suma := 0; for j := 1 to m[i].pazk do suma := suma + m[i].paz[j]; if (suma > 0 ) then m[i].vid := (suma / m[i].pazk); end; end; procedure PriskirtiID (var m: mas; mx : integer); var i, j: integer; yra : array [1..Max1] of boolean; begin for i := 1 to mx do begin m [i].idk := i; yra [i] := false; end; for i := 1 to mx do begin for j := i+1 to mx do if (m[i].grupe = m [j].grupe) and (not yra[j]) then begin m [j].idk := m[i].idk; yra [j] := true; end; end; end; procedure Spausdinti (m : Mas; n: integer); var i, j: integer; begin for i := 1 to n do begin Write (m[i].pav, m[i].grupe); for j := 1 to m[i].pazk do write (' ', m [i].paz[j]); Writeln; end; end; procedure RSpausdinti (m : Mas; n: integer); var i, j: integer; begin Writeln; for i := 1 to n do for j := 1 to n do if m[j].idk = i then Writeln (m[j].pav, m[j].grupe, m[j].vid:2:2); end; var k: integer; m: mas; begin Skaityti (m, k); Spausdinti (m, k); PriskirtiID (m, k); Vidurkiai (m, k); RSpausdinti (m, k); Readln; end. Uzduotis.txt Burokas Jurgis 5a 8 10 10 Kazlauskas Vytautas 7a 9 5 10 Morkute Rima 9t 9 8 10 Mankute Roma 9t 9 7 10 Petraitis Petras 9r 8 5 9 9 Kazlauskaite Renata 7a 5 10

http://uzdarbis.lt/t295649/programavimas-pascaliu-skubiai-padekite/page__p__2494412__hl__pascal__fromsearch__1#entry2494412

Jei tiesiog nori sužinoti apie vieną ar kitą funkciją, tai jei turi linux/os x/bsd/panašų žvėrį, yra „man“ komanda, jei ne, tai kokį online C/C++ reference, kaip http://en.cppreference.com/w/. Tavo minėta pow funkcija yra matematikos bibliotekoje (math.h) ir tai paprasčiausias kėlimas laipsniu (pvz. pow(2,4) == 16).

http://www.youtube.com/watch?v=KkMDCCdjyW8
 
Viso semestro JAVA programavimo kurso paskaitų video
Visi dėstytojo studentams duoti užrašai (handouts) - tai, ką studentai turi per paskaitą
Visos užduotys (atsiskaitymai) po kiekvienos paskaitos - su sprendimais
Egzaminai, kuriuos laikė šį kursą pasirinkę studentai

Sveiki,
 
visai netyčia interneto platybėse užklydau į http://codecademy.com, kur interaktyvaus editoriaus+kompiliatoriaus ir paprastų bei suprantamų tutorial'ų pagalba mokytis programuoti tapo paprasta, kaip niekada.
 
Nereikia nieko įrašinėt, vargt su kalbų versijom ir t.t, viskas vyksta svetainėj pasitelkiant java script kalbą, visi tutorialai eina iš eilės, kur dėstoma ne sausa teorija, bet praktiškai duodamos užduotys, kurias atlikinėdamas gauni paaiškinimus ir po truputį susipažįsti su visom tom teorijom.
 
Kas labiausiai patiko, kad mokaisi programuoti geriausiu įmanomu būdu - tai praktiškai darydamas ir nereikia jokių knygų, kur kodas kartais būna pasenęs ir turi dar porą valandų kovoti su atsinaujinusiom kokios nors programavimo kalbos versijom ir jos rašymo įpatumais. Visa svarbiausia esminė programavimo logika - kas yra variables, funkcijos, kaip veikia string'ai ir t.t paaiškinta pakeliui, super paprastai.
 
Kol kas dar neteko nieko panašaus bandyti,
 
kokia jūsų nuomonė? ar kas vykdot tuos tutorialus?
 
Klausimas programeriams-vilkams: ar tai geras būdas mokytis programavimo apskritai?

Asku,kad gali sieti savo ateiti su programavimu.Fizikos nelabai ir reikia nebent,kai busi patyres programuotojas noretum atlikti mokslinius tyrimus.Kas yra reikalinga programamavime tai matematika,ir kiek supratau is ka tu parasei tai tau ji sekasi gerai.Nors galima apsieiti ir be didesniu matematikos ziniu,jei tik galva ant peciu turi.Tai sekmes tau besimokant :)