PDA

View Full Version : giải giúp bài pascal zoi'''



Sad†bboy
24-09-2009, 13:25
thầy em pắt làm pt:ax*x + bx + c = 0(a=0)
ax*x + bx + c = 0(a#0)
các pác chỉ dới làm chung một pài lun đóa

kira2010
24-09-2009, 13:55
bài này là dạng cơ bản nhất của lập trình, chỉ cần bạn nắm rõ cách giải thì hoàn toàn giải được ( mà cách giải này nằm ở cấp 2 ). tự mình tìm ra cách giải đi bạn, chứ nếu ngay cả bài căn bản này mà cũng nhờ người khác giải hộ thì bạn không học lập trình khá lên được đâu :)

lehang_gb1
24-09-2009, 16:39
- Nếu a=0 thì phương trình trở thành phương trình bậc nhất
- Nếu a<>0 thì ta giải phưong trình bậc 2 với các điều kiên của Delta
code:
var a,b,c,D,x1,x2:Real;
Begin
Write('Nhap vao a,b,c:');
Readln(a,b,c);
If a=0 then
Begin
if b=0 then
if c=0 then writeln('Pt co vo so nghiem')
else writeln('Phuong trinh vo nghiem')
else writeln('Pt co nghiem duy nhat:',-c/b:5:2);
end
else
Begin
D:=b*b-4*a*c;
if D<0 then write('Pt vo nghiem')
else
Begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('pt co nghiem la:','x1=',x1:5:2,' x2=',x2:5:2);
end;
end;
End.

Sad†bboy
01-10-2009, 06:38
bài này là dạng cơ bản nhất của lập trình, chỉ cần bạn nắm rõ cách giải thì hoàn toàn giải được ( mà cách giải này nằm ở cấp 2 ). tự mình tìm ra cách giải đi bạn, chứ nếu ngay cả bài căn bản này mà cũng nhờ người khác giải hộ thì bạn không học lập trình khá lên được đâu :)
em mới học mà làm sao giải được chứ.hixhix

lehang_gb1
01-10-2009, 08:36
Giải phương trình bậc 2 thì trong SGK tin học 11 đã giải rồi chỉ còn giải phương trình bậc nhất thôi
Nếu bạn mới họct hì viết dễ hiểu hơn như sau:


var a,b,c,D,x1,x2:Real;
Begin
Write('Nhap vao a,b,c:');
Readln(a,b,c);
If (a=0) and( b=0) and (c=0) then writeln('Pt co vo so nghiem');
if (a=0) and (b=0) and (c<>0) then writeln('PT vo nghiem');
if (a=0) and (b<>0) then writeln('Pt co nghiem duy nhat:',-c/b:5:2);
if a<>0 then
Begin
D:=b*b-4*a*c;
if D<0 then write('Pt vo nghiem')
else
Begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('pt co nghiem la:','x1=',x1:5:2,' x2=',x2:5:2);
end;
end;
Readln
End.

real_time
01-10-2009, 10:48
em mới học mà làm sao giải được chứ.hixhix
em đã học giải phương trình bậc 2 chưa? nếu chưa học giải phương trình bậc 2 thì đừng nghĩ đến chuyến lập trình hoặc nhờ người giúp đỡ đi. Vì không biết giải phương trình bậc 2 mà nhờ người giúp đỡ thì cuối cùng cũng chỉ là chép lại code của người ta mà thôi.

duykhuong-it
03-10-2009, 16:42
em mới học mà làm sao giải được chứ.hixhix

Mới học mà cho ra bài này thì khó thật, hồi em mới học người ta cho tính diện tích đa giác hay bảng nhập điểm cho một lớp thì em đã muốn ngất rồi

Sad†bboy
13-11-2009, 17:27
em đã học giải phương trình bậc 2 chưa? nếu chưa học giải phương trình bậc 2 thì đừng nghĩ đến chuyến lập trình hoặc nhờ người giúp đỡ đi. Vì không biết giải phương trình bậc 2 mà nhờ người giúp đỡ thì cuối cùng cũng chỉ là chép lại code của người ta mà thôi.
giải ptb2 thì dễ ợt nhưng viết ct thì phải từ từ mới pít chứ

huytoancau87
05-11-2010, 01:06
Em cần lời giải vào ngày mai : HELP ME !
Hãy chuyển các biểu thức trong Pascal dưới đây sang biểu thức toán học tương ứng:
a) a/b*2; b) a*b*c/2;
c) 1/a*b/c d) b/sqrt(a*a=b
Giúp em ngay nha em đang rất cần