Giải pt ax2 +bx +c =0 .viết chương trình con thực hiện các việc sau :
Nhập hệ số
Tính ∆
Xét ∆
Viết chương trình chính .
Giải pt ax2 +bx +c =0 .viết chương trình con thực hiện các việc sau :
Nhập hệ số
Tính ∆
Xét ∆
Viết chương trình chính .
bài giải
program giai_bac_2;
uses crt;
var a,b,c,d:integer;
{—nhap—}
procedure nhapso;
begin
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
end;
{—tinh-delta—}
procedure delta;
begin
d:=b*b-4*a*c;
writeln(‘delta la: ‘,d);
end;
{—Xet-delta—}
procedure xet_delta;
begin
if d<0 then write(‘Phuong trinh vo nghiem’);
if d=0 then write(‘Phuong trinh co 1 nghiem kep: x1=x2= ‘,-b/(2*a):0:3);
if d>0 then
begin
writeln(‘Phuong trinh co 2 nghiem phan biet: ‘);
writeln(‘x1= ‘,(-b+sqrt(d))/(2*a):0:3);
writeln(‘x1= ‘,(-b-sqrt(d))/(2*a):0:3);
end;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
nhapso;
delta;
xet_delta;
readln;
end.