Hoàn thiện và sửa lỗi chương trình sau (chương trình đến các chữ số trong xâu s) Program Uses crt Var s= string(30); i:byte B

0 bình luận về “Hoàn thiện và sửa lỗi chương trình sau (chương trình đến các chữ số trong xâu s) Program Uses crt Var s= string(30); i:byte B”

1. Chương trình trên sai : Sửa lại 

   Program Hotboy ; (tên khác cũng được)

        Uses crt (thiếu 😉

       Var s= string(30);

              i:byte (thiếu 😉

       Begin

              Write( nhap xau s) ;

              Real(s) (Sai câu lệnh => Readln(s); 

               Dem:=1;

               For i:=1 to length[s] do

                If (s[i]>=‘0’) and (s[i]<=‘9’) then … (bỏ …)

               Writeln(so luong cac chu so co trong xau s la:’,dem);

        Realn (không .)

   End. (thiếu kết thúc chương trình )

     

   Bình luận

2. Program //thiếu tên chương trình

   Uses crt;

   Var s= string(30);

   i:byte;

   Begin

   Write (‘ nhap xau s‘) ;

   Read(s);

   Dem:=1;

   For i:=1 to length[s] do

   If (s[i]>=‘0’) and (s[i]<=‘9’)

   then inc(dem);         // không có dấu …

   Writeln( ‘so luong cac chu so co trong xau s la: ‘,dem);

   Realn // không phải dấu .

   End. //Thiếu End 

   Bình luận