LeonM

Paprastesnis budas (gal):
 

program Miestai_ir_apskritys; type irasas = record miestas : string[20]; apskritis : string[13]; n : longint; end; type Mass = array[1..100] of irasas; var k, kiek : integer; pr, rz: text; A : Mass; B : Mass; //------------------------ procedure skaityk; var i, j, z, l : integer; x: boolean; begin assign(pr,'U2.txt'); reset(pr); readln(pr, k); for i:=1 to k do begin readln(pr, A[i].miestas, A[i].apskritis, A[i].n); end; B[1].apskritis:=A[1].apskritis; for j:=1 to k do begin x:=false; for l:=1 to kiek do begin if B[l].apskritis = A[j].apskritis then begin x:=true; end; end; if x = false then begin kiek:=kiek+1; B[kiek].apskritis:=A[j].apskritis; end; end; for z:=1 to kiek do begin Writeln(B[z].apskritis); end; Writeln(kiek); close(pr); end; //------------------------ begin kiek:=1; skaityk; Readln; end.

program Noname4; Type miestas = record pav : string[20]; aps : string[13]; gyv : longint; end; Type apskritis = record pav : string[20]; gyv, maz : longint; end; Mas = array[1..103] of miestas; Mas2 = array[1..103] of apskritis; var miestai : Mas; apsk : Mas2; n,i,j,apssk:integer; output,input:text; procedure rikiuoti(var apsk:Mas2; sk:integer); var i, j:integer; kelti:apskritis; begin for i := 1 to sk do for j := i to sk do begin if(apsk[i].maz > apsk[j].maz) then begin kelti := apsk[i]; apsk[i] := apsk[j]; apsk[j] := kelti; end else if((apsk[i].maz = apsk[j].maz) AND (apsk[i].pav > apsk[j].pav)) then begin kelti := apsk[i]; apsk[i] := apsk[j]; apsk[j] := kelti; end; end; end; procedure iapskritis(miest:Mas; n:integer; var aps : Mas2; var sk : integer); var i, j: integer; begin sk := 1; aps[1].pav := miest[1].aps; aps[1].gyv := miest[1].gyv; aps[1].maz := miest[1].gyv; for i := 2 to n do begin for j := 1 to sk do begin if (miest[i].aps = aps[j].pav) then begin aps[j].pav := miest[i].aps; aps[j].gyv := aps[j].gyv + miest[i].gyv; if (aps[j].maz > miest[i].gyv) then aps[j].maz := miest[i].gyv; miest[i].pav := ''; end; end; if (miest[i].pav <> '') then begin sk := sk + 1; aps[sk].pav := miest[i].aps; aps[sk].gyv := aps[sk].gyv + miest[i].gyv; if (aps[sk].maz > miest[i].gyv) then writeln(miest[i].gyv); aps[sk].maz := miest[i].gyv; miest[i].pav := ''; end; end; end; begin assign(input, 'U2.txt'); reset(input); readln(input, n); for i := 1 to n do readln(input, miestai[i].pav, miestai[i].aps, miestai[i].gyv); iapskritis(miestai, n, apsk, apssk); rikiuoti(apsk, apssk); for i := 1 to apssk do writeln(apsk[i].pav, apsk[i].maz,' ', apsk[i].gyv); readln; close(input); end.

Nuorodos->Turinys->Įterpti turinį

Sveiki,
 
norėjau pasiklausti, jai rašant IT VBE duotus duomenis (kai būna parašyta, kad jie užima tam tikra skaičių simbolių) juos nuskaityčiau į string tipo kintamąjį ar tai man numuštu balų ? Ar nėra svarbų, kokiu būdu gaunami duomenis, svarbu, kad atsakimas gaunasi teisingai
 
Pvz:
 
jai duomenys duoti taip(2013m. VBE užduotis):
 

3 Vilnius Vilniaus 541278 Dusetos Utenos 4211 Alytus Alytaus 69859
 
ir pasakyta, kad apskrities pavadinimas užima 13 pozicijų. Vietoj naudojamo fd.get(eilute,13) naudociau fd>>apskritis ? (čia eilute tai char[13], o apskritis tai string)
 
Taip pat, bandomojo egzamino metu (2014 m.) buvo duota kodo užbaigimo užduotis (su skaičiaus išskaidimu). Ir naudojamos išorinės bibliotekos (<iomanip>) iš kurios naudojama rand() funkcija. Dėl papildomų bibliotekų nebuvimo, gavau nemažai kompiliatoriaus klaidų, ir (nors ir pabaigiau užduoti be kompiliavimo) negalėjau pasitikrinti ar ji tikrai teisingai padaryta.
Ar tokių atvėjų laikant IT VBE ir gaunant sumažinta balą galėčiau apeliuoti, ar tai vistiek liktu mano kaltė ?
 
Taip pat darbiečiams negaila :) IT VBE teorinės dalies konspektai (na, bent dalis jų)
konspektu skaidres IT VBE.rar