Pereiti prie turinio

woras007

Nariai
  • Pranešimai

    29
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

woras007 Pranešimai

  1. //Header

    echo "<div id='bg_fonas'><table cellspacing='0' cellpadding='0' width='".THEME_WIDTH."' align='center'>\n<tr>\n";

    echo "<td>\n";

     

    echo"<div id='header'>";

    echo "<div id='logo'><img src='".THEME."/images/header_navigacija_footer/logo.png'></div>";

     

    echo"</div>";

     

    //Navigacija

    echo "<table align='center' cellpadding='0' cellspacing='0' width='100%'>\n

    <td>

    echo "<table align='left' cellpadding='0' cellspacing='0' class='sub-nav' valign='top'>\n<tr>\n<td align='left' valign='top' style='padding-top: 72px;'>\n";

    include BASEDIR."infusions/horizontal_navigation_panel/horizontal_navigation_panel.php";

    echo "<div style='margin-top: 14px;'>\n";

    </td>

    </table>\n";

    //Content

    echo "<table cellpadding='0' cellspacing='0' width='".THEME_WIDTH."' align='center' class='$main_style'>\n<tr>\n";

    if (LEFT) { echo "<td class='side-border-left' valign='top'>".LEFT."</td>"; }

    echo "<td class='main-bg' valign='top'>".U_CENTER.CONTENT.L_CENTER."</td>";

    if (RIGHT) { echo "<td class='side-border-right' valign='top'>".RIGHT."</td>"; }

    echo "</tr>\n</table>\n";

     

     

     

    cia va kur sub-nav iterpt faila noriu ir nemoku meta error. kas nusimanot padekit :) nes as tik pradedantysis koduotojas :D

  2. Program uzd13;

    Var r, acx, acy, tx, ty, i, sk: Integer;

     

    Begin

    Write('Apskritimo spindulys');

    ReadLn®;

    Write('Apskritimo centro koordinates');

    ReadLn(acx, acy);

    writeln('iveskite kiek turite tasku:');

    readln(sk);

    for i := 1 to sk do

    Write('Iveskite ', i, ' tasko koordinates');

    ReadLn(tx, ty);

    WriteLn;

    sk:= (sqrt ( sqr(acx-tx) + sqr(acy-ty) ) < r);

    writeln('Viduje ', 'sk:5:0', ' taskai');

    readln;

    End.

     

    kodel man sitsam uzdavinyje meta klaida?

  3. program uzd4;

    var B, N, K: real;

     

    begin

    WriteLn('ivesk prikastu bulviu maisu skaiciu');

    Readln(B);

    WriteLn('ivesk kiek bulviu maisu telpa vezime');

    Readln(N);

    K:= B div N;

    writeln('Vaziavimu sk. ', K:0:0);

    readln;

    end.

    galit pataisyt klaida, nes jei prikasa ukininkas 7 maisus o telpa i vezima tik 6 atsakymas turi buti vaziuos 2 kartus, bet man rodo kad viena karta tiktai :(

  4. Kiek suprantu, tai čia klaida:

     D<l and D<b and D>h;
     writeln ('kamuolys telpa ne visas i deze');

    jei taip?

    program uzd1;
    var D, h, l, b:real;
    begin
     WriteLn('ivesk kamuolio skersmeni');
     Readln(d);
     WriteLn('ivesk dezes auksti');
     Readln(h);
     WriteLn('ivesk dezes ilgi');
     Readln(h);
     WriteLn('ivesk dezes ploti');
     Readln(b);
     if (D <= l) and (D <= b) and (D <= h) then
     writeln ('kamuolys telpa visas i deze')
     else
     writeln ('kamuolys telpa ne visas i deze');
     readln;

     

    deqi

  5. Nu tai patikrink. Jeigu kamuolio skersmuo yra mažesnis arba lygus dežės aukščiui, pločiui ir ilgiui, tai tada kamuolys tilps. Sprendimo nerašysiu, nes labai paprasta :)

     

    sprendima turiu bet kodel kalida meta?:( pataisyt galetumet?

     

    program uzd1;

    var D, h, l, b:real;

    begin

    WriteLn('ivesk kamuolio skersmeni');

    Readln(d);

    WriteLn('ivesk dezes auksti');

    Readln(h);

    WriteLn('ivesk dezes ilgi');

    Readln(h);

    WriteLn('ivesk dezes ploti');

    Readln(b);

    if D<=l and D<=b and D<=h then

    writeln ('kamuolys telpa visas i deze') else

    D<l and D<b and D>h;

    writeln ('kamuolys telpa ne visas i deze');

    readln;

    end.

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