Lập trình cấu trúc_help

[traithainguyen9]

mọi người giúp mình với nhé.

bài .cho chương trình sau:
var a,b,c:integer;
procedure ts1(a:integer; var b:integer;c:integer);
begin

a:a+1;b:div a; c=a+b; b:c mod 2;
writeln (a,'#',b,'#',c);

end;

begin
a:6; b:=16; c:=24;
ts1 (a,b,c+a);
writeln( a,'#',b,'#',c);
ts1( a,b,c);
readln;
end.

cho bit kết quả ra màn hình? giai thich?

 

[dailuong]

mọi người giúp mình với nhé.

bài .cho chương trình sau:
var a,b,c:integer;
procedure ts1(a:integer; var b:integer;c:integer);
begin

a:a+1;b:div a; c=a+b; b:c mod 2;
writeln (a,'#',b,'#',c);

end;

begin
a:6; b:=16; c:=24;
ts1 (a,b,c+a);
writeln( a,'#',b,'#',c);
ts1( a,b,c);
readln;
end.

cho bit kết quả ra màn hình? giai thich?

Mấy dấu : đó có ý nghĩa gì vậy bạn? Mình nghĩ là không có operator đó. Hoặc mình quên.

 

[traithainguyen9]

hình như chép nhầm một chút rùi. dailuong giup mình nhé. cảm ơn trước nha.

a:=a+1;b:=div a; c:=a+b; b:=c mod 2;

 

[dailuong]

hình như chép nhầm một chút rùi. dailuong giup mình nhé. cảm ơn trước nha.

a:=a+1;b:=div a; c:=a+b; b:=c mod 2;

b bằng cái gì div a. :S

Muốn biết kết quả như thế nào thì bạn nên code thử sẽ biết. Còn muốn hiểu chương trình sẽ chạy như thế nào thì debug đi. Nếu không rõ hãy hỏi.