Sửa lỗi cho chương trình sau :

( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a;  nhập từ bàn phím )

Use crt;

Var a,b,c,h : integer ;

Begin

clrscr;

Readln(a,b,c);

Writeln( a + b + c= '; 'met');

Write ( a*h/2= ','met vuong');

Readln;

End.

2.Cho biết ý nghĩa các câu lệnh trong chương trình sau:

Progam HINH_VUONG;
uses crt;
Var canh:real;
Begin
   clrssr;
   Write(‘nhap do dai canh:’);readln(canh);
   Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);
   Writeln(‘Dien tich hinh vuong la:’canh*canh:10:2);
   readln
end.

Câu 2. Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng.

program tinh tong ;

uses crt ;

var a, b, tong := integer ;

begin

clrscr ;

writeln ( ‘ Nhap so a = ’ );

readln (a) ;

writeln ( ‘ Nhap so b = ’ ) ;

readln (b) ;

tong = a + b ;

writeln ( ‘ Tong cua hai so a va b la: ’ , tong ) ;

readln ;

end

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.

Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a='); readln(a)

Write('nhap b='); readln(b);

Tich:a*b

Writeln('tich cua a va b la:, Tich: 8:20);

Readln;

end;

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.