Rhymond

Jo nepatiko sabloniškas opencart dizainas... Norėtusi kažko unikalaus. O ką čia daugiau ir bepridursi niekuo neišsiskiriantis eshopas tik, kad pardavinėja staltieses, ko dar nemačiau unikalu iš tiesų.

Sveiki,

 

atsinaujinus IE, man jau jis patinka, randu visas reikiamas funkcijas..

o kadangi nuo FF perėjau ant Hroniaus, bet man ir šis spyriotis pradeda, noriu pereit pilnai ant IE.

 

Taigi ar įmanoma į jį importuoti adresus, atsimintus duomenis? kaip?

ar yra kokių addonų psl tinkančių IE?

 

beje, o gal yra priežastis, kodėl chrome kimbinėja.. ar vertėtų pereit į IE išvis?

Prasivalyk cookies, history visą gal chrome nebetaip kibinės, nes net neįsivaizduoju kaip gali tau daugiau kibinėt chrome ir tu iš jos į IE pereit nori.. Man tai nesuvokiama :) chrome da best aišku čia mano nuomonė.

aš manau jis užpatentavęs kaip pavadinimą, juk beleko užpatentuot negalima jis sukūrę prekę ar kažką kaip supratau ir su tam daiktui užpatentavo pavadinimą kurį naudoti tikrai draudžiama, nes tai kaip ir prekinis ženklas gaunas.

Bet logikos ir man 0 :D

aš už ;)

Kaip ir minėjo daryk tik su record tipu :) esu daręs kažkada šitą jei rasiu imesiu

Sveikas atvykęs :) sėkmės

maxėj mačiau :)

Muzika, stipri muzika :) dar bėgiojimas aišku sportas krepšinis kartais

sveiki. reikalinga jūsų pagalba. turiu pasirašęs dalinai programą, bet ji man ne taip kaip reikia veikia. programa:

program Bevardė13;

type mas= array [1..100] of string;

ma= array [1..100] of integer;

var n,i:integer;

fd:text;

v,m:mas;

d:ma;

procedure duomenys(var n:integer);

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

for i:=1 to n do

begin

Readln(fd,v);

Writeln(v);

end;

end;

begin

assign(fd, 'Duomenys.txt');

Reset(fd);

Read(fd,n);

close(fd);

duomenys(n);

end.

 

failo duomenys.txt turinys

10

Jonas Gruodis 10

Agnė Lapkritis 6

Juozas Gegužė 3

Laimis Liepa 28

Audrius Spalis 12

Julius Spalis 12

Silvija Sausis 30

Roberta Birželis 13

Rasa Lapkritis 16

Antanas Kovas 2

 

man gaunasi kad v:=Jonas Gruodis 10 nuskaičius, o man reik v:=jonas m:=gruodis d:=10 nuskaičius kad būtų.

kaip reikėtų išskaidyti?

Šiaip geriausia yra skirt tarpus

tiesiog vardui priskiriami kaip pvz 10 vietų ir tada gali apsirašyt

var vardas : string[10];

arba kitas tiesiog paimk tą kintamajį v ir su for ciklu leisk

for i := 1 to lenght(v) do

if v = ' ' then

for x := i+1 to lenght(v) do

m := m + v[x];

na kazkas tokio :)

Gal kas gali padeti padaryti programa? :)

Salyga:

Mokyklos biblioteka užsako vadovėlius. Duomenys surašyti tekstiniame faile uzsak.txt tokia tvarka:

5 // komplektų skaičius

20 36.99 //20 vadovėlių op 36Lt 99ct

25 25.39

60 45.99

45 36.69

25 31.99

Reikia apskaičiuoti, kiek kainuos kiekvienas komplektas ir visas užsakymas. Rezultatus programa turi surašyti tekstiniame faile uzsakviso.txt. Rezultatų pavyzdys:

20 36.99 739.80 Lt

25 25.39 634.75 Lt

60 45.99 2759.40 Lt

45 36.69 1651.05 Lt

25 31.99 799.75 Lt

---------------------

Iš viso: 6584.75 Lt

:(

program Biblioteka;

Const   Cduom = 'uzsak.txt';
       Crez  = 'uzsakviso.txt';


Type    Knygos = Record
                 Kiekis : integer;
                 Kaina  : real;
                 isviso : real;
                End;

       Mas   = Array[1..100] of knygos;


Var     B, F : text;
       n    : integer;
       A    : Mas;
{--------------------------Funkcijos ir procedûros-----------------------------}
Function suma : real;
Var i   : integer;
   sum : real;
Begin
For i := 1 to n do
   sum := sum + A[i].isviso;
suma := sum;
End;



Procedure Rasyti;
Var i : integer;
Begin
Assign(F, Crez); ReWrite(F);
   For i := 1 to n do
       WriteLn(F, A[i].kiekis,' ',A[i].kaina:0:2,' ',A[i].isviso:0:2,' LT');
       WriteLn(F,'Is viso: ',suma:0:2,' LT');
Close(F);
End;


Procedure Skaiciuoti;
Var i : integer;
Begin
For i := 1 to n do
   A[i].isviso := A[i].kiekis * A[i].kaina;
End;

Procedure Duomenys;
Var i : integer;
Begin
Assign(B, Cduom); Reset(B);
ReadLn(B, n);
   For i := 1 to n do ReadLn(B, A[i].kiekis, A[i].kaina);
Close(B);
End;

{----------------------------Pagrindinë programa-------------------------------}

begin
 Duomenys;
 Skaiciuoti;
 Rasyti;
end.

Sveiki visi,

 

nusprendžiau ir aš mokytis programavimo paslapčių, todėl užsirašiau į JPM. Gal kas iš labiau patyrusių gali man naujokui paaiškinti kaip išspręsti šitą pratimą?

 

7. Ar yra neteisingų priskyrimo sakinių? Jei taip, nurodykite kurie, ir trumpai paaiškinkite kodėl.

a) n := n + 1; e) n := n mod 2;

b) n + 1 := 5; f) x := x;

c) x := x := 2; g) x := (7 mod 5);

d) 12 := n + 1; h) x/n := 1 -3;

 

 

beje, skaitau Grigo "programavimas paskaliu", bet taip ir neaišku man iki galo :|

B, C, D, H

Sveikas atvykęs :) tikrai nuoširdus prisistatymas, šaunuolis. Geros kloties

250

Manau gera įdėja artėjant vasaros sezonui :) Sėkmės vystant, beje tinklapio dizainas toks simple, patiko užvedus pele ant prekės, backgroundas pasidaro baltas ir atkreipiamas dėmesys į pačią prekę. Viskas išdėliota patogiai paprastai lengvai, vartotojui lengva rasti ir pirkti prekę, o ko daugiau reikia. Šaunuolis, dar kartą sėkmės

Sveikas atvykęs ;)

Sėkmės

Viskas normaliai, neskaitant to, JOG PRISNIGO ~5-8CM SNIEGO !!! KUR PAVASARIS !!!

Foto darytos prieš 1min:

Labai patiko žaidimas SUPER !!

Sveika atvykus:)

Sėkmės

Pirmas variantas, laukių komentarų ;) visos iconos nemokamos, o paveiksliukai is sxc.hu

O as ko toliau to labiau nelaukiu sito egzamino ir atrodo ko toliau, to blogiau :) Tiesa sakant, net neisivaizduoju kaip savarankiskai pasiruosti tinkamai namuose jam...

Reik noro turėt :) viskas įmanoma.

D4kui, pravers. Kadangi ir pats laikysiu.

Džiaugiuosi, jog esu naudingas :) prašom svarbu, kad "mačitų"

Ačiū, kaiptik šiais metais ruošiuosi perlaikyti informatikos egzaminą, norisi geresionio balo... :)

Visada prašom

program Kioskas;

Const   Cduom = 'kioskas.txt';
       Crez  = 'Rez.txt';
       Cmax  = 100;


Type    Prekes = Record
                 pavadinimas : string[20];
                 kiekis,
                 kaina,
                 sum         : real;
                End;

       Mas    = Array[1..Cmax] of Prekes;


Var     B, F : text;
       n    : integer;
       A    : Mas;
{--------------------------Funkcijos ir procedûros----------------------------}
Function Suma : real;
var i : integer;
Begin
   For i := 1 to n do Suma := Suma + A[i].sum;
End;

Procedure Skaiciuoti;
Var i, vieta   : integer;
   max        : real;
Begin
max   := A[1].sum;
vieta := 1;
   For i := 2 to n do
   If A[i].sum > max then
   begin
       max := A[i].sum;
       vieta := i;
   end;
Assign(F, Crez); ReWrite(F);
   WriteLn(F, A[vieta].pavadinimas,' ',A[vieta].kiekis:0:2,' ',A[vieta].kaina:0:2,' ',A[vieta].sum:0:2);
   WriteLn(F, Suma:0:2);
Close(F);
End;


Procedure Duomenys;
Var i : integer;
Begin
Assign(B, Cduom); Reset(B);
ReadLn(B, n);
   For i := 1 to n do
   Begin
       ReadLn(B, A[i].pavadinimas, A[i].kiekis, A[i].kaina);
       A[i].sum := A[i].kiekis * A[i].kaina;
   End;
Close(B);
End;


{----------------------------Pagrindinë programa------------------------------}

begin
 Duomenys;
 Skaiciuoti;
end.

klausau muzikos no problem :) Nelabai tikėtina, jog nulaušta