Chyba v programu pro pocitani znaků – Pascal – Fórum – Programujte.com

Sepsal jsem program , ale když to vypisuje poočet znaků tak to špatně přiřažuje počty ke znakům .PŘ: v souboru je 19 znaku a ono mi to napise 19 pismen 19 ostatnich 0 cisel ikdyz tam zadam i cisla .

program Pocitadlo;

   const Konec = '*';

   var Pismena, Cislice, Ostatni : integer;

       Znak : Char;



   procedure Pozdrzeni;

      begin

         writeln ('   ');

         writeln ('Stisknete enter');

         readln;

      end;



   begin

      writeln ('Pocitadlo znaku');

      writeln ('Napiste nekolik znaku, ukoncete zmacknutim "*"');

      writeln ('   ');

      Pismena := 0;

      Cislice := 0;

      Ostatni := 0;

      read (Znak);

      while Znak <> Konec do

      begin

         case Znak of

         'a'..'z' , 'A'..'Z' : Pismena := Pismena + 1;

         '0'..'9'            : Cislice := Cislice + 1;

         else Ostatni := Ostatni + 1;

         end;

      read (Znak);

      end;

   writeln ('Celkem:');

   writeln ('   ');

   begin

      case Pismena of

         2 .. 4 : Writeln (Pismena, ' pismena');

         0, 5 .. 30000 : Writeln (Pismena, ' pismen');

         1 : Writeln (Pismena, ' pismeno');          

      end;

      case Cislice of

         1 .. 4 : Writeln (Cislice, ' cislice');

         0, 5 .. 30000 : Writeln (Pismena, ' cislic');

      end;

      case Ostatni of

         2 .. 4 : Writeln (Ostatni, ' ostatni znaky');

         0, 5 .. 30000 : Writeln (Ostatni, ' ostatnich znaku');

         1 : Writeln (Ostatni, ' ostatni znak');          

      end;

   end;

   Readln;

   Pozdrzeni;

end.

To spider-x :
chybu mas v konstrukcii case pre cislice, namiesto poctu cislic vypisujes pocet pismen, inak som to skusal a funguje to

case Cislice of



         1 .. 4 : Writeln (Cislice, ' cislice');



         0, 5 .. 30000 : Writeln (Pismena, ' cislic'); 



      end;

Diky moc

Mohl bych poprosit o opravu jeste jednoho programu?Pocita kvadratickou rovnici a kdyz tam ale zadam posmeno tak nastane behova chyba.

program kvadraticka_rovnice ;

var  A , B ,C ,X ,Diskr :Real ;

     Semafor : Char;

     

begin

   Writeln ('Kvadraticka rovnice');

   Writeln('Zadejte koeficient a');

      repeat

         readln(A);

         if A = 0 then writeln('Neni kvadraticka rovnice.');

         until A <> 0 ;

         Writeln('Zadejte koeficienty B, C');

         readln(B , C);

         Diskr:= sqr(B) -4*A*C;

         X := -B /(2*A) ;

         if abs(Diskr) < 0.00001 then Semafor :='1';

         if diskr > 0 then Semafor := '2';

         if diskr  < 0 then Semafor := '3' ;

         if Semafor ='1' then writeln ('Dvojnasobny koren ',X:5:3);

         if Semafor ='2' then writeln('Dva koreny ',X +sqrt(Diskr)/(2*A):5:3,

         ' a ', X - sqrt(Diskr) /(2*A):5:3);

         if Semafor = '3' then 

         begin 

         writeln ('Dva koreny v oboru komplexnich cisel.');

         writeln ('X:5:3 , '+', sqrt(Diskr)/ (2*A):5:3, ');

         writeln ('');

         end

         else 

         begin

         writeln ('Nekde v programu je chyba');

         end;

end.

Máš cca 3 možnosti:
1) Vypnout automatickou kontrolu I/O operací, mezi které se Readln počítá ({$I-}), tím zabráníš pádu programu při chybě. Po Readln se podívej, jestli Ioresult=0. Jestli jo, číslo bylo zadáno správně. Jestli ne, byla zadána kravina, tak uživateli vynadej a nech ho zadat něco lepšího.
2) Načíst to jako řetězec (string) a ten pak převést na číslo ručně procedurou Val. Ta ti přímo řekne, na kolikátém znaku je chyba, tak ji zase můžeš nahlásit a zařídit se podle ní.
3) Místo Readln použít nějakou vlastní proceduru na bázi Readkey, Gotoxy, kontroly každé stisknuté klávesy a ručního převodu na číslo. Ale to je zbytečně pracné.