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]

  end.

  1/

    bởi Nguyễn Xuân Đạt

  
  08/12/2018

  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!

NETLINK

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

• Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

  Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
  Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

  • Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
  • Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

  Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

  • Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
  • Hàng 2: lần lượt là số áo, số mũ còn thừa.

  23/10/2022 |   0 Trả lời

• Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó

  Giúp em v ạ em sắp thi

  27/10/2022 |   1 Trả lời

• (0101...) là cơ sở để tạo ra ngôn ngữ gì?

  30/10/2022 |   1 Trả lời

• Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?

  30/10/2022 |   1 Trả lời

• Máy tính thực hiện một công việc thông qua yếu tố nào?

  30/10/2022 |   1 Trả lời

• Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?

  30/10/2022 |   1 Trả lời

• Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.

  30/10/2022 |   1 Trả lời

• Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng(khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

  Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng (khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả).

  31/10/2022 |   0 Trả lời

• Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?

  31/10/2022 |   1 Trả lời

• Từ khoá của một ngôn ngữ lập trình là gì?

  31/10/2022 |   1 Trả lời

• Uses là từ khóa để khai báo yếu tố gì?

  31/10/2022 |   1 Trả lời

• Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?

  01/11/2022 |   1 Trả lời

• Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.

  viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b