[gautuyet_92tq]

xây dưng hàm giải phương trình ax2+ bx+c=0

[nguoivuive]

Program PTB2;
Var
a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC 2');
Writeln('-----------------------');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
Write('-Nhap he so c= ');
Readln(c);
Delta:=sqr(b)-4*a*c;
If Delta < 0 Then
Writeln('+Phuong trinh vo nghiem')
Else
If Delta=0 Then
Begin
X:=-b/2*a;
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);
End
Else
Begin
X1:=-b-Sqrt(Delta)/2*a;
X2:=-b+Sqrt(Delta)/2*a;
Writeln('+Nghiem thu nhat = ',X1:6:2);
Writeln('+Nghiem thu hai = ',X2:6:2);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

[gautuyet_92tq]

đây là giải theo pascal rồi bạn a.

[Autobot2]

Nguyên văn bởi gautuyet_92tq

xây dưng hàm giải phương trình ax2+ bx+c=0

đây nhé bạn;



Hàm set là hàm đặt thuộc tính cho điều khiển
Hàm get là hàm lấy giá trị thuộc tính của điều khiển
Hàm str2double là hàm biến chuỗi thành số

chạy chương trình (nhấn F5 hoặc nút run hình tam giác màu xanh). Nhập vào các hệ số a, b, c và click nút Bat dau để xem thành quả

[gautuyet_92tq]

nhập vào một dãy gồm n số bất kýt hiện trong dãy
in ra man hình giá trị lớn nhất nhỏ nhất trong dãy.có bao nhiêu giá trị chùng với LN,NN như vậy ở các vị trí nào.
tính chung bình cộng các số dương trong dãy,các số chẵn và chia hét cho 5
nhap vào số bát kì và kiểm tra xem số đó có xuất hiện trong dãy hay không nếu cố xuất hiện bao nhiêu lần
in ra màn hình và tính tổng các số nguyên tố và số hoàn hảo
sắp xếp dãy trên theo chiều tăng dần