Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp “Xaukytu.doc” số lượng các chữ a, A, b, B có trong câu

0 bình luận về “Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp “Xaukytu.doc” số lượng các chữ a, A, b, B có trong câu”

1. Const Fo=’Xaukitu.doc’;
   Var g: text;
       St: String;
       i,da,dai,db,dbi: longint;
   Begin
           Assign(g,Fo); Rewrite(g);
           Write(‘Nhap St: ‘); Readln(St);
           For i:=1 to length(St) do
           Begin
                   If St[i]=’a’ then inc(da);
                   If St[i]=’A’ then inc(dai);
                   If St[i]=’b’ then inc(db);
                   If St[i]=’B’ then inc(dbi);
           End;

           Writeln(g,’Co ‘,da,’ chu a’);
           Writeln(g,’Co ‘,dai,’ chu A’);
           Writeln(g,’Co ‘,db,’ chu b’);
           Writeln(g,’Co ‘,dbi,’ chu B’);
           Close(g);
   End.

   Bình luận