white2626

ech :D

14,80:(

Tikrai manot, kad bus daug?

nuosirdziai patariu nestot vgtu jei tik turit tokia galimybe. UZSI***IT

Gali gal pagrįsti savo nuomonę?:)

Sveiki, tai yra planuojančių tapti bandomaisiais triušiais? :D

yra stojančiųjų?

nezinau, per daug giliai nesidomejau, o kuo skiriasi verslo informatika nuo informaciniu sitemu?

Aš šitą irgi bandau išsiaiškinti :D

Kodėl būtent šitą žadi rinktis? :) Aš tai mąstau tarp šitos ir Verslo informatikos

Taigi nuo šių - 2011 metų atsirado nauja specialybė Verslo informacinės sistemos(VIS), norėčiau sužinoti ar yra planuojančių čia stoti?

Aš irgi žadu stoti į šią arba VGTU Verslo informacinės sistemos, kaip manot apsimoka į mru VI stot?

Tada man jau zuopa... nes aš viską su įrašais dariau :D

Aha, galėjai savo duomenų failą susikurt :) tai taškų tikrai nepridės, nors, jei ir pridėtų tai nieko nekeistų, nes pridėtų visiems. Kaip su tas pirštines suskaičiavai? Aš nesuprantu bandžiau su if funkcijoj bet neišėjo. Aj kur bandysi stot?

Padarei abi praktines užduotis? Ar pastebėjai, kad antros užduotis pavizdiniai duomenys buvo klaidingi?

Deje, nepavyko pilnai padaryti nei vienos. Smagiausia tai buvo, kai pusė mokinių po 5min išėjo ir nebesprendė praktinės užduoties. Klaidą pastebėjau ir pataisiau, dar davė +15min

Smagu, paskaičiau postą tik po egzo, daug taškų atims?

O kaip man pataisyti saviškę programą? Bandžiau įdėti readln(df)------------- kad nuskaitytu sekančia eilutę, bet nepadeda, ryt egzas, gal gali paaiškinti, kas yra globalūs kintamieji cikle ir kaip man sutvarkyti, kad skaičiuotų nors ir su tais globaliais?

Maniškės jaučiu pataisyti neina? Nes aš viską sudėjau į vieną.

Todėl, kad tu į masyvą įsirašai tik pirmo užsakymo reikšmes, ir duomenų failas pas tave kitoks spėju :), ta prasme string[15], reiškia, kad nusiskaitomas pirmos 15 simbolių (įskaitant tarpus).

O ciklas automatiškai nepaima sekančios eilutės?mano duomenų failas

5

užsakymas 1 (15char)30 15 20

užsakymas 2 (15char)10 10 10

užsakymas 3 (15char)50 20 30

užsakymas 4 (15char)15 15 20

užsakymas 5 (15char)40 15 15

Va parašiau šiek tiek labiau struktūrizuotą :)

Program programa;
const
   duom = 'DuomenuFailoPavadinimas.txt';
   rez  = 'RezultatuFailoPavadinimas.txt';
type
   irasas = record
       pav:string[15];
       x, y, z:longint;
       end;
   mas = array[1..100] of irasas;
var
   Uzsakymai:mas;
   Kiekis:integer;

Procedure Nusiskaitymas();
var D:text;
   i:integer;
begin
assign(D, duom); reset(D);
Readln(D, Kiekis);
for i:=1 to Kiekis do
   begin
   Readln(D, Uzsakymai[i].pav, Uzsakymai[i].x, Uzsakymai[i].y, Uzsakymai[i].z);
   end;
close(D);
end;

procedure NumerisDidziausiosSumos(var m, n:integer);
var i:integer;
   max, nr:longint;
begin
max := Uzsakymai[1].x + Uzsakymai[1].y + Uzsakymai[1].z;
for i:=2 to Kiekis do
   begin
   if Uzsakymai[i].x + Uzsakymai[i].y + Uzsakymai[i].z > max then
       begin
       nr := i;
       max := Uzsakymai[i].x + Uzsakymai[i].y + Uzsakymai[i].z;
       end;
   end;
m := max;
n := nr;
end;

Procedure Irasymas();
var R:text;
   max_suma, nr:integer;
begin
assign(R, rez); rewrite(R);
NumerisDidziausiosSumos(max_suma, nr);
writeln(R, max_suma);
writeln(R, nr);
close(R);
end;


Begin
Nusiskaitymas;

Irasymas;
End.

DuomenuFailoPavadinimas.txt
5
užsakymas     1 30 15 20
užsakymas     2 10 10 10
užsakymas     3 50 20 30
užsakymas     4 15 15 20
užsakymas     5 40 15 15 

O tai aš nesuprantu pas mane gi beveik tas pats, kodėl man klaidą meta? o tau ne?

:o Kodėl tu viskam naudoji globalius kintamuosius? :o Juk už Globalius ciklo kintamuosius egzamine atima taškų... :/ Ir be to duomenų failo neįdėjai :D sunkoka patrikrint kodėl neveikia be duomenų failo :) Ir šiaip tu į masyvą įrašai tik pirmus elementus :D

O tai kaip tada tų globalių ciklo kintamųjų nenaudoti? arba pakeisti?

Duomenų failas

5

užsakymas 1 30 15 20

užsakymas 2 10 10 10

užsakymas 3 50 20 30

užsakymas 4 15 15 20

užsakymas 5 40 15 15

Galit pasakyti kodėl meta klaidą peržengti rėžiai?

program baldai;

type

uzsakymai=record

uzs:string[15];

a,b,c:longint;

end;

mas=array [1..100] of uzsakymai;

var m:mas;

n,sum,max,nr, i:longint;

df,rf :text;

procedure suma(n:longint;M:mas;

var max:longint; var nr:longint);

begin

readln(df, M.uzs, M.a, M.b, M.c);

sum:=0;

sum:=M[1].a+M[1].b+M[1].c;

sum:=max;

nr:=1;

for i:= 2 to n do

if max<M.a+M.b+M.c then begin

max:=M.a+M.b+M.c ;

nr:=i

end;

end;

begin

Assign (df, 'bald.txt');

reset(df);

readln(df, n);

suma(n,M,max,nr);

close(df);

assign(rf, 'baldrez.txt');

rewrite(rf);

writeln(rf, max);

writeln(rf, nr);

close(rf);

end.

Norėčiau prikelti temą ir pasidalinti linkais wholesale sit'ų, dedam čia visus, kas kiek žino

nuo 20g iki 50g:

 

Nepirmenybinės į Europos sąjungą: 2,45lt, į kitas valstybes: 2,6lt

Pirmenybinės į Europos sąjungą: 2,95lt į kitas valstybes 3,35Lt

 

nuo 50 iki 100g:

 

Nepirmenybinės į Europos sąjungą: 2,80lt, į kitas valstybes: 2,90lt

Pirmenybinės į Europos sąjungą: 3,20lt į kitas valstybes 4,40Lt

 

Siuntos registravimas +7lt už siuntą.

 

Nebekils klausimų gal jau kai ant lėkštutės viskas padėta? :)

Jo ačiū, tikrai padėjai, čia kaip suprantu siunčiant per "pašto korespondencijos siuntas" tokios kainos :)?

Tai ir yra mano mažas raktų pakabukas max 50g sveria kokia, aš galvoju koks ekonomiškiausias būdas siųsti į užsienį, tai dėl to ir klausiu, gal kas žino, gal kas pastoviai siunčia

O ir į užsienį apsimoka siųsti per pašto korespondencijos siuntas?

O su aukcionais ko nors neturite?

Taip pat norėjau paprašyti jūsų nuomonės apie juos, pvz tuktuk.lt ar apsimoka ten dėti savo prekes?