Giúp mình bài pascal này !

[tantran24]

bạn khai báo biến
var x: real;
thì nó sẽ ra số hửu tỉ

bạn hiểu sai ý tớ rồi
Tớ muốn hỏi có bao giờ máy tính đưa ra màn hình kết quả =\sqrt(2) không

[MuRom92]

 
var
   M,N:real;
a,b,c,D,x1,x2:real;
begin
   write('a,b,c:');
   readln(a,b,c);
   D:=b*b-4*a*c;
   if D>=0 then
     begin
       x1:=(-b-sqrt(D))/(2*a);
       x2:=-b/a - x1;
       M:=x1*x1;
       N:=x2*x2;
     end;
   write('x1:', 'can',M);
   write('x2:', 'can',N);
readln;
end.

không bít có sai không mà nó cứ hiện :

lỗi 207:invalid floating point operation

là sao nhĩ?

[blackcatcn]

bạn hiểu sai ý tớ rồi
Tớ muốn hỏi có bao giờ máy tính đưa ra màn hình kết quả =\sqrt(2) không

=\sqrt(2) là 1\sqrt(2) hay là n\sqrt(2) hả bạn?

[thanhlydongden02]

 
var
   M,N:real;
a,b,c,D,x1,x2:real;
begin
   write('a,b,c:');
   readln(a,b,c);
   D:=b*b-4*a*c;
   x1:=(-b-sqrt(D))/(2*a);
   x2:=-b/a - x1;
   M:=x1*x1;
   N:=x2*x2;
   write('x1:', 'can',M);
   write('x2:', 'can',N);
readln;
end.

không bít có sai không mà nó cứ hiện :

lỗi 207:invalid floating point operation

là sao nhĩ?

gianghen này ! nhỡ biệt thức D ( delta ) < 0 thì sao hở bạn ?

bạn hiểu sai ý tớ rồi
Tớ muốn hỏi có bao giờ máy tính đưa ra màn hình kết quả =\sqrt(2) không

cái này thì phải điều khiển việc in bằng các lệnh bạn ạ . Nhưng cũng còn tùy vì với 1 số trường hợp thì đc 1 số thì không .

[anhlinh123]

 
var
   M,N:real;
a,b,c,D,x1,x2:real;
begin
   write('a,b,c:');
   readln(a,b,c);
   D:=b*b-4*a*c;
   x1:=(-b-sqrt(D))/(2*a);
   x2:=-b/a - x1;
   M:=x1*x1;
   N:=x2*x2;
   write('x1:', 'can',M);
   write('x2:', 'can',N);
readln;
end.

không bít có sai không mà nó cứ hiện :

lỗi 207:invalid floating point operation

là sao nhĩ?

Lỗi 207 là lỗi dấu chấm động không hợp lệ. Theo đúng bảng lỗi biên dịch thì là như thế, còn nghĩa của nó thì :emlaugh::emlaugh::emlaugh:..
Chương trình này vướng lỗi ở dòng x1:=_______ ấy. Nhưng lỗi này có nghĩa là gì thì chưa hiểu, mặc dù các phép toán nhìn rất dễ hiểu:emlaugh:

[wassing123]

à ,mình sửa lại rồi.

 if D>= 0 then
            begin
               x1:=...

.

[thaonguyenxanh_9x]

Lỗi 207 là lỗi dấu chấm động không hợp lệ. Theo đúng bảng lỗi biên dịch thì là như thế, còn nghĩa của nó thì :emlaugh::emlaugh::emlaugh:..
Chương trình này vướng lỗi ở dòng x1:=_______ ấy. Nhưng lỗi này có nghĩa là gì thì chưa hiểu, mặc dù các phép toán nhìn rất dễ hiểu:emlaugh:

theo em nghĩ thì lỗi này xảy ra khi có gọi hàm sqrt(D) mà D < 0 .

[nhimbien12]

ừ, mình đã dùng thêm if rồi mà, xem lại đi

[hardest]

Có thể sacklove đúng đấy, vì sqrt là căn bậc hai của 1 số không âm. Thêm if vào chắc được nhỉ.

[haicauhoan]

không đúng, bài đó như thế này chứ:

var N,S,i:integer;
begin
write('so phan tu cua day:');
readln(N);
S:=0;
for i:=1 to N do
 
S:=sqrt(S+sqrt(i));
write('tong la:'S:8:4);
readln
end.

Nhưng mà sao khi chạy chương trình nó lại báo lỗi 26 ở

S:=sqrt(S+(i));

nhĩ?

Chương trình như bạn viết sẽ không tính được đúng như bài toán đó. Bạn test xem lại nhé> Vì nếu như chương trình bạn viết sẽ tính như tieulong giải thích là đúng!