Pascal? SGK viết sai hay máy sai?

**beedrill** · 09-23-2009, 05:06 PM

Mọi người giở trang 34 sách tin học 11 ra nhé, em muốn hỏi là tại sao em gõ cái đoạn giải phương trình bậc 2 đó vào, ấn Ctrl + F9 để thực hiện chương trình thì nó cứ hiện ra:

Error 200: Division by zero (lỗi chia cho số 0)

Em đang dùng TP 7.0

Mọi người hãy giúp em giải đáp thắc mắc trên. Em xin cảm ơn

View more random threads:

.

**ButBi** · 09-23-2009, 05:11 PM

Em có thể gõ nguyên văn bài đó vào diễn đàn không? Hiện anh không có SGK tin học 11, nếu em không gõ vào đây được thì em gửi file Pascal ấy (vào file kèm theo) cho anh kiểm tra thử. .

**dailuong** · 09-23-2009, 06:58 PM

có thể do em dùng thư viện crt trong lúc bản pass của em bị thiếu thư viện này. Em thử bỏ câu khai bảo "user crt" và lệnh "clrscr" thử xem .

**pe_uk_kut3** · 09-23-2009, 07:12 PM

hum ny mjnh co kiểm tra mà mjnh chẳng đe ý nua bạn ạ .

**beedrill** · 09-24-2009, 04:47 PM

Em có thể gõ nguyên văn bài đó vào diễn đàn không? Hiện anh không có SGK tin học 11, nếu em không gõ vào đây được thì em gửi file Pascal ấy (vào file kèm theo) cho anh kiểm tra thử.

Đây là nguyên văn bài đó:

program Giai_PTB2;
uses crt;
var a, b, c, D: real;
x1, x2: real;
begin
clrscr;
write ('a, b, c: ');
readln (a, b, c);
D:=b*b-4*a*c;
x1:=(-b-sqrt(D))/(2*a);
x2:=-b/a-x1;
write ('x1=', x1:6:2, 'x2=', x2:6:2);
readln
end.

có thể do em dùng thư viện crt trong lúc bản pass của em bị thiếu thư viện này. Em thử bỏ câu khai bảo "user crt" và lệnh "clrscr" thử xem

Vâng, em sẽ thử và nói kết quả sau .

**ButBi** · 09-24-2009, 06:49 PM

Nguyên văn bởi beedrill

Đây là nguyên văn bài đó:

program Giai_PTB2;
uses crt;
var a, b, c, D: real;
x1, x2: real;
begin
clrscr;
write ('a, b, c: ');
readln (a, b, c);
D:=b*b-4*a*c;
x1:=(-b-sqrt(D))/(2*a);
x2:=-b/a-x1;
write ('x1=', x1:6:2, 'x2=', x2:6:2);
readln
end.

Để giải phương trình bậc 2 ta phải biện luận các hệ số a, b, c. Ở đây bài này nên biện luận như sau:
Nếu a = 0 thì
Nếu b = 0 thì
Nếu c = 0 thì
Ghi ra 'phuong trinh co vo nghiem'
Ngược lại thì ghi ra 'phuong trinh vo nghiem'
Ngược lại thì ghi ra 'phuong trinh co nghiem kep x1 = x2 = ',-c/b
Ngược lại thì
Begin
d:= b*b - 4*a*c;
Ghi ra 'phuong trinh co 2 nghiem phan biet la x1 =',(-b-sqrt(D))/(2*a),'x2 =',(-b+sqrt(D))/(2*a)
End;
End.
Viết như vậy chắc em thể hiện bằng ngôn ngữ Pascal được chứ?
Còn ở bài trên tuy chưa biết hệ số a là bao nhiêu nhưng đã cho x1:=(-b-sqrt(D))/(2*a) thì bị lỗi chia cho 0 là phải rồi. .

**beedrill** · 09-30-2009, 05:52 PM

Để giải phương trình bậc 2 ta phải biện luận các hệ số a, b, c. Ở đây bài này nên biện luận như sau:
Nếu a = 0 thì
Nếu b = 0 thì
Nếu c = 0 thì
Ghi ra 'phuong trinh co vo nghiem'
Ngược lại thì ghi ra 'phuong trinh vo nghiem'
Ngược lại thì ghi ra 'phuong trinh co nghiem kep x1 = x2 = ',-c/b
Ngược lại thì
Begin
d:= b*b - 4*a*c;
Ghi ra 'phuong trinh co 2 nghiem phan biet la x1 =',(-b-sqrt(D))/(2*a),'x2 =',(-b+sqrt(D))/(2*a)
End;
End.
Viết như vậy chắc em thể hiện bằng ngôn ngữ Pascal được chứ?
Còn ở bài trên tuy chưa biết hệ số a là bao nhiêu nhưng đã cho x1:=(-b-sqrt(D))/(2*a) thì bị lỗi chia cho 0 là phải rồi.

Biết lệnh nếu là if nhưng em chưa học về cái này, nên chưa thể dịch sang Pascal ý tưởng của anh được

có thể do em dùng thư viện crt trong lúc bản pass của em bị thiếu thư viện này. Em thử bỏ câu khai bảo "user crt" và lệnh "clrscr" thử xem

Anh dailuong giỏi thật đấy, em vừa bỏ 2 câu đó đi thì chương trình chạy ngon, cảm ơn anh nhiều :):):) .

**nhudragon95** · 10-10-2011, 10:41 PM

sao minh bo hai cau do ma van khong dc .

**kaka:))ud** · 10-15-2011, 07:57 PM

co cach khac phuc loi do la ban copy file TURBO.TPL trong thu muc chinh cua chuong trinh nay de len file TURBO.TPL cu cua ban. .

**angel_18** · 10-15-2011, 08:42 PM

mình cũng học 11 cũng làm được bài này thấy nó chạy bình thường mà nêu bạn thấy nó hok chạy được thì thử bỏ phần khai báo thư viện đii chỉ khai báo biến thôi, .