Skontrolovat zadanie z pascalu

[timka15]

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 

[Brand]

uz sa stalo, vid topic od Strickyho pod Tvojim ...

[timka15]

dakujem a naozaj to bude dobre ??

[timka15]

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 

[Agamemnon]

čo je to krokovacia tabuľka? akože chceš tabuľku, kde pre každý riadok kódu bude výpis hodnoty premenných? to máš ako zadanie, alebo čo?
také veci (debuggovanie, krokovanie) sa robia priamo v programovacom prostredí (napr. aj starý "modrý" turbo pascal to zvládal)... nikto to nerobí ručne a na papieri (v exceli, etc.), lebo to je nezmysel...

[timka15]

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

[lecter]

čo je to krokovacia tabuľka? akože chceš tabuľku, kde pre každý riadok kódu bude výpis hodnoty premenných? to máš ako zadanie, alebo čo?
také veci (debuggovanie, krokovanie) sa robia priamo v programovacom prostredí (napr. aj starý "modrý" turbo pascal to zvládal)... nikto to nerobí ručne a na papieri (v exceli, etc.), lebo to je nezmysel...

Ago, tak to by si sa divil Je jedna vyucujuca, ktora to na FEI vyzaduje, aby si na papier nakodil program a este aj vypisal do tabulky priklady pre vstupy a ake hodnoty naberaju premenne pocas behu programu To nic, ze mame vyvojove prostredia

[genie]

vsak myslime tu istu?

[Agamemnon]

čo je to krokovacia tabuľka? akože chceš tabuľku, kde pre každý riadok kódu bude výpis hodnoty premenných? to máš ako zadanie, alebo čo?
také veci (debuggovanie, krokovanie) sa robia priamo v programovacom prostredí (napr. aj starý "modrý" turbo pascal to zvládal)... nikto to nerobí ručne a na papieri (v exceli, etc.), lebo to je nezmysel...

Ago, tak to by si sa divil Je jedna vyucujuca, ktora to na FEI vyzaduje, aby si na papier nakodil program a este aj vypisal do tabulky priklady pre vstupy a ake hodnoty naberaju premenne pocas behu programu To nic, ze mame vyvojove prostredia

heh, ale tak v praxi sa to nepouziva

[Brand]

Ono ani ten obycajny Pascal sa uz moc nepouziva