Pereiti prie turinio

Rhymond

Patvirtinti nariai
  • Pranešimai

    1.212
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

Rhymond Pranešimai

  1. <?php
    
    if (!defined("IN_FUSION")) { die("Access Denied"); }
    define("THEME_BULLET", "<span class='bullet'>·</span>");
    
    require_once INCLUDES."theme_functions_include.php";
    
    
    
    function render_page($license=false) {
    
           global $settings;
    
           //Header
           echo "<table cellpadding='0' cellspacing='0' width='$theme_width' align='center'>\n<tr>\n";>
           echo "<td>\n";
    
    echo"<div id='header'>";
    
    
    
    echo"</div>";
    
    
    
           echno "</td>\n</tr>\n</table>\n";
    
    //Next step goes here
    echo "
    </tr>
    </table>\n";
    tablebreak();
    echo "
    <table cellpadding='0' cellspacing='0' width='100%'>
    <tr>
    <td class='footer'><br>".stripslashes($settings['footer'])."</td>
    </tr>
    <tr>
    <td align='center' class='footer'>\n";
    if ($license == false) {
    echo "Powered by <a href='http://www.php-fusion.co.uk' target='_blank'>PHP-Fusion"</a>
    echo "$settings['counter']." ".($settings['counter'] == 1 ? $locale['140']."<br><br>
    </td>
    </tr>
    </table>
    </td>
    </tr>
    </table>\n";
    }

     

    Baigiu taisymą kiek žiūriu vien klaidos

  2. Žaiskit monopolio :)

     

    Šposiju:)

     

    Iš tiesų daryk aišku teminį jei nori kažko įvairesnio, neturiu ką ir bepasiūlyti, nes mes chebros prie bendro stalo išgerinėjam kaip minėjo prasideda kalbos, o vėliau viskas rutuliojasi savaime.

     

    Ištiesų gal kokius žaidimus bandykit žaist :) BeerPong'ą (nors tai irgi susiję su gėrimu) na nežinau, taigi chebra tavo aš manau tu turėtum geriausiai žinot ko jie nori ;)

  3. Bet tai vistiek su salyga gaunasi, nes reikia tikrinti ar ten tarkim KillerKintamasis yra didelis ar mažas, jog žinoti ar tą kofą didinti ar mažinti.

     

    Aš net neįsivaizduoju tada kaip be salygos daryt kitaip gi nesužinosi ar kyla ar krenta

  4. L33T, supratau, ką nori pasakyti. Tačiau ką programoje reikia pakeisti, kad ji rodytų ne "visų visų" skaitmenų sumą, bet kiekvieno skaičiaus skaitmenų sumą (153: 1+5+3=9; 154: 1+5+4=10...)?

     

    program sksum;
    var sum, pir, ant, tre, i:integer;
    begin
       for i:=153 to 893 do
         begin
           pir :=  i div 100;
           ant :=  i div 10 - 10*pir;
           tre :=  i mod 10;
           sum := sum + pir + ant + tre;
         end;
         WriteLn(sum);
     Readln;
    end.

  5. pasidaryk kokį kintamajį pvz "koficientas" :)

    koficientas = 100%;

     

    jei KillerKintamasis didėja tai koficientas mažėja, bet jis didėja pagal koficientą

    koficientas = koficientas - kažkoks tai procentas;

    KillerKintamasis = KillerKintamasis + ( didėjimas * koficientas );

     

    jei VictimKintamasis didėja tai koficientas didėja,

    koficientas = koficientas + kažkoks tai procentas;

    KillerKintamasis = KillerKintamasis + ( didėjimas * koficientas );

  6. 1 programa

     

    Pirmosios olimpinės žaidynės įvyko 1896 metais ir toliau organizuojamos kas ketveri metai. Jei žaidynės neįvyksta, tie metai vistiek laikomi olimpiniais, o žaidynėms skiriamas eilės numeris. Parašykite programą, kuri surastų m-ųjų olimpinių žaidynių numerį n. Jei metai neolimpiniai, turi būti spausdinama „Metai neolimpiniai“.

     

     

    program Zaidynes;

    var m : longint;

    begin

    WriteLn('Iveskite data');

    Readln(m);

    If m mod 2=0 then writeln('Metai olimpiniai')

    else writeln('Metai neolimpiniai');

    Readln;

    end.

     

    Juk reikia surasti dar olimpinių metų numerį

     

    program Zaidynes;
    var m : longint;
    metai : integer;
    begin
    WriteLn('Iveskite data');
    Readln(m);
    metai := m - 1896;
    If metai mod 4 = 0 then
    begin
    writeln('Metai olimpiniai');
    WriteLn('Metų numeris: ',metai div 4);
    end
    else writeln('Metai neolimpiniai');
    Readln;
    end.
    

  7. pvz

    <input type="text" name="username" value="<?=$_POST['username']?>" >

    Jeigu bus pirmą kartą užloadinta, tai bus tušti laukai, jei po submito, tai įrašys tai ką pats vartotojas buvo įrašęs. Aišku reikia nepamiršti paskui ir unsetinti ;)

     

    Bandžiau taip :) na dar pabandysiu truputį kitaip :)

     

    susitvarkiau :)

  8. Pavyzdžiui, aš įvedu skaičių 10. Programa turi man parodyti dar 5 skaičių, kurie yra mažesni negu mano įvestas skaičius. Pavyzdžiui, aš įvedžiui 10, programa gali man parodyti šitus skaičius: 1,2,3,4,5. Šitie skaičiai turi būti parodytos atsitiktinę tvarką.

     

    program Noname8;
    var x, i : integer;
    begin
     WriteLn('iveskite skaiciu: ');
     Readln(x);
       for i := 1 to 5 do
           WriteLn(x-i);
       Readln;
    end.

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