Mantonijo

Laikusieji, kokios nuotaikos, kaip pasiseke? Kaip jums I-oji programavimo uzduotis? :) http://www.part.lt/img/059aec8c0bfab0ec6b9ea0a7a8cb030a572.jpg

Negalima

Bus problema cia. Pagal Hardware id susirask sau tinkamus driverius

Aciu uz pagalba, programa padaryta. Tik nemokejau padaryti, jog Esant vienodam gyventojų skaičiui – rikiuoti abėcėlės tvarka pagal apskrities pavadinimą. Jeigu kam reikes programa "Miestai ir apskritys": program mia; type duom = record miest : string[20]; aps : string[13]; gyv : longint; end; rez = record apz : string[13]; mm : longint; gyv : longint; end; Mas1 = array [1..50] of rez; Mas = array [1..103] of duom; var A:Mas; B:Mas1; n:integer; //////////////////////////////////////////////////////////////////////////////// procedure Skaity

Taip veikia, bet cia sudeda visus gyventojus ir neprideda 1 gyventoju skaiciaus, o ne pagal apskritis.

Taip As esu padares algoritma, kuris surikiuoja pagal apskritys ir i kita masyva pridedineja gyventojus, taciau Ranges Overrun ties sita eilute: then B[l].gyv:= B[l].gyv + A[nuo].gyv // I kita masyva prideda gyventojus for i:=1 to n-1 do begin ///// Rikiavimas nuo:=i; for j:= i+1 to n do if (A[j].aps <= A[nuo].aps) then nuo:=j; laik:=A[nuo]; A[nuo]:=A[i]; A[i]:=laik; end; for i:= 1 to n do begin // Nuo 1 iki viso masyvo nuo:= i; for j:= i+1 to n do if (A[nuo].aps = A[j].aps) // Jeigu aps

Nelabai as suprantu ta C koda. O paskaliu tai niekaip nesugalvoju. Gal kazkas galetu bent ant kelio uzvest?

Kadangi gyventoju skaicius didelis tai reikejo naudot longint ir viskas issisprende, bet dabar problema, kaip surikiuoti pagal abecele (apskritis) ir kartu pagal gyventoju skaiciu.

Sveiki, nesuprantu kodel man skaityme raso "Ranges overrun"? II progrmavimo uzduotis "Miestai ir apskritys" program mia; type duom = record miest : string[20]; aps : string[13]; gyv : integer; end; type rez = record apz : string[13]; mm : integer; gy : integer; end; Mas1 = array [1..50] of rez; Mas = array [1..103] of duom; var A:Mas; B:Mas1; n:integer; //////////////////////////////////////////////////////////////////////////////// procedure Skaitymas; var i:integer; F:text; begin Assign(F, 'U2.txt'); Reset(F); ReadLn(F, n);

Deja, nemoke tokio dalyko mokykloje.

Stai rikiavimo procedura: procedure Išrinkimas (var a:array of integer; N:integer); var i, j, nuo, t: integer; begin for i := 1 to N-1 do begin nuo := i; for j :=i+1 to N do if a[j] < a[nuo] then nuo := j; t := a[nuo]; a[nuo] := a[i]; a[i] := t end; end;

Sedejau 2 val. prie uzduoties ir atsakyma vietoje 28 gaunu 30. I progrmavimo uzduotis "Siuntu tarnybos" program siuntiniukai; type siuntos = record pav : string[10]; x : integer; y : integer; viso : integer; end; type Mas = array [1..50] of siuntos; //////////////////////////////////////////////////////////////////////////////// var A:mas; n, m, visi, z, i:integer; R:text; //////////////////////////////////////////////////////////////////////////////// procedure Skaitymas; var i:integer; // Skaitiklis F:text; // Duomenu failas begin Assign(F, 'U1.txt'

Priima ir be atestato, tik su tuo liudijimu.

O ar yra KTU studijos, kurios moko web development, duomenu bazes giliai, nes as, kaip suprantu, informacines sistemos - tai pavirsutiniskas paemimas visko. Biski to biski to, palyginus su programavimo studijom.

Sveiki, ar apsimoka stoti į KTU Informacinės sistemas? Man labiau patinka kūrti tinklapius, dirbti su PHP ir MySQL. Ar ten plačiai apima duomenų bazes? Gal kažkas mokotes ir galit patarti? :)

Sveiki, norejau pasiteirauti nuo kokio svorio tabako prasideda muitas siunciantis is JAV? Jeigu paraso ant siuntinio dezes, jog viduje yra tabakas. Kiek procentu beje?

Užduotyje nurodyta, kad Pavadinimui skirtos pirmos 15 eilutės pozicijų. Duomenų failas, kurį susikūriau pats: 6 70 10 15 Elektrėnai 50.5 Žiežmariai 20 Kaunas 22.35 Raseiniai 80 Kryžkalnis 20 Klaipėda 100.8 Pagal šį: http://i.imgur.com/Jabs5ph.png Susitvarkiau, reikėjo atidėt dar pora tarpų po pavadinimų.

Sveiki, kodėl meta problemą ties 22 eilute? Kaip suprantu A.pav nuskaito, bet A.kelias jau nebe nuskaito. Kame šaknys? program Kelionë; type stoteles = record pav : string[15]; kelias : real; hpr, mpr : integer; end; Mas = array [0..100] of stoteles; // Duomenų skaitymas procedure Skaitymas(var A:Mas; var n:integer; var v:real); var F : text; i : integer; begin Assign (F, 'U1.txt'); Reset (F); ReadLn (F, n, v, A[0].hpr, A[0].mpr); for i := 1 to n do ReadLn (F, A[i].pav, A[i].kelias); Close (F); end; var A:Mas; n, i:integer

Gali naudot: <?php include 'failas'; ?>

Turiu SteelSeries Kinzu apie 3 metus, nusiskundimų nėra, nebuvo sugedus nei karto nors buvo kritus ir taip toliau. Taipogi, labai patogi.

Čia gal valstybinė paslaptis, kad niekas nežino? :D

Sveiki, norėčiau paklausti, kokį rinktis TVS'ą, kad prisiregistravę žmonės galėtų pirkti virtualius kreditus tame puslapyje? Tarkim per Mokėjimai.lt. Nusipirkę tuos kreditus galėtų išleisti puslapyje.

Pakviečiau į Skype.

Sveiki, pastebėjau, kad daug žmonių kalbą apie tą Laravel. Tačiau kas tai yra? Suprantu, kad kažkoks framework'as, bet kaip jis padeda kuriant puslapį?

Norėčiau paklausti kokiu maksimaliu greičiu gali kelti failus iš PC į paprastą tarkim 4GB USB per USB 3.0?