Protože nikdo není neomylný a protože musíme brát v úvahu přítomnost pana Murphyho, i v mých algoritmech se semtam objeví chyba. Jestliže na nějakou narazíte, napište mi o ní, prosím. Na této stránce naleznete popis chyby i její řešení. Daná chyba bude opravena ve zdrojových dokumentech a její uveřejnění zde je pro ty, kteří si již danou stránku stáhli a užívají.
| Číslo chyby: | 1 |
| Umístění chyby: | LIST.PAS - procedura POSTDELETE |
| Popis chyby: | Odkaz pres NIL |
| Oprava: | Zařadit test UkAktivni na NIL: if UkAktivni < > nil then {pokracovani procedury} |
| Opravil: | Stanislav Chromčák, 20. 10. 1999 |
| Číslo chyby: | 2 |
| Umístění chyby: | LIST.PAS |
| Popis chyby: | Konflikt jmen operací |
| Oprava: | Při implementaci přejmenovat tyto operace: COPY - > LCOPY, SUCC - > LSUCC |
| Opravil: | Stanislav Chromčák, 20. 10. 1999 |
| Číslo chyby: | 3 |
| Umístění chyby: | KOMPLEX.PAS - funkce ARGUMENT |
| Popis chyby: | Neošetření dělení nulou |
| Oprava: |
if Cislo.Re < > 0 then
begin
pom:=arctan(abs(Cislo.im)/abs(Cislo.re));
if (Cislo.re > 0) and (Cislo.im < 0) then pom:=-pom;
if (Cislo.re < 0) and (Cislo.im > 0) then pom:=PI-pom;
if (Cislo.re < 0) and (Cislo.im < 0) then pom:=-PI+pom;
Argument:=pom;
end {Realna slozka je nulova}
if Cislo.Im > 0 then Argument:=Pi/2 else
if Cislo.Im < 0 then Argument:=3*Pi/2 else
if Cislo.Im = 0 then Argument:=0;
|
| Opravil: | Stanislav Chromčák, 20. 10. 1999 |
| Číslo chyby: | 4 |
| Umístění chyby: | KOMPLEX.PAS - funkce PIS_EXPONENCIALNE |
| Popis chyby: | Opomenutí j v výpisu |
| Oprava: | Write(Velikost(Cislo):5:5,' e^(j * ',Argument(Cislo):3:3,' )') |
| Opravil: | Stanislav Chromčák, 20. 10. 1999 |
| Číslo chyby: | 5 |
| Umístění chyby: | STRINGS.PAS - funkce ObratRetezec |
| Popis chyby: | Opomenutí středníku |
| Oprava: |
Function ObratRetezec(s:string):string;
{Funkce obrati retezec}
var I,delka : byte;
begin {ObratRetezec}
ObratRetezec[0] := s[0];
delka:=Length(s);
for I:=1 to delka do
ObratRetezec[I]:=s[delka-I+1];
end; {ObratRetezec}
|
| Opravil: | Stanislav Chromčák, 26. 6. 2000 |
|
|
26. 6. 2000 |
|
|
||
|
|