Ðề tài: Lập trình cấu trúc_help

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?

View more random threads:

• Cho mình hỏi về backup trong Win7
• Xét xem xâu đó có phải là xâu đối xứng hay không?
• Cách vẽ đường tròn ngoại tiếp tam giác?
• Nhờ giúp đỡ ....tks
• Xin Microsoft Office 2007 và Microsoft Office 2010
• Hỏi về hạn chế truy cập mạng
• Bài này giải như thế nào nhỉ...???
• cửa hàng bán lẻ máy tính nào mà hàng chất lượng chút...
• Viết chương trình thực hiện các công việc
• Hỏi về nguyên nhân không vào được web

Nguồn: http://diendankienthuc.net.

Nguyên văn bởi 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?

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. :D Nguồn: http://diendankienthuc.net.

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; Nguồn: http://diendankienthuc.net.

Nguyên văn bởi 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;

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. Nguồn: http://diendankienthuc.net.