ODHALENÉ CHYBY
Zpět na "PASCAL V PŘÍKLADECH"

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

Zpět na "PASCAL V PŘÍKLADECH"


Domovská stránka
Kontakt
Stanislav Chromčák
26. 6. 2000
Originální umístění této stránky je:
http://freeweb.coco.cz/ANCHOR/pascal/data/bugs.htm