thetenken

O kaip suprast tuos etapus ? 2 etapas - dar karta pildai prašymą? Ir kas būtu, jei pirmam prašyme rašyčiau tik vf vietas, bet kvietimo negaučiau. Galėčiau kitu prašymu rašyt tas pačias vf vietas ar tik mokamas jau ?

Neleidžia. "Klaida: derinimas negalimas, kai naudojama vykdančioji programa"

Kažkaip kitaip dar eina. Paskalis nereguoja į šitą būdą bent jau pas mane :\

Jei išmeta klaidą peržengti rėžiai, tai kur pascal'yje pažiūrėti, kurioj eilutėj peržengia rėžius ? Pamiršau :\

Geriau kas algoritmu pasidalintų, o ne ką kaip.

Su paskaliu dirbu. Be to, turit gal kas rikiavimą pagal abecėlę(pascal)? ;D

Kaip man nuskaityt tokius duomenis? Pvz. 1 eilutė: Antanaitis Martynas v ir t.t. Tarkim vardui skirta 12 pozicijų, pavardei tai pat, bet vardas eina ne iš karto po pavardės, o prasideda 14a pozicija. Tai kaip nurodyt, kad perskaitytų pavardę, o toliau skaitytų tik nuo 14 pozicijos, nes po pavardės lieka 2 tarpai, kurių nereik.

Tai jei VU informatikoj ruošia programuotojus, tai ką ruošia programų sistemose?

Tiesiog turiu skaičių masyvą. Tarkim: 1 2 3 3 3 4 5 5. Max = 5. Nuo 1 iki 5 vardina.. m[1] = 0, m[2] = 0, m[3] = 3 and etc. Galbūt kas nors pasiūlys geresnį ir paprastesnį uždavinio sprendimą :)

IT atžvilgiu stot į užsienio universitetus neapsimoka, nebent į Oxfordą ar cambridge'ą kokį. Jei nestumtum dūros Lietuvoj, išmoktum tiek pat, kiek ir užsienio univeruose. Nemanau ar verta varyt į užsienį vien tik dėl diplomo reikšmės, ypač kai Lietuvos IT studentai lengvai atlieka praktiką ir randa darbą jau kokiam antram kurse :))

Rašiau programėlę, kurios dažnai prireikia per VBE, tačiau kažkur klaida, o pačiam galvos skausmas jos ieškot. Bandau suskaičiuot kiek kuris skaičius masyve kartojasi. program Bevardė13; var n, i, j,a, max : integer; k, m : array[1..100] of integer; begin readln(n); for i:=1 to n do read(m[i]); max:=m[1]; for i:=2 to n do if m[i] > max then max:=m[i]; for i:=1 to max do // nusistačiau max, kad žinočiau kuris skaicius masyve paskutinis lygus ne 0 k[i]:=0; for i:=1 to n do for j:=1 to n do if (m[i] = m[j]) and (i <> j)

Bandau vėl programuot prieš egzą, programą apsirašau per 40-50min, bet dažnai susiduriu su klaidom/error'ais prie kurių kartais reikia pasėdėti. Klausimas: kaip jūs tvarkotės su error'ais, ar nesusiduriat, gal ką patartumėt kaip nedaryt smulkių klaidelių dėl kurių tirpsta brangus laikas?

O ką konkrečiai rašei? Programų sistemas, informatiką ar.. ? Kodėl?

Ei, chebra, jei man 20žodžių iki 500 trūko, tai smarkiai baus? rašinys gan geras, tiesiog 2 pastraipos ir nepasimokėjo trečią rašyt. Be to, ar užsiskaito rašytojo epocha ir laikmetis(tipo kada rašė) kaip kontekstas?

bump

Ten problema išsiaiškinau, bet dabar nesuprantu kodėl visgi kitos programos nuskaitymas neveikia. begin assign(d, 'Duomenys.txt'); assign(f, 'Rezultatai.txt'); reset(d); rewrite(f); Read(d, n, k); Readln; if (n >= 2) and (n <= 50) and (k >=1) and (k <= 10) then begin for i:=1 to n do begin Read(d, m[i].pav); for j:=1 to k do Read(d, m[i].sk[j]); Readln; end; Writeln(f, m[i].pav); end; close(d); close(f); Duomenys: 2 3 Hermis 6 1 2 Hera 6 2 2 Išmseta cmd langą ir nks nevyksta. Kai išjungi, duoda pasirinkt ar išsaugot rez.txt failą,

Tai va, priėjau iki to, kad visur stringu ties šiuom erroru. Skaldžiau kodą ir gavos, kad kažkur čia erroras "blogas skaičiaus formatas". program Bevardė4; var d, f : text; n, i : integer; m : array[1..5] of integer; begin assign(d, 'Duomenys.txt'); assign(f, 'Rezultatai.txt'); reset(d); rewrite(f); Readln(d, n); for i:=1 to n do Read(d, m[i]); for i:=1 to n do Writeln(f, m[i]); close(d); close(f); end. Pats nesuprantu kur slypi klaida. Negaliu kompiliuot rimtesnių programų dėl šito erroro :/

Vistiek tas pats

Nu nėra lyg, nebent as tikrai žioplas program Bevardė0; type marsrutai = record pav : string[20]; kiekm : integer; mar : array [1..50] of integer; end; masyvas = array [1..50] of marsrutai; var d, f : text; m : masyvas; mars : array [1..50] of integer; isviso, n, z, i, j : integer; begin assign(d, 'Duomenys.txt'); assign(f, 'Rezultatai.txt'); reset(d); rewrite(f); Readln(d, n); if (n >= 1) and (n <= 100) then begin for i:=1 to n do begin Read(d, m[i].pav, m[i].kiekm); for j:=1 to m[i].k

Viskas svaru. Mastau, ar negaletu but kazkas su windowsais ar paciu paskaliu. Tokia problema turejau, kai naudodavausi chrome narsykle ir kai budavo ji ijungta, kompiliatorius visad strigdavo su ijungtu cmd. Isjundavau chrome ir sukompiliuodavo.

Minti pagavau, turetu veikti, bet bandau compiliuoti ir juodas cmd langas issoka ir sustoja, nesukompiliuoja. Kame cia problema gali but?

Ne, ne. Ta as suprantu kaip padaryt. Tarkim masyve: 1 4 1 4 2 4. Ilgiausias marsrutas - 4, t.y. kuris pasikartoja daugiausiai kartu. Kaip man tai padaryt?

Prikabinu pilną užduotį.

Dyomenys: 5 a 5 1 2 5 4 6 b 3 12 5 4 c 6 12 1 6 8 7 3 d 1 12 e 3 8 14 4 Kodas: begin Readln(d, n); if (n => 1) and (n <= 100) then begin for i:=1 to n do begin Read(d, m[i].pav, m[i].kiekm); for j:=1 to m[i].kiekm do Read(d, m[i].mar[j]); Readln; end; isviso:=0; for i:=1 to n do isviso:=isviso + m[i].kiekm; z:=1; for i:=1 to n do begin for j:=1 to m[i].kiekm do begin mar[z]:=m[i].mar[j] z:=z+1; end; end; for i:=1 to k:=isviso-1 do begin for j:=1+i to l:=isviso do

Moykloj mokina pascal'iu ir tai su juom nesu profas. Jauciu, kad to, ko mokina tikrai neuztenka. Noriu lavinti savo programavimo igudzius ir nezinau ka dar galeciau mokintis? Likti ties pascaliu ar koki pythona pradeti mokintis? Kas butu geriausia tokiam amziui ?