Pascal: Ô trùng màu {Cần gấp lắm!)
#1
Đã gửi 02-04-2011 - 21:04
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#2
Đã gửi 02-04-2011 - 21:38
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#3
Đã gửi 02-04-2011 - 22:50
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#4
Đã gửi 02-04-2011 - 23:12
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#5
Đã gửi 03-04-2011 - 07:13
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#6
Đã gửi 03-04-2011 - 07:20
Và đây là điều duy nhất ta có thể biết 100% trong tương lai
#7
Đã gửi 03-04-2011 - 07:30
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#8
Đã gửi 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
Đã gửi 03-04-2011 - 07:32
Và đây là điều duy nhất ta có thể biết 100% trong tương lai
#10
Đã gửi 03-04-2011 - 07:50
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#11
Đã gửi 03-04-2011 - 09:59
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#12
Đã gửi 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
Bài viết đã được chỉnh sửa nội dung bởi Duy1995: 03-04-2011 - 11:05
#13
Đã gửi 03-04-2011 - 13:02
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#14
Đã gửi 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
Đã gửi 03-04-2011 - 14:11
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#16
Đã gửi 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
Đã gửi 04-04-2011 - 13:04
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#18
Đã gửi 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.
Bài viết đã được chỉnh sửa nội dung bởi phung khac bac linh: 04-04-2011 - 18:58
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh