Pereiti prie turinio

Rhymond

Patvirtinti nariai
  • Pranešimai

    1.212
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

Rhymond Pranešimai

  1. Sveiki,

    Turbut mate ne ant vieno tinklapio kuriame yra JavaScript (Pagal mane) kuris nustato jusu ekrano dydi ir iskarto duoda jusu ekrano dydzio paveiksliuka (Sneku apie Wallpapers) jeigu nemate, stai pavyzdys : http://www.wallpaperfx.com/3d/fantasy/i-still-can-see-wallpaper-9234.htm

     

    Taigi, butu gerai jeigu galetumete pasidalinti kodu ir kaip tai viskas veikia

     

    http://andylangton.co.uk/articles/javascript/browser-screen-resolution/

     

    http://stackoverflow.com/questions/623172/how-to-get-image-size-height-width-using-javascript

     

    ir tikrink ifu paskuj atvaizduok :)

  2. O jis yra nemokamas šiaip? Aš matot turiu specialų važinėt nemokamai rajoniniais autobusais. O mane domina 50 proc nuolaida tarpmiestiniais, kurią galima gauti pateikus mokinio pažymėjimą. Mano dabartinis netinka.

     

    Eik į mokyklą ir padarys ;)

  3. Sveikuciai dar karta. taigi meta klaida bad numeric format, ka daryt? :)

    program Grybas;
    
    type gryb=record
       vard:string[15];
       gryb,gryb1,gryb2,d:integer;
    end;
    
    type mas=array[1..100] of gryb;
    type mas1=array[1..100] of integer;
    
    var i,n,j,didz:integer;
    Df,Rf:text;
    A:mas;
    bar,raud,lep,sum:mas1;
    vardukas:string[15];
    
    procedure Duomenys;
    begin
       Assign(Df,'U2.txt');
       Reset(Df);
       Readln(Df,n);
       for i:=1 to n do
       begin
           Readln(Df,A[i].vard,A[i].d);
           for j:=1 to A[i].d do
           Readln(Df,A[i].gryb,A[i].gryb1,A[i].gryb2);
       end;
       Close(Df);
    end;
    
    procedure Is_viso;
    begin
       for i:=1 to n do
       begin
           for j:=1 to A[i].d do
           begin
               bar[i]:=bar[i]+A[i].gryb;
               raud[i]:=raud[i]+A[i].gryb1;
               lep[i]:=lep[i]+A[i].gryb2;
           end;
       end;
       for i:=1 to n do
       Writeln(Rf,bar[i],raud[i],lep[i]);
    end;
    
    function geriausias:integer;
    begin
       didz:=0;
       for i:=1 to n do
       sum[i]:=bar[i]+raud[i]+lep[i];
       for i:=1 to n do
       if didz<sum[i] then
       begin
           didz:=sum[i];
           vardukas:=A[i].vard;
       end;
      geriausias:=didz;
    end;
    
    procedure Rezultatai;
    begin
       Assign(Rf,'U2rez.txt');
       Rewrite(Rf);
       Is_viso;
       Close(Rf);
    end;
    
    begin
       Duomenys;
      Rezultatai;
    end.

     

    Duomenų failą galima?

×
×
  • Pasirinkite naujai kuriamo turinio tipą...