Làm giúp em với

[Pro8x.net]

Giải bài toán : Theo cấu trúc lặp
Biết rằng bộ 3 số nguyên dương a,b,c được gọi là bộ số Pi_ta_go nếu tổng các bình phương của 2 sô bằng bình phương của số còn lại. Viết PT nhập từ bàn phím 3 số nguyên dương a,b,c và kiểm tra xem chúng có là bộ sộ Pi_ta_go hay không ?

Anh nào làm giúp em với

[mr_invincible]

Hình như bài trên không cần phải dùng cấu trúc lặp thì phải
If (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then Writeln('La bộ ba Pitago')
else Writeln('Không là bộ ba Pitago');

[phuclun]

Giải bài toán : Theo cấu trúc lặp
Biết rằng bộ 3 số nguyên dương a,b,c được gọi là bộ số Pi_ta_go nếu tổng các bình phương của 2 sô bằng bình phương của số còn lại. Viết PT nhập từ bàn phím 3 số nguyên dương a,b,c và kiểm tra xem chúng có là bộ sộ Pi_ta_go hay không ?

Anh nào làm giúp em với

Theo cấu trúc lặp là sao nhỉ,mình vẫn chưa hiểu ,bài này chỉ cần if then thôi mà,hay là ý bạn muốn nhập đến khi nào có 3 số Pythagore.Bài này để khỏi phải viết nhiều bạn nhập gán x,y,z lần lượt là bình phương của a,b,c rồi dùng if then để kt xem có cái nào = tồng 2 cái còn lại ko.
''if (x+y=z) or (y+z=x) or (x+z=y) then''
Chúc bạn vui vẻ

[phuclun]

sao dễ quê bác invi thế nhỉ,mới post bài xong thì thấy bài bác nằm chình ình trên đó rồi-->bó tay

[Pro8x.net]

program Pi_ta_go;
uses crt;
var a, b, c: longint;
begin
clrscr;
write('a,b,c:');
readln(a,b,c);
a := sqr(a);
b := sqr(b);
c := sqr(c);
if (a = b+c) or (b = a+c) or (c = b+a) then write('3 canh tao thanh tg vuong')
else writeln('Nothing);
readln;
end.



EM làm như thế này đúng không các bác

[Pro8x.net]

Anh không hiểu bạn hướng dẫn cụ thể đi , Mình kô biết gì về pascal . Giúp mình với

[Pro8x.net]

sửa lại giùm mình với

[Pro8x.net]

ok mình hiểu rồi . THế là song roài hả bạn

[Pro8x.net]

program Pi_ta_go;
uses crt;
var a, b, c: real;
begin
clrscr;
write('a,b,c:');
readln(a,b,c);
a := sqr(a);
b := sqr(b);
c := sqr(c);
if (a = b+c) or (b = a+c) or (c = b+a)
then write('3 canh tao thanh tg vuong')
else writeln('Nothing);
readln;
end.

đúng kô bạn

[phuclun]

quê quá quê quá,lúc đầu bạn làm đúng rồi đó,ko cần phải sưả đâu.Mà sửa vậy cũng đc,ko sao.Đúng là phải tập tạ 7 lần trước khi đánh máy.Xin lỗi đã làm mất thời gian của bạn.

[cashier]

ủa, sao lại phải khai báo kiểu real nhỉ ? Đây toàn là số nguyên cơ mà .
Theo mình , để đáp ứng "nhu cầu " số lớn thì nên khai báo biến kiểu longint :D

[phuclun]

thế mới nói,phát biểu bậy bạ wa',bậy bạ wa'

[Long_Phung]

Pro 8x có thể sẽ bị bannick vì post nhiều bài cùng nội dung ở nhiều thread khác nhau.

[amida]

Tôi nhớ lúc tôi send cái code đó cho bạn, tôi để longint chứ đâu phải real :D

[ngtrhieu0011]

cái bài này, tốt nhứt là nên tự làm.......

[x_hunter]

a := sqr(a);
then write('3 canh tao thanh tg vuong')
else writeln('Nothing);
đúng kô bạn

Chỗ này sai một chút về dấu thôi,sau nothing ấy
chắc là bạn viết thiếu thôi writeln('Nothing');