Tìm lỗi và sửa lại cho đúng chương trình sau đây

Answers [ ]

1. tuenhi

   0

   2021-08-02T12:10:48+00:00 02/08/2021 at 12:10

   Reply

   Program Vi_du;

   Var a,b: Integer;

   S, C : Real;

   Begin

   Clrscr;

   Write[‘Nhap chieu dai a=’]; readln[a];

   Write[‘Nhap chieu rong b=’]; readln[b];

   S:= a*b;

   C:= [a+b]*2;

   Write[‘dien tich hinh chu nhat la:’,S:4:2];

   Write[‘chu vi hinh chu nhat la:’,C:4:2];

   Readln

   End.

3. minhtu

   0

   2021-08-02T12:10:52+00:00 02/08/2021 at 12:10

   Reply

   Program vi_du;

   var a,b: interger;

        C,S: real
   uses crt;

   begin

   clrscr;

   writeln[‘nhap chieu rong hinh chu nhat’]; realn[‘a’];

   writeln[‘nhap chieu dai hinh chu nhat’]; realn[‘b’];

   S:= a*b

   C: [ a+b]*2

   write [‘ dien tich hinh chu nhat la: ‘ ,  S ]; write [ ‘ chu vi hinh chu nhat la: ‘ , C ];

   Realn;

   End.

Hãy tìm lỗi đoạn chương trình và sửa lại cho đúng:

Program Tam_giac;

Var a, b, c, h, Cv, Dt: Integer; => Sai, sửa: Var a, b, c, h, Cv: Integer; Dt: real;

Begin

Write['nhap canh tuong ung a='];

readln['a'] => Sai, sửa: readln[a]

Write['nhap chieu cao h='];

readln['h'] => Sai, sửa: readln[h]

Đt:=1/2*a*h => Sai, sửa: Dt:=1/2*a*h

Cv :=a+b+C; => Sai, sửa: Cv :=a+b+c;

[Chương trình chưa có phần kết thúc]

--------------------------------------------------------

Sửa lại tất cả:

Program Tam_giac;

Var a, b, c, h, Cv: Integer;

      Dt: real;

Begin

Write['nhap canh tuong ung a='];

readln[a]

Write['nhap chieu cao h='];

readln[h]

Dt:=1/2*a*h

Cv :=a+b+c;

readln;

end.

[Phần in đậm là phần đã sửa/thêm]

*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.

Câu 2:Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng

Theo dõi Vi phạm

ADSENSE

Trả lời [1]

• 2/

  Uses crt;

  var a: array [1..100] of integer;

  n, i, s: integer;

  tb: real;

  begin

  clrscr;

  write ['Nhap so luong phan tu: '];

  readln [n];

  for i:= 1 to n do readln [a[i]];

  s:=s+a[i];

  tb:=s/n;

  writeln ['Gia tri trung binh cong cua mang la ',tb];

  write ['Cac phan tu nho hon gia tri trung binh cong: '];

  for i:= 1 to n do if a[i]