Chủ đề này có 12 trả lời

[kaka'sfan]

các bạn xem giùm mình xem mình có làm sai không mà không ra đc kết quả đúng
đề bài là:viết chương trình nhập vào số thực x và kiểm tra xem số đó có chình phương hay không?


var a:real;
t:integer;
begin
Write('nhap a=');readln(a);
if (sqrt(a)=t) and (int(t)=t) then
write('day la so chinh phuong')
else
write('day khong phai là so chinh phuong');
readln;
end.

chạy đc chương trình nhưng mình thử với a=4 thì máy trả lời rằng không phải chính phương
các bạn giúp mình nha

[hieuchuoi@]

sai ở chỗ

if (sqrt(a)=t) and (int(t)=t) then

tại sao sai?

if (sqrt(a)=t)

bạn tự hiểu nhá , chỉ có thể nói thêm là chương trình của bạn, dù nhập số nào đi chăng nữa thì nó đểu bảo là ko là scp
Có thể sửa lại là

var a:real;
t:integer;
begin
Write('nhap a=');
readln(a);
a:=sqrt(a);
t:=int(a);
if a=t then
write('day la so chinh phuong')
else
write('day khong phai là so chinh phuong');
readln;
end.

thêm nữa, ngay từ phần khai báo biến, nếu dùng chương trình của bạn, bạn cho t là integer, nhưng lại gán t = sqrt(a) trong chương trình (tất nhiên dùng chỗ if đó thì sao mà báo lỗi đc )

Bài viết đã được chỉnh sửa nội dung bởi hieuchuoi@: 25-09-2006 - 00:17

[pntruongan]

Real mà là số chính phương được à????
Theo tui nhớ thì số chính phương thuộc tập N mà

[hieuchuoi@]

hơ, bạn ấy gán t = căn bậc 2 của a, lỡ a ko phải số chính phương, t thành real mà khai báo là t là integer cơ mà
(nhưng vì bạn ấy cho vào if nên điều này ko xảy ra)

[pntruongan]

ý tui nói la ở chỗ var a:real; kìa
số thực sao lại là số chính phương? Sai từ trong gốc rồi

[hieuchuoi@]

viết chương trình nhập vào số thực x và kiểm tra xem số đó có chình phương hay không

nhập vào số thực để kiểm tra xem nó có chính phương không chứ có phải là nhập số nguyên vào đâu

[kaka'sfan]

ui thanks bạn nhé!cảm ơn các bạn đã góp ý cho mình

[kaka'sfan]

chít quên .bạn hiếu chuối ơi.làm sao mà gán a:=sqrt(a);đc
với lại nhà mình không hiểu sao lại không gán đc hàm sqrt(x);

[pntruongan]

chít quên .bạn hiếu chuối ơi.làm sao mà gán a:=sqrt(a);đc
với lại nhà mình không hiểu sao lại không gán đc hàm sqrt(x);

Có quái gì không được )
Phép gán luôn được thực hiện sau cùng.

[kaka'sfan]

nhưng cấn đề là không đc tớ cũng không hiểu

[pntruongan]

begin
var a: integer;
a:=6;
a:=sqrt(a);
writeln(a);
end.
xem xem cái này có chạy không, không thì nó báo lỗi gì?????????
Nếu làm hoài không được thì bỏ pascal qua java học

[hieuchuoi@]

cái này mà ko chạy thì đi mua máy mới đi à ko thì làm bộ Pascal mới đi nếu vẫn ko chạy được thì đi hỏi chúa

[nhoc_con_buon]

Tớ nghĩ sai ở chỗ t:integer thì sao mà gán
t:= sqrt(a) được