DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by SHINICHI on Mon 04 Apr 2011, 5:03 pm

Program giaiptbac2;
uses crt;
var a,b,c,d : real;
begin
write('nhap he so a: '); readln(a);
write('nhap he so b: '); readln(b);
write('nhap he so c: '); readln(c);
d:=b*b-4*a*c
if d<0 then write('phuong trinh da cho vo nghiem');
if d=0 then write('nghiem cua phuong trinh la X1=X2=',-b/(2*a));
if d>0 then begin
write('nghiem cua phuong trinh la X1=',(-b+sqrt(d))/(2*a));
write('nghiem cua phuong trinh la X2=',(-b-sqrt(d))/(2*a));
end;
readln
end.
Nếu có chỗ nào sai mong mọi người đóg góp ý kiến. lol! lol! lol!

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
"mọi thứ đều có thể trừ những thứ ko thể" lol! lol! lol!
avatar
SHINICHI
PRO TOÁN
PRO TOÁN

Nam
Tổng số bài gửi : 50
điểm điểm : 98
Birthday : 30/12/1996
Đến từ : VIỆN TOÁN HỌC VN
Job/hobbies : student

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by nobita on Mon 04 Apr 2011, 8:01 pm

ủa bài này ở chuyên mục tin 8 có rồi mà ? nếu đăng tải lại thì xóa bài kia đi nhé ! Smile
avatar
nobita
Quản trị
Quản trị

Nam
Tổng số bài gửi : 90
điểm điểm : 140
Đến từ : Những mùa thu

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by teacher on Mon 04 Apr 2011, 11:56 pm

@SHINICHI đã viết:Program giaiptbac2;
uses crt;
var a,b,c,d : real;
begin
write('nhap he so a: '); readln(a);
write('nhap he so b: '); readln(b);
write('nhap he so c: '); readln(c);
d:=b*b-4*a*c
if d<0 then write('phuong trinh da cho vo nghiem');
if d=0 then write('nghiem cua phuong trinh la X1=X2=',-b/(2*a));
if d>0 then begin
write('nghiem cua phuong trinh la X1=',(-b+sqrt(d))/(2*a));
write('nghiem cua phuong trinh la X2=',(-b-sqrt(d))/(2*a));
end;
readln
end.
Nếu có chỗ nào sai mong mọi người đóg góp ý kiến. lol! lol! lol!
với phần chương trình ở trên thầy thấy cũng khá nhất trí với việc đặt 3 biến nhập từ bàn phím , tuy nhiên chương trình chưa giải quyết được các trường hợp : nếu người nhập giá trị sẽ một lúc nào đó làm cho một hoặc 2 trong 3 giá trị a, b, c bằng 0 thì sao ? liệu có thể dẫn tới vô nghiệm hoặc biểu thức không tính được ==> chương trình bị lỗi hoặc treo máy , ví dụ a = 0 , b = 0 , c = 3 ?
chia lại các trường hợp và đặt điều kiện cho từng trường hợp nhé! Cố lên !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by LeXuanQuocAnh on Thu 29 Dec 2011, 7:46 pm

He he! Bài này ở cuối bài readln thiếu dấu ";" Lỗi này là cơ bản! Cẩn thận bạn nha!
avatar
LeXuanQuocAnh
USES
USES

Nam
Tổng số bài gửi : 18
điểm điểm : 36
Birthday : 19/03/1999
Đến từ : thainguyen

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by teacher on Thu 29 Dec 2011, 8:16 pm

@LeXuanQuocAnh đã viết:He he! Bài này ở cuối bài readln thiếu dấu ";" Lỗi này là cơ bản! Cẩn thận bạn nha!
Quốc Anh à ! em xem lại bạn không bị lỗi đâu trước end không nhất thiết dùng dấu " ; "đâu

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*

avatar
teacher
CỐ VẤN
CỐ VẤN

Nam
Tổng số bài gửi : 352
điểm điểm : 800
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: DÙNG PASCAL ĐỂ GIẢI PT BẬC 2

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết