Pereiti prie turinio

Platzengys

Patvirtinti nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    93

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

 Turinio tipas 

Platzengys Pranešimai

    Wordpress citatų rodymo valdiklis

    Tinklaraščiai (blogai)

    Sukurta

    Sveiki, blogeriai, naudojantys Wordpress.

     

    Visų pirma, nežinojau į kurį forumą rašyt: ar svetainių vertinimo, ar čia. Bet, kadangi čia lankosi blogeriai, kuriems ir skirtas šis įskiepis, sukūriau temą čia.

     

    Žodžiu, parašiau Wordpress įskiepį, kuris rodo citatas iš http://citatos.eu valdiklių pagalba. Jokių reklamų ar nuorodų atvaizduojamose citatose nėra.

     

    Taigi, norėčiau, gauti šiek tiek įvertinimų.

     

    Noriu sužinoti, ar kam nors šis įskiepis gali būti naudingas, ar naudotumėte (naudosite) jį ir pan.

     

    Laukiu vertinimų, ačiū.

     

    Įskiepį parsisiųsti ir sužinoti apie jį daugiau galima čia: http://citatos.eu/home/wordpress ^_^

    FPS uždavinys

    Programuotojų kampas

    Sukurta

    Sveiki, reikėtų Jūsų pagalbos įveikti vieną uždavinį.

    Cilindro formos statinės, kurios aukštis H ir skersmuo D, šone išgręžtos labai mažos skylutės, kurių kiekvienos skersmuo d. Žinomas kiekvienos skylutės atstumas nuo statinės viršaus. Statinė iki viršaus pripildyta vandens. Per kiek laiko išbėgs vanduo iki apatinės skylutės? Vandens tekėjimo greitis pro skylutę, esančią aukštyje h, lygus Sqrt (2*g*h)

     

    Šiek tiek programos pasirašęs esu:

    program statine;
const g = 9.8;
type mas = array[1..50] of integer;

var H,           // aukštis
   D,           // skersmuo
   sd: integer; // skylutės skersmuo

   A: mas;      // skylučių atstumai nuo viršaus
   AU: mas;     // skylučių aukščiai
   n: integer;  // kiek yra skylučių

// surenka duomenis
procedure duomenys( var H, D, sd, n: integer; var A: mas );
var i: integer;
begin
 Write('Įveskite, kiek yra skylučių: ');
 ReadLn(n);
 Write('Įveskite statinės aukštį H: ');
 ReadLn(H);
 Write('Įveskite statinės skersmenį D: ');
 ReadLn(D);
 Write('Įveskite vienos skylutės skersmenį d: ');
 ReadLn(sd);
 WriteLn;
 // skylučių atstumų nuo viršaus suvedimas į masyvą
 for i := 1 to n do
 begin
   Write('Įveskite skylutės nr. ', i, ' atstumą nuo statinės viršaus (',H,'): ');
   ReadLn(A[i]);
 end;
end;

// paverčia skylučių atstumą nuo viršaus į aukštį, kuriame jos yra
procedure auksciai(n, H: integer; A: mas; var AU: mas);
var i: integer;
begin
 for i := 1 to n do
   AU[i] := H - A[i];
end;

// skaičiuoja, kiek statinėje telpa vandens (tūrį)
function turis(H, D: integer): real;
begin
 turis := pi * (D / 2) * H;
end;

// randa žemiausiai esančios skylutės aukštį
function zemiausia(AU: mas; n: integer): integer;
var i, min: integer;
begin
 min := AU[1];
 for i := 1 to n do
 begin
   if(AU[i] < min) then min := AU[i];
 end;
 zemiausia := min;
end;

begin
 duomenys(H, D, sd, n, A);
 auksciai(n, H, A, AU);
end.

     

    Ir su tiek STOP. Manau, kad žengiu geru keliu, bet kas toliau?

     

    Dėkoju iš anksto.

    Domeno įvertinimas

    Domenų vertinimai

    Atrašyta

    www.citatos24.lt :) Biski kopijuota:))

     

    Ne viena ir ne dvi tokio tipo svetainės yra, tad teigti, kad būtent nuo to ar ano kopijuota, nesąmonė. Į turinį (citatas) nei ši nei jokia kita svetainė (įskaitant ir maniškę) jokių teisių neturi. ;)

     

    O kitiems ačiū už įvertinimus. :)

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