Bạn Tuấn viết chương trình như sau:

program Tinh toan

uses crt;

var

x, y : integer;

tb = real;

thongbao : integer;

const a := 2;

begin

clrscr;

thongbao := ‘Trung binh cong cua hai so x va y la: ‘;

write(‘Nhap gai tri cho x = ‘); readln(x);

write(‘Nhap gia tri cho y = ‘); readln(y);

tb = (x+y)/a;

writeln(thongbao, tb:2:1);

readln;

end.

a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.

b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.

Các bạn có thể tìm lỗi trong program này giúp tớ được không?

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
else
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
readln;
end.

Nếu các cậu tìm được tớ sai lỗi nào thì comment cho tớ để tớ biết!

10.  Hãy tìm lỗi sai và sửa lại cho đúng.

Uses crt;

Program cau1;

Var  toan ; van; tbc ; anh ,  interger ;

Clrscr  ;

begin

writeln(‘nhap vao diem toan:’) ;   readln(toan)

writeln(‘nhap vao so diem van: ‘) ; readln(van)

writeln(‘nhap vao so diem anh: ‘) ; readln(anh)

 tbc:=(van+toan+anh)/3;

writeln(‘diem trung binh la: ‘, tbc);

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

program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln; end.