Var a,b:byte;
Procedure AK(x:byte; Var y:byte;);
Begin
Writeln(x,’ ‘,y);
X:=x+4;
Y:=y+8;
Writeln (x,’ ‘,y);
End;
Begin
a=5; b=7;
TD(a;b);
Writeln (a,’ ‘,b);
Readln.
End.
Sửa lỗi sai và cho biết kết quả

Question

aivilan · Answer

lỗi:       - chưa x&acirc;y dựng chương tr&igrave;nh con c&oacute; t&ecirc;n TD       - sau readln l&agrave; dấu chấm       kết quả: chương tr&igrave;nh b&aacute;o lỗi

Var a,b:byte; Procedure AK(x:byte; Var y:byte;); Begin Writeln(x,’ ‘,y); X:=x+4; Y:=y+8; Writeln (x,’ ‘,y); End; Begin a=5; b=7; TD(a;b); Writeln

0 bình luận về “Var a,b:byte; Procedure AK(x:byte; Var y:byte;); Begin Writeln(x,’ ‘,y); X:=x+4; Y:=y+8; Writeln (x,’ ‘,y); End; Begin a=5; b=7; TD(a;b); Writeln”

Viết một bình luận Hủy