Pascal: Ô trùng màu {Cần gấp lắm!)
#1
Posted 02-04-2011 - 21:04
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#2
Posted 02-04-2011 - 21:38
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#3
Posted 02-04-2011 - 22:50
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#4
Posted 02-04-2011 - 23:12
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#5
Posted 03-04-2011 - 07:13
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#6
Posted 03-04-2011 - 07:20
Và đây là điều duy nhất ta có thể biết 100% trong tương lai
#7
Posted 03-04-2011 - 07:30
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#8
Posted 03-04-2011 - 07:30
Chương trình nè bạnBÀi này có vẻ hóc búa ấy
var x1,x2,y1,y2:integer;
begin
write('Nhap toa do o thu 1');read(x1,y1);
write('Nhap toa do o thu 2');read(x2,y2);
if (x1+y1)mod 2 = (x2+y2)mod 2 then write('2 o cung mau')
else write('2 o khac mau');
repeat until keypressed;
end.
Và đây là điều duy nhất ta có thể biết 100% trong tương lai
#9
Posted 03-04-2011 - 07:32
Và đây là điều duy nhất ta có thể biết 100% trong tương lai
#10
Posted 03-04-2011 - 07:50
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#11
Posted 03-04-2011 - 09:59
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#12
Posted 03-04-2011 - 10:59
begin
write('Nhap toa do o thu 1');read(x1,y1);
write('Nhap toa do o thu 2');read(x2,y2);
if (x1+x2)mod 2 = (y1+y2)mod 2 then write('2 o cung mau')
else write('2 o khac mau');
end.
Sửa một chút là được
Edited by Duy1995, 03-04-2011 - 11:05.
#13
Posted 03-04-2011 - 13:02
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#14
Posted 03-04-2011 - 13:58
Bạn thử x1=1 y1=1 x2=3 y2=3 xem có được không
Mình chạy nó ra cùng màu mà
#15
Posted 03-04-2011 - 14:11
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#16
Posted 03-04-2011 - 14:16
Program Bt; Var x1,x2,y1,y2:integer; Begin Write('Nhap toa do o 1: '); Readln(x1,y1); Writeln; Write('Nhap toa do o thu 2: '); Readln(x2,y2); If (x1+x2) mod 2 = (y1+y2) then Write('2 o cung mau') Else Write('2 o khac mau'); Readln; End.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#17
Posted 04-04-2011 - 13:04
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#18
Posted 04-04-2011 - 18:52
Có lẽ là sai chỗ đó. Đáng nhẽ ra phải viết làĐây là nguyên văn chương trình của mình, bạn xem có sai sót gì hok
If (x1+x2) mod 2 = (y1+y2) then
If (x1+x2) mod 2 = (y1+y2) mod 2 then
Mà cái readln cuối cùng thì bỏ dấu ";" đi.
Thử sửa lại rồi chạy xem có đc ko.
Edited by phung khac bac linh, 04-04-2011 - 18:58.
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users