OPTADS360
AANETWORK
AMBIENT
YOMEDIA
Banner-Video
IN_IMAGE

Cho một file text ghi lại một chương trình Pascal của một học sinh . Hãy viết chương trình kiểm tra lỗi của chương trình Pascal trên theo các cách sau đây :

Cách 1 : Kiểm tra xem số lượng các dấu ‘ (dấu mở và dấu đóng) có bằng nhau không ?

Cách 2 : Kiểm tra xem số lượng các từ Begin và End có bằng nhau không ? 

  bởi Thành Tính 30/11/2021
ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • Uses  Crt;

      Const fi='C8_6.txt';

     

     

      Function Dem(c: string): integer;

      Var n,l: integer; f: text; S: string;

      Begin

        l:=Length(c); n:=0;

        Assign(f,fi); Reset(f);

        While not Eof(f) do

        Begin

           Readln(f,S);

           While pos(c,s)<>0 do

           Begin

              Inc(n); Delete(s,pos(c,s),l);

           End;

        End;

        Close(f);

        Dem:=n;

      End;

      BEGIN

        Clrscr;

        Write(' So luong cac dau ( va ) ');

        If Dem('(')<>Dem(')') then Writeln('khong bang nhau.')

        Else Writeln('bang nhau.');

        Write(' So luong cac tu Begin va End ');

        If Dem('End')<>Dem('Begin') then Writeln('khong bang nhau.')

        Else Writeln('bang nhau.');

        Readln;

      END .

      bởi thủy tiên 30/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 11