lukas653

Kažkaip, atrodo, kad dėl tų 1..100 neturėtų būti klaidų, bet reiks pabandyti ;) Ačiū už pagalbą :)

Kur geriausiai būtų galima išmokti pascal ? Turiu šiokius tokius pagrindus, bet norėčiau juos pagilinti prieš egzaminą :)

Parašiau kažką panašaus, bet gaunu klaidą peržengti rėžiai Nr. 201 <_<

program Bevarde0;
var n:integer;
V:array[1..100] of string[10];
S:array[1..100] of integer;

procedure skaitymas ();
var Df:text;
i:integer;

begin
Assign(Df,'Duom.txt'); Reset(Df);
Readln(Df,n);
for i:=1 to n do
readln(Df,V[i],S[i]);
Close(Df);
end;

procedure rikiavimas();
var i:integer;
pradv:string[10];
prads:integer;
begin
   pradv := V[1];
   prads := S[1];
       for i:=1 to 5 do
       begin
           if V[i] > V[i+1] then
           begin
           pradv := V[i];
           V[i] := V[i+1];
           V[i+1] := pradv;
           prads:= S[i];
           S[i] := S[i+1];
           S[i+1] := prads;
           end;

       end;

end;

procedure rasymas();
var Rf:text;
i:integer;
begin
Assign(Rf, 'Rez.txt');Rewrite(Rf);
for i:=1 to n do
Writeln(Rf, V[i],' ',S[i]);
Close(Rf);

end;


begin
skaitymas;
rikiavimas;
rasymas;
 WriteLn('Labas');
 Readln;
end.

Duomenų failas:

5
Petras		150
Juozas		560
Kartis		900
Juozas		8799	
Grazvidas	59000

Yra ,tarkim, tekstinis failas :

Petras 300

Algirdas 400

Juozas 500

Algis 230

Jį reiktų surušiuoti pagal nuo didžiausio iki mažiausio skaičiaus ir dar nežinau kaip reiktų surikiuoti abecėlės tvarka

Sveiki,

laikau IT egzaminą pascal programavimo kalba, bet niekur nerandu, kaip būtų galima rūšiuoti informacijos sąrašus su įvairias kriterijais. Gal kas nors galėtumėte padėti ?

Gal kas nors žino ar šis portalas mokės ar jau visam laikui tapo nebemokus ? :)

Pirmiausiai gražiai tekstą parašyk, o tada referalų lauk.

Turbut tuo metu neveike.is 8 zmoniu uzsiregistravusiu per mane tik dvieju web'ai nepatavirtinti :)

Tokiu atvėju. Jiems laišką rašyt ?

Nera tokiu reikalavimu

Apie mano tinklalapį parašė kad neveikia/tuščias. Nors jis toks nėra

Koks turi būti min trafikas kad į jį priimtų ?

Keista užsiregistravau, patvirtinau, pridėjau tinklalapį ir dabar žiūrių nebeišeina prisijungt ? Kas per nesamonė ?

Pabandžiau, laukiu kol patvirtins :)

Kaip manot gal vėl prasidės video platinimo era kaip VideoBB ? :D

Ačiū, pavyko :D

text-decoration:none;

Įdėjau prie body css, bet vistiek nieko :(

Sveiki, kaip pašalinti _ tarpus tarp paveikslėlių ? Jokių tarpų nedėjau pats

http://www.justl.eu/music/

O kaip koduoja slaptažodį wordpress 3.4.2 ? :)

Sveiki,

Turiu klausimą ar reikės man turėti klevo ženklą, jei turėsiu 2 metų AM stažą ? :)

Šis domenas būtų naudojamas lietuviams, anglams ir kitiems, tad jie gali būti ir visiškai angliški :)

Taip pat galima naudoti ir angliškus žodžius, bet kad turėtų prasmę :)

Sveiki,

Noriu tokio domeno, kuris tiktų asmeniniui tinkalapiui. Turėjau hypercoderz.our.lt, bet jis paseno ir nelabai tinka to ko noriu dabar. Domenus turi būti gerai įsimenamas ir paprastas, ji galite tikrinti per iv.lt. Tinka .lt, .eu galūnės

Atlygis 15 LT.

Lukas

Padaryk, kad rodytų visas lietuviškas raides ir ištaisyk gramatines klaidas(pvz. ne ygula, o įgula). Taip pat būtina keisti dizainą. Sėkmės kuriant žaidimą :)

Lukas

Keistas variantas. Kompiuteris nebuvo praardytas? Neišiminėjot klaviatūros?

Ne nebuvo. Bet prapučiau su plaukų džiovintuvu klaviatūra ventiliatoriaus angas ir palikau per naktį kapsoti ant šono ir vėl veikia. Greičiausiai gavo drėgmės arba dar kas nors.

Sveiki,

Vakar silpnai laptopą prapučiau pro ventiliatoriaus angą(ji yra dešinėje pusėje) su balionu su antgaliu :D, nes tingėjau eiti pirkti suspausto oro. Ir dabar neveikia keli mygtukai . Kas galėjo atsitikti? Kaip reiktų pašalinti šiuos trukdžius?

Neveikia: q,w,e,r,u,i,o

http://img840.imageshack.us/img840/3969/98110222.png

Lukas

Ir aš pajamiau :)