Stiu, dar nu am nici eu timp, poate dupa ONI. Am mai raportat si inainte niste chesti, parca ceva legat de Gnome ppp, tocmai cand aparuse Ubuntu Gutsy. Erau ceva probleme la wdial.
Sa sti ca nu ar fi o idee rea sa incerc distributile pe care mi leai recomandat .
Ce poti sa imi spui de versiunile astea: Suse, Knopix, Mepix. Ca aveam de gand sa mi le procur.  .

PS: Dami o versiune pe care pot instala si rula freepascal fara problme, cum is obisnuit sa o fac si pe windows.

Si eu am de gand sa imi iau un notebook curand, si tocmai la asta ma gandeam 
Deci eu unu is inebunit de compiz si de functiole pe care le are. Si peste cateva zile trebuie sa imi ajunga versiunea 8.04 de la Ubuntu 

my mail: [email protected]

Interesanta jucaria

Ar fi mai fain daca ar fi mai multi incantati de idee  , dar ce sai faci 

  ohhoo, fain 

Alti nu mai is??? 

Repartizare judeţe pe centre de cazare

Colegiul “Spiru Haret” Ploieşti - Bacau, Botosani, Braila, Bucuresti, Bucuresti-lot juniori, Buzau, Calarasi, Caras Severin, Constanta, Galati, Gorj, Ialomita, Mehedinti, Mures, Tulcea;

Deci, eu is din Caras Severin 
Cine mai e aici cazat? 

Pe prima pagina ai 2 linkuri de unde poti descarca problemele

Daca tot ai inceput ai putea sa adaugi si pe Iron Maiden  . Ei vin pe 4 august 

Am incercat chestia aia si merge  , mersi mult. O sa ma pun acuma sa caut un IDE pentru pascal.

Aiurea rau , nici nu am crezut ca mai exista oameni din astia

Am downladat pahcetu freepascal pentru debian, dar habar nu am ce sa intamplat cu el dupa instalare, ca nu gasesc nici un fisier de executie.
Am sa incerc si prin metoda asta .

- De cati politai e nevoie sa bagi un stecher in priza?
- 100, 1 tine stecheru si 99 imping peretele 

- De cati politai e nevoie sa infiletezi un bec?
- De unul, pentru ca politaiu e acu destept, a aflat ca pamantul se invarte

- Cate bancuri cu politai exista?
- Niciunul, toate sunt adevarate 

In ultima vreme am incercat foarte mult sa ma familiarizez cu Ubuntu, probabil efectele is de vina  .
Problema mea e ca pana acu nu am gasit un compilator de Pascal pentru acest sistem . As vrea sa stiu daca exista compilatoare de Pascal pentru Ubuntu 7.10.

uitativa va rog si peste aceasta sursa  "job #168935"  si spunetimi cu as putea sa maresc viteza, pt ca eu nu ma incadrez in timp la 2 teste (banuiesc ca problema apare de la citirea datelor din fisier) 

Am o problema. Am scris acest program:

Cod:

program trains;
type vect =  record
               v: array [0..32,1..16] of integer;
               lid: array [0..32] of integer;
               end;
var A : vect;
    id,idst,iddr,pst,pdr,i,j,n,m,pos,min : integer;
    s : string[1];
    f,g : text;
begin
assign(f,'trains.in');
reset(f);
assign(g,'trains.out');
rewrite(g);


readln(f,n,m);

for i := 1 to n-1 do
read(f,A.v[0,i]);

readln(f,A.v[0,n]);

A.lid[0] := n;



for j := 1 to m do begin
read(f,s);


if (s='S') or (s='s') then begin
                readln(f,id,pos,iddr);
                A.lid[iddr] := A.lid[id]-pos;
                for i := 1 to A.lid[iddr] do
                A.v[iddr,i] := A.v[id,pos+i];
                A.lid[id] := pos;
                end
else if (s='J') or (s='j') then begin
                readln(f,idst,iddr);
                for i := 1 to A.lid[iddr] do
                A.v[idst,i+A.lid[idst]] := A.v[iddr,i];
                A.lid[idst] := A.lid[idst] + A.lid[iddr];
                end
else if (s='Q') or (s='q') then begin
                readln(f,id,pst,pdr);
                min := 32000;
                for i := pst to pdr do
                if min>A.v[id,i] then min := A.v[id,i];
                writeln(g,min);
                end;


end;


close(f);
close(g);

end.

fisierul de intare contine

Cod:

10 14
1 2 3 4 5 6 7 8 9 10
S 0 5 1
Q 1 1 3
J 1 0
Q 1 1 1
Q 1 2 2
Q 1 3 3
Q 1 4 4
Q 1 5 5
Q 1 6 6
Q 1 7 7
Q 1 8 8
Q 1 9 9
Q 1 10 10
Q 1 4 6

(daca ati observat este problema Trains de la Concursul campion);

Daca ruolez programul sub windows nu apar probleme, insa unul dintre administratori mia spus ca programul meu nu scoate la ei pe server decat fisiere goale. De ce? (imi cer scuze daca am incalcat vreo regula prin postarea algoritmului)

Am o problema, presupun k e la metoda de generare a sirului. Eu am folosit urmatorul algoritm:

Cod:

for i := 1 to 100 do begin
k := 1;
for j := 1 to i do begin
k := (k mod 10) * (i mod 10);
end;
A[i] := k;
end;
for i := 2 to 100 do begin
A[i] := A[i]+A[i-1];
A[i] := A[i] mod 10;
end;

Editat de moderator: folositi tag-ul "code" cand postati bucati dintr-o sursa