Cho đoạn chương trình sau, hãy chỉ ra lỗi sai và sửa lại cho đúng Program chuongtrinh Uses crt. Var i,n,s : integer; Begin S:=0 Writeln(‘Nhap so=’,n)

0 bình luận về “Cho đoạn chương trình sau, hãy chỉ ra lỗi sai và sửa lại cho đúng Program chuongtrinh Uses crt. Var i,n,s : integer; Begin S:=0 Writeln(‘Nhap so=’,n)”

1. sau program thiếu ,

   uses crt sau đó là ; chứ k là .

   s:=0 thiếu ;

   sau written(‘….’,n) thiếu ;

   thiếu readln; trc end.

   đoạn ct hoàn chỉnh là

   Program chuongtrinh;

   Uses crt.;

   Var i,n,s : integer;

   Begin

   S:=0;

   Writeln(‘Nhap so=’,n);

   For i:=1 to n do s:=s+i;

   Writeln(‘tong la:’,s);

   readln;

   End.

   Bình luận

2. *Lỗi sai:

   – Dòng 1: Thiếu “;” ở cuối

   – Dòng 2: Thay “.” bằng “;”

   – Dòng 5: Thiếu “;” ở cuối

   – Dòng 6: Sửa lại đoạn này là: write(‘Nhap so n = ‘); readln(n);

   – Thêm “Readln” vào trước “End.” để đọc chương trình

   *Sửa:

   program chuongtrinh;

   uses crt;

   var i, n,s: integer;

   begin

   clrscr; {Có thể có hoặc không}

   S:=0;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do s:=s+i;

   Writeln(‘Tong la: ‘,s);

   readln

   end.

   Bình luận