Câu1: Thể hiện bằng ngôn ngữ Pascal câu nói a/ nếu a>b thì in giá trị của a ra màn hình b/ nếu x>y thì in giá trị của x ra màn hình c/ nếu x>5 thì in thông báo" x lớn hơn 5" ngược lại in ra thông báo " x nhỏ hơn hoặc bằng 5" d/ nếu a>b thì in giá trị của a ra màn hình, ngược lại in giad trị của b Câu 2: Liệt kê các lỗi trong chương trình sau rồi sửa lại: Var a, b := integer; Const c := 3; Begin a:= 5; b:= a/c; Write (b); Readln; End. Câu 3: hãy viết chương trình nhậl vào 1 số nguyên từ bàn phím và in ra giá trị của biến vừa nhập ra màn hình

Câu1 :

a) nếu a > b thì in giá trị của a ra màn hình

=> if a > b then write(a);

b) nếu x > y thì in giá trị của x ra màn hình

=> if x > y then write(x);

c) nếu x > 5 thì in thông báo" x lớn hơn 5" ngược lại in ra thông báo " x nhỏ hơn hoặc bằng 5"

=> if x > 5 then write('x lon hon 5') else write('x nho hon 5 hoac bang 5');

Câu 2 :

Var a, b := integer;

=> dư dấu bằng

=> sai kiểu dữ liệu của biến b

=> sửa : var a : integer; b : real;

Const c := 3;

=> dư dấu hai chấm

=> sửa : const c = 3;

Câu 3 :

uses crt;

var a : integer;

begin

clrscr;

write('nhap so nguyen : ');readln(a);

writeln('so vua nhap la : ', a);

readln

end.

C1:

A, if a>b then writeln(a);

B, if x>y then writeln(x);

C, if x>5 then writeln('x>5') else if x<5 then writeln('x<5') else writeln('x=5');

D, if a>b then writeln(a) else writeln(b);

C2:

lỗi gồm:

Var a, b := integer;

Const c := 3;

sửa lỗi:

var a,b:integer;

const c=3;

C3:

uses crt;

var a:integer;

begin

write('nhap a:');readln(a);

writeln(a);

readln;

end.