Messages

Zdravim ... neviete, ci zvyknu byt aj integraly

podla reakcii... vsetci ma "maju" radi 

Myslim, ze vysvetlovanie by trvalo dlhsie ako samotne napisanie programu, ale prosim... moze mi to niekto aj vysvetlit.

Sorry, ale fotku za co ? 
... tu by si zasluzil akurat tak DeViLvs, ale vidim, ze ten o nu nestoji.
Vasa ochota stoji za vsetky peniaze, vidim, ze pomoc dostanem len za peniaze alebo protisluzbu... kraaaasa
Keby Vam to trvalo aspon pol hod., tak nic nepoviem, ale pre Vas "mudrych" som si myslela, ze to bude hracka
...ale ako vidim, vsetci sa len hrate na mudrych  ... my, zeny si aspon prizname , ze nie sme dokonale !

Dakujem pekne 
... chlapci - "gentlemani" mali by ste si brat priklad z DeViLvs-a.   

pleaseeee 

Chlapci zlati...
... nerobte si zo mna prcu a radsej mi pomozte  , za odmenu bude aj fotka  .

... to nemyslis vazne

Zdravim 

Opat by som potrebovala pomoc pri rieseni zadania:
                               

" Zostavte program pre nacitanie cisel, ak posledne cislo na vstupe je K. Stanovte pocet nacitanych hodnot, ich sucet a priemer.

... ide o program v Pascale a algoritmus !

Dakujem krasne 

jj, zadanie .... ma to byt tabulka, v kt. su zadane kroky, vstupy, vystupy

Este by som poprosila ... ladenie programu (krokovaciu tabulku) k programu:



Program triangle;
Var
   a, b, c : real;   
Begin
   Writeln('Zadaj stranu b: ');
   ReadLn(b);
   WriteLn('Zadaj stranu c: ');
   ReadLn(c);

   If (b > 0) AND (c > 0) Then
     Begin
       a:= sqrt (c*c-b*b);
       WriteLn('Velkost strany a v pravouhlom trojuholniku je ', a:5:2); 
     End

   Else
     Begin
       WriteLn('Chyba: Obidve hodnoty musia byt vacsie ako 0!');
     End;

   ReadLn();
End.



... dakujem 

dakujem a naozaj to bude dobre ??

Vedel by to niekto skontrolovat?
* Zostavte program pre výpočet strany a v pravouhlom trojuholníku, ak strany b a c sú zadané. *

program ZADANIE c1;
var
   b,c : real;
   a : real;
begin
   write ('Zadaj stranu b');
   readln (b);
   begin
      if (b>0) then
      write('Zadaj stranu c');
      readln (c);
      else
   begin
      if (c>0) then
      a:= sqrt (c*c-b*b);
      writeln ('velkost strany a v pravouhlom trojuholniku je ',a:5:2);
   readln;
end.



ALEBO ?!


program ZADANIE c1;
var
   b,c : real;
   a : real;
begin
   write ('Zadaj stranu b');
   readln (b);
   if (b>0) then
begin   
   writeln('Zadaj stranu c');
   readln (c);     
   if (c>0) then
begin
   a:= sqrt (c*c-b*b);
   writeln ('velkost strany a v pravouhlom trojuholniku je ',a:5:2);
   readln;
end.


... dakujem