giúp em bt pascal !

[muacauvong_2106]

anh chị giúp em bài tập pascal này đi, em viết mãi mà không được. hic. giúp em với. em cảm ơn và hậu tạ

cho 2 số x,y hoán đổi vị trí 2 số x,y đó cho nhau. viết chương trình.
t:=x;
x:=y;
y:=t;

Xem thêm chủ đề ngẫu nhiên :

• ►Môn Học Bạn Yêu Thích Nhất
• ►Gỡ rối win
• ►Năm sau chưa thi “hai trong một”
• ►Bộ ảnh lực lượng tăng - thiết giáp tại Việt Nam
• ►Trắc nghiệm sử
• ►thơ tình toán học
• ►Những Mẹo Nhỏ Khi Làm Trắc Nghiệm
• ►EU
• ►HỒ CHÍ MINH - Vị cha già của dân tộc VIỆT NAM
• ►Lịch sử Trái Đất qua hình ảnh
• ►Các vấn đề liên quan đến các kì thi tốt nghiệp và CĐ, ĐH
• ►10 vị tướng giỏi nhất mọi thời đại, tự hào Việt Nam mình...
• ►Những Cái "Nhất" Của Vua Chúa Việt Nam
• ►Đề cương Tốt nghiệp Sử phần Việt Nam (Tham khảo)
• ►HIV và những điều nên biết về HIV

[nguyenthanhduong]

uses crt;
var x,y,tam:integer;
begin
clrscr;
write('nhap x:');readln(x);
write('nhap y:');readln(y);
tam:=x;
x:=y;
y:=tam;
writeln('hai so sau khi hoan doi la:');
write('x=',x);writeln;
write('y=',y);
readln;
end.

[boycool]

Ủa, mình đâu cần đặt begin... end; (phần con phía dưới ák) trong phần thân đâu đúng hok anh?

[nguyenthanhduong]

Đúng rồi em. Anh làm dư chỗ đó! Cảm ơn em nha! Nếu em có cách làm nào hay hơn thì cứ post lên cho mọi người cùng tham khảo với nha, chưa hẳn cách này là hay nhất đâu.

[băng]

hồi lớp 10 pascal mình đc 10. mà giờ kg biết cái gì luôn toàn copy paste của bọn nó

[muacauvong_2106]

.....................em cảm ơn, cảm ơn anh dương và anh băng nhiều. ..................

[băng]

đúng gòi, cảm ơn anh kia vì giúp tìm cách giải, còn cảm ơn anh vì chỉ cách đc 10 phẩy hen

[noname655]

uses crt;
var x,y :interger;
begin
write('nhap x,y '); readln(x,y);
x := x+y;
y := x-y;
x := x-y;
write('2 so sau khi hoan doi la: x= ',x, '   y=',y);
readln;
end.

cái này thì không cần dùng biến tạm

[muacauvong_2106]

uses crt;
var x,y :interger;
begin
write('nhap x,y '); readln(x,y);
x := x+y;
y := x-y;
x := x-y;
write('2 so sau khi hoan doi la: x= ',x, '   y=',y);
readln;
end.

cái này thì không cần dùng biến tạm

em chưa hiểu lắm, tại sao x:=x+y; mà phía dưới lại là x:=x-y; ?????
cái này khi hoán đổi em hiểu như vầy không biết có đúng không : ví dụ 2 viên phấn trên tay, ta không thể nào đổi chúng trên tay vì khi đó chúng sẽ trùng nhau nên phải đặt 1 viên phấn xuống và di chuyển viên phấn kia tới vị trí viên phấn được đặt xuống nên sẽ cần có 1 biến trung gian chứ anh???

+1 EXP

[nguyenthanhduong]

em chưa hiểu lắm, tại sao x:=x+y; mà phía dưới lại là x:=x-y; ?????
cái này khi hoán đổi em hiểu như vầy không biết có đúng không : ví dụ 2 viên phấn trên tay, ta không thể nào đổi chúng trên tay vì khi đó chúng sẽ trùng nhau nên phải đặt 1 viên phấn xuống và di chuyển viên phấn kia tới vị trí viên phấn được đặt xuống nên sẽ cần có 1 biến trung gian chứ anh???

Thực ra đây chỉ là một thủ thuật thôi em ah (rất hay đó em), khi ta nhập 2 biến x,y thì máy sẽ làm phép tính x:=x+y trước, 2 phép tính còn lại thì máy sẽ lấy kết quả của phép tính trước mà thế vào. Em nhẩm thử rồi sẽ thấy thôi (chỉ là phép toán thôi mà).
vd:
x=3,y=4
b1: gán x:=x+y. Vậy lúc này x sẽ bằng 7.
b2: y=x-y. Vậy lúc này y sẽ bằng 7-4=3=x lúc đầu.
b3: x=x-y. Lúc này x sẽ bằng 7-3=4=y lúc đầu.
Tới đây hiểu chưa em?
Thực ra máy tính nó chỉ biết làm những gì mà mình nhập cho nó. Mình bảo nó làm cái gì trước thì nó sẽ làm cái đó. Nó chỉ biết làm theo tuần tự từ trên xuống thôi em ah.

+1 EXP