Jump to content

Photo

Pascal: Ô trùng màu {Cần gấp lắm!)


  • This topic is locked This topic is locked
17 replies to this topic

#1
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Nhập toạ độ 2 ô trên bàn cờ (hàng, cột). Cho biết 2 ô có cùng màu với nhau không?

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#2
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Giúp em với, em cần gấp lắm!!!!!

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#3
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
huhu hok ai chi het ak

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#4
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Chắc chết quá!!!!!

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#5
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Có ai giúp hok?

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#6
l.kuzz.l

l.kuzz.l

    Trung sĩ

  • Thành viên
  • 109 posts
BÀi này có vẻ hóc búa ấy
Chúng ta không thể biết chính xác 100% việc sẽ xảy ra trong tương lai
Và đây là điều duy nhất ta có thể biết 100% trong tương lai


#7
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
l.kuzz.l biết hok giúp em với! Bài này là bài cơ bản ấy, chẳng phải bài nâng cao đâu!

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#8
l.kuzz.l

l.kuzz.l

    Trung sĩ

  • Thành viên
  • 109 posts

BÀi này có vẻ hóc búa ấy

Chương trình nè bạn
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.
Chúng ta không thể biết chính xác 100% việc sẽ xảy ra trong tương lai
Và đây là điều duy nhất ta có thể biết 100% trong tương lai


#9
l.kuzz.l

l.kuzz.l

    Trung sĩ

  • Thành viên
  • 109 posts
Ok chứ bạn
Chúng ta không thể biết chính xác 100% việc sẽ xảy ra trong tương lai
Và đây là điều duy nhất ta có thể biết 100% trong tương lai


#10
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Ủa sao em nhập số nào nó cũng ra "2 o khac mau" vậy. Chắc chương trình này có vấn đề rồi.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#11
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Ai sửa giùm em với!!!!!

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#12
Duy1995

Duy1995

    Hạ sĩ

  • Thành viên
  • 70 posts
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+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 :D

Edited by Duy1995, 03-04-2011 - 11:05.


#13
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Em pó tay òi, nó vẫn ra "2 o khac mau".

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#14
Duy1995

Duy1995

    Hạ sĩ

  • Thành viên
  • 70 posts
Lạ nhỉ? Máy mình chạy bình thường
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
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Nó cũng vậy. Nhập số gì thì nó cũng xuất" 2 ô khác nhau hết"

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#16
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Đây là nguyên văn chương trình của mình, bạn xem có sai sót gì hok

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
pe_kid_55

pe_kid_55

    Hạ sĩ

  • Thành viên
  • 57 posts
Có ai gúp m"nh sửa lỗi hok?

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Sống không phải là tồn tại.

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-


#18
phung khac bac linh

phung khac bac linh

    Hạ sĩ

  • Thành viên
  • 74 posts

Đâ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

Có lẽ là sai chỗ đó. Đáng nhẽ ra phải viết là
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.

Posted Image




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users