Heroix

Būtų įdomu apimtį tekstų žinot.

Paslaugos: Svetainių kūrimas (PHP, MySQL, HTML, CSS)

Tema forume: http://uzdarbis.lt/t83326/heroix-svetainiu-kurimas/

Warning: Visiting this site may harm your computer!

Man vienam taip? O užėjus antivirusinė kažką randa, kaip automatiškai siunčiamą failą.

failai.lt

talpykla.com

4shared.com

rapidshare.com

gigasize.com

dropbox.com

filefactory.com

ziddu.com

procedure suma (a, b : integer; var c : integer);

var i : integer;

 

Tai čia i būtų lokalus kintamasis ?

Aha. Bet vat ar a su b lokalūs jau nebežinau.

Globalūs kintamieji tai tie kur tik programoj aprasyti, o lokalūs tie kur procedūrose, funkcijose būna naudojami, taip ?

Ne tik naudojami, bet svarbiausia kad aprašyti. Kurių negali pasiimt kitos procedūros, funkcijos, jei jie nepersiunčiami.

O dar nesupranta, kam procedūrom globalius naudojam ;D

Ir išviso, kurių aš globalių būčiau galėjęs išvengt? 4 aprašyti, visi 4 ir reikalingi tolimesnėse procedūrose.

Patarčiau vengti globalių kintamųjų :)

Ai... čia tokia 'sudėtinga' programa, plius pascalis, tai nematau reikalo kitokių kintamųjų naudot. Ir rašyt mažiau ir susigaudyt lengviau.

http://paste.org/pastebin/view/19430

program Gimtadienis;
{Informacinių Technologijų 2010 valstybinio egzamino 2 programavimo užduotis}

const file_in = 'U2.txt';
const file_out = 'U2rez.txt';

type masyvas = array[1..10] of integer;
type patiekloIrasas = record
 pav: string[15];
 kaina:masyvas;
end;
type patiekaluMasyvas = array[1..12] of patiekloIrasas;

var patiekaloKaina:masyvas; patiekalas:patiekaluMasyvas;
N,P:smallint;

procedure skaityti();
var fread:text; i,j:integer;
begin
 assign(fread, file_in); reset(fread);
 read(fread, N); readln(fread, P); //nuskaito kiek N-produktų, P-patiekalų

 for i:=1 to (N-1) do  //nuskaito patiekalų kainas
	 read(fread, patiekaloKaina[i]);
 readln(fread, patiekaloKaina[N]);

 for i:=1 to P do //nuskaito patiekalus ir jų sudėtį
 begin
	  read(fread, patiekalas[i].pav); //pavadinimas

	  for j:=1 to (N-1) do  //produktų kiekis
		  read(fread, patiekalas[i].kaina[j]);
	  readln(fread, patiekalas[i].kaina[N]);

 end;
 close(fread);
end;

{skaičuoja visą patiekalo kainą}
function visaPatiekaloKaina(kiekProduktu:masyvas):integer;
var i:integer;
begin
 visaPatiekaloKaina:=0;
 for i:=1 to N do
	 visaPatiekaloKaina:=visaPatiekaloKaina + (kiekProduktu[i] * patiekaloKaina[i]);
end;

{skaičiuoja svečio kainą}
function svecioKaina(patiekalas:patiekaluMasyvas):integer;
var i:integer;
begin
 svecioKaina:=0;
 for i:=1 to P do
	 svecioKaina:= svecioKaina + visaPatiekaloKaina(patiekalas[i].kaina);
end;

procedure rasyti();
var fwrite:text; i:integer;
begin
 assign(fwrite, file_out); rewrite(fwrite);

 {rašo patiekalą ir jo visą kainą}
 for i:=1 to P do
 begin
	 write(fwrite, patiekalas[i].pav, ' ');
	 writeln(fwrite, visaPatiekaloKaina(patiekalas[i].kaina));
 end;

 write(fwrite, svecioKaina(patiekalas) div 100, ' '); //litai
 write(fwrite, svecioKaina(patiekalas) mod 100); //centai

 close(fwrite);
end;

begin
 skaityti();
 rasyti();
end.

Bet kad tos salygos surasytos ten nezmoniskai. Dalyvavau programavimo olimpiadoj, tai ten 3 uzduotys viename A4 dydzio lape. O čia viena užduotis per visą lapą. :)

Beje gal kas turit kokių užduočių rinkinių, kad pasispręsti kol dar yra laiko iki egzaminų ?

 

Ar išlaikius visus egzaminus po 20-40%, stojant į Kolegija įmanoma įstoti ?

Olimpiadoi trumpos, mažai paaiškintos užduotys, tačiau labai klaidingos ir verčiančios pamastyti. VBE jos ilgai aprašomos, kad nekitlų jokių klausimų ką daryti - belieka parodyti savo žinias. Galvot laiko, gaila, nepaliekama, bet ten ir nėra ką daug galvot - tereik rašyt.

Kaip reikėj oatsakyt į 09 (tą kur su elektroniniu laišku lieutvių kalba. Pažiūrėjau, kad tai B lygio uždavinys, tai gal per giliai glavojau?

Atsakiau: "Formatuoti į UTF-8 koduotę".

Koks paprastas atsakymas? :D

Spėju gimimo metus jie per banko sąskaitą patikrint gali? Ar visgi įmanoma nepilnamečiui apeit sistemą?

Visi vektoriai pačio kurti?

A pilnamečiui, tai pilnamečiui... O kokia leistina norma nepilnamečiui? Kefyrą gert galima?

Kioskuose tokius parduoda po 2 litus.

Siūlau šias paslaugas:

• Svetainių kūrimas naudojant php, sql, css, html technologijas vadovaujantis W3C standartais. Užsakovaui sukuriamas unikalus puslapis su paprastu dizainu ar norimu šablonu ir jam pritaikomas programinis kodas.
   
  
• Svetainių talpinimas. Surandamas tinkamiausias talpinimo planas svetainei, įskaitant duomenų bazes ir kitą būtiną technologiją jos veiktimui. Jei reikia įdiegiama ir sukonfiguruojama Turinio Valdymo Sistema. Taipogi užsakomas reikalingas internetinis adresas su lt, com, org ar kitomis galūnėmis.
   
  
• Dizaino karpymas. Iš pradinio paveiksliuko failo dizainas paruošiamas veikimui jį sukarpant ir sukoduojant pasitelkiant html, css, jQuery technologijas.
  

Kontaktinė informacija:

skype: mantasink

e-mail: mantasink[eta*]gmail.com

Turėjau omeny paimčiau iš to žmogaus 700lt (parduodančio vietoje), o ne domeną :D

wa.lt galėtų būt koksnors WolframAlpha.lt trumpinys. Jeigu Wolframas sugalvos plėstis, išversti paiešką į kitas kalbas tai logiška būtų sutrumpinti iki wa.com, wa.lt ir t.t. Tačiau manau iki to laukt tikrai labai labai ilgai ir tai neaišku ar taip įvyks. Taigi 700lt tikrai paimčiau.