Câu 48: Hãy cho biết kết quả a,b,c  của chương trình sau  bằng bao nhiêu trong các phương án cho dưới đây?

Var a,b,c:integer;

Procedure tt(  a:integer; var b,c:integer);

Begin

a:=a+1; b:=b+1; c:=a+b;

End;

Begin

a:=1;b:=1;

tt(a,b,c);

Write(‘a=’,a,’b=’,b,’c=’,c);

Readln;

End.

a. a=2 b=2 c=4.

b. a=1 b=1 c=2.

c. a=1 b= 2c=4.

d. a=1 b=2 c=0.

cho chương trình: program vd ; var a,b,c:integer; begin readln(a,b,c); writeln((a+b)/2:2:0,a+b+c,(a*b)); end

Cho chương trình Pascal sau:

Program dientich_duongtron;

uses : crt;

const pi = 3.14;

var dt, r = real;

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng

hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
           Var a,b :=integer;
           Const c :=3;
           Begin
              a :=200
              b :=a/c;
              write(b);
              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.

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.

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.