Na čia jau nesupratau kiek kas ką apibendrina bet turbūt, kad galima. Čia su tais masyvais masyvuose žaisti daug galima, tik mokyklinio lygio uždaviniuose papraščiausiai nebūna tokių didelių duomenų kiekių.

type

zodis=string[10];

masyvas = array[1..10] of integer;

anketa = record

vardas,pavarde:zodis;

pazymiai:masyvas;

end;

klase = array[1..20] of anketa;

mokykla = array[1..5] of klase;

miestas = array[1..5] of mokykla;

lietuva = array[1..15] of miestas;

Ir taip toliau. Tokiu atveju lietuva[1].miestas[1].mokykla[1].klase.[1].vardas[1] indikuos žmogaus vardą. Tokios variacijos galimos įvairios.

tai kdl ash snd kai bandziau rasyt per egza M[j].M1[i].laikas man rode klaida ties pirmuoju tasku, nors buvo aprasyti tiek masyvai abu tiek irasas. ash net suabejojau ar ash cia neisradineju to kas neegzistuoja ;D

 Na turbūt kažka blogai aprašei tada

Kai pagalvoju dabar ten antrajame uždavinį tereikėjo priskirti grupes į masyvus, surikiuoti juos didėjimo tvarka, pirmus rezultatus priskirti naujam masyvui ir jį perrikiuoti. Ech. O aš mėginau nuskaityme atrinkti geriausius, nieko gero nesigavo

ash  taip ir dariau su tais masyvais ten, bet man nesigavo, nes sita klaida dave, va pvz tokia programa ir neveikia, ta pacia klaida duoda, kur as cia suklydau?

program bandymas;
type
anketa=record
vardas:string[15];
pavard:string[15];
end;
klase=array[1..20] of anketa;
mokykla=array[1..20] of klase;
VAR
m:mokykla;
k:klase;
begin
m[1].k[1].pavard:='bandymas' ;
WriteLn(m[1].k[1].pavard);
Readln;
end.

Na pagal idėja turėtų būt tada m[1].klase[1].pavard, pamėgink

O tam uždaviniui turėtų tikt tas aprašas kur pirma parašiau:

type

grupe = record

vardas : array[1..11] of string;

laikas : array[1..11] of integer;

end;

var

visi : array[1..25] of grupe;

Žodžiu einu miegot, reikia pailsėti. Sėkmės aiškinantis

Kayen rašė:

Kai pagalvoju dabar ten antrajame uždavinį tereikėjo priskirti grupes į masyvus, surikiuoti juos didėjimo tvarka, pirmus rezultatus priskirti naujam masyvui ir jį perrikiuoti. Ech. O aš mėginau nuskaityme atrinkti geriausius, nieko gero nesigavo

 Lygiai taip pat ir aš buvau sugalvojęs, tik kai pradėjau rašyt, sunkumai buvo kaip visus įrašus surašyt į masyvus..

Aj dar pamiršau pasakyt, kad pas mus vienas testus padarė,  o praktine užduoti atsisakė daryt ir išejo ;D Beje kas nors iš čia esančiu padarė visą antra dali?

 neveikia ir sitaip :

program bandymas;
type
anketa=record
vardas:string[15];
pavard:string[15];
end;
klase=array[1..20] of anketa;
mokykla=array[1..20] of klase;
VAR
m:mokykla;
k:klase;
begin
m[1].klase[1].pavard:='bandymas' ;
WriteLn(m[1].klase[1].pavard);
Readln;
end.

Micro rašė:

Kayen rašė:

Kai pagalvoju dabar ten antrajame uždavinį tereikėjo priskirti grupes į masyvus, surikiuoti juos didėjimo tvarka, pirmus rezultatus priskirti naujam masyvui ir jį perrikiuoti. Ech. O aš mėginau nuskaityme atrinkti geriausius, nieko gero nesigavo

 Lygiai taip pat ir aš buvau sugalvojęs, tik kai pradėjau rašyt, sunkumai buvo kaip visus įrašus surašyt į masyvus..

 Aš panašiai padariau pagal jūsų algoritmą, tik nerikiavau pradinių duomenų, o su atskira procedūra reikalingus atrinkau. Dėja, nespėjau galutinio atsakymo surikiuoti didėjimo tvarka.  

Jei kam įdomu, tipus apsirasiau taip:

type

   TRunner = record

                           name: string[MaxStr];

                           min, sec: integer;

                       end;

     TRunners = array[0..MaxN] of TRunner;

     TGroup = record

                           k: integer; // number of runners

                           men: TRunners;

                     end;

     TGroups = array [0..MaxN] of TGroup;

     Jei ką domina galiu parašyti, kaip nuskaityti duomenis ir viską sukišti į tokį masyvą  

 sejkutea, turi būti šitaip: program bandymas;
type
anketa=record
vardas:string[15];
pavard:string[15];
end;
klase=array[1..20] of anketa;
mokykla=array[1..20] of klase;
VAR
m:mokykla;
k:klase;
begin
m[1, 1].pavard:='bandymas' ;
WriteLn(m[1, 1].pavard);
Readln;
end.

Tu apsirašei dvimatį masyvą o ne įrašą, todėl į jį reikia kreiptis var[x, y]  

jei tik sita buciau zinojus pries egzamina.. ;DD

o kaip pirma praktine padaret?

pirma praktine nevykus kazkokia. nepasakyta ar visada imanoma gauti norima suma (pvz vienas turi nelygini skaiciu o kitur tik lyginio nominalo monetos);

kaip ji daret? emet kiek imanoma didziausio nominalo monetu, paskui kiek truksta siek tiek mazesnio ir t.t.? pvz 13 = du po 5, vienas po  2 ir vienas po 1?

tai nevisada veikia. pvz jei reik surinkt 14, yra 12 7 ir 1 vertes monetos, programa ims viena po 12 ir du po 1, viso 3 monetos, nors galima paimt 2 po 7; kodel as tai sakau? nes nujauciu kad visi taip padare (as sugaisau labai daug laiko galvodamas kaip padaryt teisingai, bet nesugalvojau)

į masyvus įrašiau kiek kas turi

PAskui skaičiuoji kiek vienas turi iš vis pinigu (Suma)

Ir dalini Suma div A[10]

Tingiu viską rašyt :]]]

Išties nesitikėjau tokio sudėtingumo iš VBE užduočių, koks buvo pirmoje praktinės dalies užduotyje, tačiau tai mane maloniai nustebino. Taip, ten godus algoritmas neveikia, tačiau su dinaminiu programavimu visai įkandama.

Na aš bandžiau daryti taip, tokiu principu:

for i:=1 to n do

begin

Pakeisti[i] := suma div nominalas[i];

suma:= suma mod nominalas[i];

end;

n - skirtingų monetų skaičius.

pakeisti - kiek kokių monetų turės pakeitus.

suma - visų monetų suma.

nominalas - skirtingos monetos.

 Na sunkios jos tikrai nebuvo, tik pritrūko laiko. Žinoma ir stresas padarė savo, loginis mąstymas atsijungė Galėjo visas egzaminas būti viena dalis, nes testinę dalį tikrai galima greičiau atlikti.

Jeigu kam įdomu, galiu pateikt pirmos užduoties sprendimą su 8 vienmačiais masyvais

 kam ten toi 1 uzduoty reikejo 8 masyvu jaeigu galima isiversti su 4 i 2 susidedi kokie yra nominalai i likusius 2 kokias monetas turi nu ir viskas daugiau masyvu nereikia

 Na realiai taip, tačiau šiuo atveju reikėtų "ant viršaus" rašyti pakeistų monetų vertes. Tad norint išsaugot visus duomenis mano nuomone reikėtų 6 masyvų, po vieną nominalo,turimų monetų ir iškeistų monetų vertėms Kitas atvejis dar galvoju yra galimybė susidaryti taip, jog masyvo elemento numeris indikuotų nominalo vertę, o jo reikšmė - monetų skaičių, tačiau čia gali kilti kėblumų su keitimu. Tarkim G[10] := 8; reikštų, jog studentas turi 8 monetas po 10.