xây dựng chương trình con để lấy số ký tự ‘a’ trong một xâu

0 bình luận về “xây dựng chương trình con để lấy số ký tự ‘a’ trong một xâu”

1. program dem_a;

   uses crt;

   var s:string;

   {—Chuong-trinh-con—}

   function dema(st:string):byte;

   var i:byte;

   begin

          dema:=0;

          for i:=1 to length(st) do

                 if st[i]=’a’ then dema:=dema+1;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN
          clrscr;

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

          write(‘=> Co ‘,dema(s),’ ki tu a’);

          readln;

   end.

   Bình luận

2. var d, i: byte;

          s: string;

   Procedure dem;

      Begin

          d:=0;

          For i:=1 to length(s) do

                if s[i]=’a’ then d:=d+1;

      End;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       Dem;

       Write(‘co ‘, d, ‘ ki tu a’); 

       Readln

   End.

   Bình luận