Viết chương trình nhập vào xâu S a) in ra màn hình cho biết số lượng con số có trong xâu b) cho bt số lượng chữ cái trong xâu

0 bình luận về “Viết chương trình nhập vào xâu S a) in ra màn hình cho biết số lượng con số có trong xâu b) cho bt số lượng chữ cái trong xâu”

1. program phuongt;
   uses crt;
     var s: string;
   function kt: integer;
   var i, k, d: integer;
   begin
           d:=0;
           k:=0;
           for i:=1 to length(s) do
           begin
                   if s[i] in [‘0’..’9′] then d:=d+1;
                   if s[i] in [‘a’..’z’]+[‘A’..’Z’] then k:=k+1;
           end;
           writeln(‘So luong con so co trong xau: ‘, d);
           write(‘So luong chu cai co trong xau: ‘, k);
   end;
   begin
           clrscr;
           write(‘Nhap xau s = ‘); readln(s);
           kt;
           readln
   end.

   Bình luận

2. program dem_so_chucai;

   uses crt;

   var s:string;

   {—Ham-dem-so—}

   function demso(s:string):byte;

   var i,d:byte;

   begin

         d:=0;

         for i:=1 to length(s) do

               if s[i] in [‘0’..’9′] then d:=d+1;

         demso:=d;

   end;

   {—Ham-dem-chu-cai—}

   function demcc(s:string):byte;

   var i,d:byte;

   begin

         d:=0;

         for i:=1 to length(s) do

               if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then d:=d+1;

         demcc:=d;

   end;

   {—Chuong-trinh-chinh—}

   begin

         clrscr;

         write(‘Nhap xau: ‘);  readln(s);

         writeln(‘a. Co ‘,demso(s),’ chu so’);

         writeln(‘b. Co ‘,demcc(s),’ chu cai’);

         readln;

   end.

   Bình luận