Trang Chính
Tìm kiếm
Latest images
Đăng ký
Đăng Nhập
program giai_ptbac2;
uses crt;
var a,b,c:integer;
x1,x2,D:real;
begin
clrscr;
writeln('DAY LA CHUONG TRINH GIAI PT BAC 2 TREN PASCAL') ;
writeln('----------------------*****------------------');
writeln('nhap gia tri cua a,b,c:');
readln(a,b,c);
D:=b*b-4*a*c;
if D<0 then writeln('phuong trinh vo nghiem')
else if D=0 then writeln('phuong trinh co nghiem kep x =',-b/2*a:6:2)
else begin
x1:=(-b-sqrt(D))/(2*a); x2:=-b/a-x1;
writeln('nghiem thu nhat x1=',x1:6:2);
writeln('nghiem thu hai x2=',x2:6:2);
end;
readln
end.
uses crt;
var a,b,c:integer;
x1,x2,D:real;
begin
clrscr;
writeln('DAY LA CHUONG TRINH GIAI PT BAC 2 TREN PASCAL') ;
writeln('----------------------*****------------------');
writeln('nhap gia tri cua a,b,c:');
readln(a,b,c);
D:=b*b-4*a*c;
if D<0 then writeln('phuong trinh vo nghiem')
else if D=0 then writeln('phuong trinh co nghiem kep x =',-b/2*a:6:2)
else begin
x1:=(-b-sqrt(D))/(2*a); x2:=-b/a-x1;
writeln('nghiem thu nhat x1=',x1:6:2);
writeln('nghiem thu hai x2=',x2:6:2);
end;
readln
end.
Được sửa bởi paxcan_7293 ngày Sun Oct 17, 2010 11:53 am; sửa lần 1.
» Người ta bận yêu, còn em bận cô đơn…
» Đông đến làm người ta cô đơn hơn phải không anh?
» Em muốn được ôm anh từ phía sau
» Hãy cho nhau một cơ hội để giãi bày!
» Hãy cho nhau một cơ hội để giãi bày!
» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
» Trái đất này, ba phần tư là nước mắt...
» Để anh kể em nghe về những người phụ nữ anh yêu...
» Thương vội người đến sau...