RealEfect

As ta i pakeiciau kintamuoju j, bet vistiek meta klaida ranges overrun, ka tai galetu reiksti? :)

Tai pagal toki principa, kaip isivaizduoju, turi buti spausdinamos paskutinio zmogaus reiksmes, tai grybu skaciai, nes visi masyvo elementai pasikeicia iki paskutinio zmogaus?Ar ne taip? :)

Labai dekui, kad tu padedi :) Ziurek, bet as buvau padares kaip tu sakei, sumavima iskart nuskaityme, tai viskas ok buvo, nes reiksmes buvo gautos tokios,kokiu ir reikia, tai kuo skiriasi sumavimas is karto ir sumavimas kitoj proceduroje, bet be tu dvigubu masyvu?:) Kitas klausimas, pabandziau nuskaityti reiksmes ir jas ideti i rez faila su savo kodu ankstesniu kaip tu man pasakei, ir visaiska nesamone gavos, nes siaip turetu reiksmes spausdint tai ne belekokias, o imt kiekvieno zmogaus reiksmes ir isspausdint?? tai va koks rez failas: 6 65 4 6 65 4 6 65 4 4 4 13 16 15 251 16 15 251 16 15 251

Na nezinau, tu turbut kad sita vieta puikiai supranti, o as ne.As ukiskai paaiskinsiu kaip suprantu ja.Konkreciai sita vieta, skaityk komentarus ir suprasi kaip as mastau: procedure Is_viso; begin for i:=1 to n do begin vardukas1[i]:=A[i].vard; for j:=1 to A[i].d do //vykdomas pirmas ciklas begin bar[i]:=bar[i]+A[j].gryb; //paimama pirma pirmo grybo reiksme pirma diena.Ji pridedama prie masyvo elemento,kuris pradziuj bus pirmas, ir kai per kitus j ciklus vel prideda reiksmes, jis vis dideja ir dideja, kol buna suskaiciuota visu grybu suma.Kai vykdomas 2 c

Bet gi tas j ciklas, tai priklausomai nuo dienu skaiciaus,priskiria j indeksa masyvo elementui, o paskiau prideda prie kintamojo bar ir tas j indeksas kai baigiasi, visi grybai turi buti sudeti,juk logiska, ar ne?:)

Bet ten praso atskira procedura sukurt grybu sumavimui :) Beto kodel bus tik paskutinis gali detaliau paaiskint?:) Taigi indeksai, tai skiriasi, neturetu buti paskutinis

Supratau :) Na ziurint i ankstesniu metu egzus, tai mane siurpas krecia, dar nei vienos egzaminines uzduoties kol kas nesugebejau padaryt, kad butu viskas ko reikia rez faile ir teisingai :(

Jau sutvarkiau pasirodo stringui per daug vietos daviau, bet dabar yra kita problemele, siek tiek paeditinau koda, taigi ji imesiu vel i cia.Problema tokia, kad rez faile vel neratokiu skaiciu,kokie turetu buti, ziurekit i procedura Is_viso, ji turi suskaiciuoti kiek zmogus surinko grybu per tam tikra dienu skaiciu.Duomenu failas: 4 Petras 3 15 13 8 4 0 5 16 1 0 Algis 1 9 6 13 Jurgis 4 4 14 2 4 4 15 16 15 251 1 2 3 Rita 2 6 65 4 4 4 13 Rez failas: 26 9 16 16 1 0 30 13 29 25 7 13 program Grybas; type gryb=record vard:string[7]; gryb,gryb1,gryb2,d:integer; end; type mas

Sveikuciai dar karta. taigi meta klaida bad numeric format, ka daryt? :) program Grybas; type gryb=record vard:string[15]; gryb,gryb1,gryb2,d:integer; end; type mas=array[1..100] of gryb; type mas1=array[1..100] of integer; var i,n,j,didz:integer; Df,Rf:text; A:mas; bar,raud,lep,sum:mas1; vardukas:string[15]; procedure Duomenys; begin Assign(Df,'U2.txt'); Reset(Df); Readln(Df,n); for i:=1 to n do begin Readln(Df,A[i].vard,A[i].d); for j:=1 to A[i].d do Readln(Df,A[i].gryb,A[i].gryb1,A[i].gryb2); end; Close(Df); end; procedure Is_viso; begin

Labai dekoju, jau pavarges, tai ne nepastebiu klaidu :) Ziurekit, man rez faile, teisinga raso dienos numeri, kada buvo surinktas rekordinis skaicius grybu, bet paciu grybu skaiciu, surinktu ta diena raso neteisingai, tai yra turetu rasyti 502, bet raso 492...?

Vistiek meta file not found, pizdc-neislaikysiu as to egzo :( Gali pasakyti kaip tavo kode isrikiuoja duomenis didejimo tvarka???

Ziurekit, dabar padariau taip kaip saket, bet nesamoniu nesamone kazkokia, meta lentele, kad file not found, ar kazkas panasiai.Kodas: program Grybautojai; type mas=array[1..100] of integer; var Df,Rf:text; bar,raud,lep,suma:mas; n,i,d,max,k:integer; procedure Duomenys; begin Assign(Df,'U1.txt)'); Reset(Df); Readln(Df,n); for i:=1 to n do Readln(Df,d,bar[i],raud[i],lep[i]); bar[d]:=bar[d]+bar[i]; raud[d]:=raud[d]+raud[i]; lep[d]:=lep[d]+lep[i]; suma[d]:=suma[d]+bar[d]+raud[d]+lep[d]; Close(Df); end; function daugiausia:integer; begin max:=0; k:=1; fo

Raimi, tau klausimas, bet kaip tu be to buble sort isrikiuoji juos didejimo tvarka, niekaip nesuprantu :D

Bet pasiziurejau dabar,tai pacioje uzduoties salygoje parasyta, kad tik vienmacius masyvus naudot galima, bet record negalima, jeigu teisingai supratau :) Beje klausimas, kaip tu ten kur cikla naudoji duomenu proceduroje, tai kaip tas i isistato vietoj indekso die, jeigu jie ne tokie patys?

Bet as nuskaitau kiekviena eilute, o tada proceduroje grybai, sudedineju visus grybus, jeigu if salygoj randama, kad dienos sutampa..Ir tuomet jeigu jau bunu ta diena patikrines, jos jau nebetikrina.O is to n atimu 1,nes nes noriu isimti tas pasikartojancias dienas, bet vistiek tas pats :(

Aciu,kad tu taip stengeisiir parasei programa, bet man rytoj informatikos egzaminas ir butu geriau, jeigu paziuretum i mano koda ir pasakytum kas ten yra ne taip, tada as suprasciau ka ne taip padariau :)

Vel bandau issprest egzaminine uzduoti ir kazko nesigauna.Uzduotis tokia:"Petras liepos mėnesį kiekvieną kartą grįžęs iš miško užrašo, kiek rado baravykų, raudonikių ir lepšių. Retkarčiais Petras eina į mišką tą pačią dieną kelis kartus. Parašykite programą, kuri: 1) skaičiuotų kiekvieną grybavimo dieną surinktų grybų skaičių pagal rūšis (baravykai, raudonikiai, lepšės); 2) nustatytų dieną, kurią rasta daugiausia grybų ir kiek jų tą dieną rasta. Pradiniai duomenys surašyti į tekstinį failą U1.txt. Pirmoje eilutėje įrašytas grybavimo kartų skaičius n (1 ≤ n ≤ 100). Tolesnėse eilutėse

3 4 Katinas Batuotas 4 25 Katinas Ratuotas 3 59 Katinas Rainas 4 15 Katinas Jaunas 6 20 2 Katinas Rudas 6 25 Katinas Juodas 3 55 5 Katinas Baltas 3 58 Katinas Gauruotas 4 2 Katinas Plikas 4 5 Katinas Ilgas 4 4 Katinas Trumpas 4 6 Duomenu failo turinys cia :)

Taigi, bandau isspresti sia egzaminine uzduoti, anksciau jau siameforume prasiau pagalbos delsios uzduoties, bet tuomet padariau nepilna josdali, o dabar noriu padaryti pilna.Yra kelios begiku katinu grupes, reikia is tu grupiu atrinkti puse grupes-greiciausiu katinu, jeigu nelyginis skaicius grupes nariu,tai prideti prie ju nariu skaiciaus 1 ir padalinti is 2.Na zodziu atlikau viska ka reikia, bet meta klaida ranges overrun,gal kas galit pagelbeti :) Komentarai surasyti sone, koks kodas uz ka atsakingas :) Taip pat sukuriau masyva masyve, kitaip sakant record tipas yra kaip masyvas ir jame es

Viskas dabar man veikia, tik dabar jau kiek kita uzduoti darau :) Viskas tas pats kas cia buvo,tik kaip jau minejau anksciau atsiranda dar kelios grupes tu katinu ir velgi reikia is ju paimti puse greiciausiu :) virsuje atsiranda kintamasis k,kuris reiskia grupiu skaiciu.Ziurek, as dabar toje proceduroje, kur duomenis paskirsto didejimo tvarkoje, pridejau "for i:=1 to k do" ir tuomet ten kur yra n-katinu skaicius grupeje, ji jau sukuriau kaip masyva, nes kadangi kelios grupes, tai ir keli n, o ne vienas, todel dabar n bus n :) Kodai tokie: procedure atrinkimas; begin for i:=1 to k do b

Supratau ta klaida jau-ziopla klaida :) Ziurek, dabar tik man isaiskink, kodel pas mane taip yra, kad mazejimo tvarka, o ne didejimo skaiciai isspausdinami? :) Kodas tai toks: procedure atrinkimas; begin for g:=1 to n do begin for j:=1 to n-g do begin if (A[j].min < A[j+1].min) or (A[j].min = A[j+1].min) and (A[j].sek < A[j+1].sek ) then begin C:=A[j+1].min; A[j+1].min:=A[j].min; A[j].min:=C; W:=A[j+1].sek; A[j+1].sek:=A[j].sek; A[j].sek:=W; end

Galetum buti mokytoju :D Viskas aisku dabar, padariau, kaip tu parodei, pats parasiau, kad butu siokia tokia nauda, bet dabar bandau dar padaryti kitaip, nes cia egzaminine uzduotis, tai yra dar 2 katinu grupes ir reikia padaryt taip, kad is kiekvienos butu atrinkta, taip kaip cia buvo greiciausi katinai, tai kaip isivaizduoju, cia prireiks dar vieno ciklo :)

Kaip ir viska supratau, tik yra keletas neaiskumu.Toje vietoje, kur tu parasei n-g, tai kaip ja suprasti, paaiskinimas yra, bet man nedaeina :)

Koks tu greitas, wow! :) Aciu, gal kartais uzsiimi programavimu? ;) Ziurek, o kuo mano variantas blogas, as viska kaip ir atlieku vienoje proceduroje, beto del ko, kai tu apkeitineji, tu a ir b neapkeiti?:)

Sveikuciai :) Taigi iskart eisiu prie reikalo, esme tokia, kad yra grupe katinu, kurie nubego distancija per tam tikra laika kiekvienas ir man juos reikia isrikiuoti didejimo tvarka, o veliau isspausdinti i rezultatu faila. Taigi tas n, tai grupeje esanciu katinu skaicius, as ji dalinu per puse ir imu sveikaja dali, nes salygoje pasakyta, kad reikia isrinkti puse greiciausiu katinu is grupes.Rezultatu faile yra, kaip ir turi buti 2 atsakymai, nes visa grupe-4 katinai, taigi puse bus 2, bet tie atsakymai yra 0 ir 0, todel ir nesamone, nes turetu buti 3min 59sek ir 4min 15sek...Prasau padekite :