Câu 1: Hãy tìm và sửa lỗi sai trong chương trình sau:

Program  Bai tap 1;

Uses  crt ;

Var  a, b: Integer;

       c: Real;

Begin

Clrscr;

Writeln('Nhap a va b:' ) ;

Readln(a,b);

c := (a*b)+a/b;

Write('Ket qua la: ', c);

Delay(5000);

End.

Câu 2: Em hãy sắp xếp thứ tự các câu lệnh dưới đây để được một chương trình đơn giản trong

Pascal?

Program  Sapxepcaulenh;

Uses crt;

Var  x,y: Integer;

Begin

Write(‘Nhap gia tri so nguyen cho bien x va y: ’);

Readln(x,y);

Writeln(‘Ket qua x+y= ’, x+y);

Delay(5000);

End.

Câu 3: Hãy viết chương trình tính và in ra màn hình kết quả của biểu thức Q sau:

 Q= x2 −57y+5xy3−1xy

Gợi ý:

* Xác định các biến sử dụng trong chương trình và kiểu dữ liệu của biến.

var Q, x, y : real;

* Nhập dữ liệu từ bàn phím cho những biến nào?

Nhập dữ liệu từ bàn phím cho biến x và y

* Bằng những câu lệnh gì?

Readln(x, y);

* Chuyển biểu thức toán học trên sang biểu thức có sử dụng các kí hiệu phép toán trong

Pascal và sử dụng câu lệnh gì để tính được kết quả cho Q?

sqr(x) -57*y *5*x*(y*y*y) - 1*x*y

* Xuất kết quả ra màn hình bằng câu lệnh gì?

Xuất kết quả ra bằng câu lệnh writeln , writeln(Q);

* Sắp xếp thứ tự các câu lệnh để hoàn thành chương trình.

var Q, x, y : real;

begin

write('nhap gia tri x, y :');readln(x, y);

Q := sqr(x) -57*y *5*x*(y*y*y) - 1*x*y;

writeln('gia tri cua Q la :', Q);

readln

end.

Câu 4: Hãy viết chương trình tính và in ra màn hình kết quả của biểu thức R sau:  

5*x*y*k – y*(1+x)*(1+x).

program tinh;

var R, x, k, y : real;

uses crt;

begin

clrscr;

write('nhap gia tri x, y, k :');readln(x, y, k);

R :=5*x*y*k – y*(1+x)*(1+x) ;

writeln('gia tri cua R la :', R );

readln

end.

Câu 5: Điền câu lệnh còn thiếu vào đoạn chương trình sau?

Program Cauconthieu;

Uses crt;

Var k, t : integer;

      h : real;

Begin

Clrscr;

Writeln('Nhap gia tri so nguyen cho 2 bien k va t:');

Readln(k, t);

h := k/t;

Write('Ket qua:',h);

Readln;

End.