Bài tập 8.

program ct;
uses crt;
var a,b,x: real;
    i:string;
begin
    clrscr;
    writeln('Cho ax+b = 0; Nhap lan luot a, b: '); readln(a,b);
    if (a=0) and (b=0) then 
        writeln('x co vo so nghiem')
    else
        begin
        x:=(-b)/a;
        writeln('x = ',x:5:3)
        end;
    writeln(i);
    readln;
end.

Bài tập 9.

program ct;
uses crt;
var a,b,c,D,x1,x2: real;
begin
    clrscr;
    writeln('Cho ax^2 + bx + c = 0 ; Nhap lan luot a, b, c: ');
    readln(a,b,c);
    D:=b*b - 4*a*b;
    writeln('D = ',D);
    if D < 0 then writeln('Phuong trinh vo nghiem.');
    if D = 0 then 
        begin
        x1:= -b/(2*a);
        writeln('x = ',x1);
        end;
    if D > 0 then
        begin
        x1:=(-b+sqrt(D))/(2*a);
        x2:=(-b-sqrt(D))/(2*a);
        writeln('Phuong trinh co 2 nghiem: ');
        writeln('x1 = ',x1:5:3);
        writeln('x2 = ',x2:5:3);
        end;
    readln;
end.

CHO TUI XIN HAY NHẤT

8.

program ct;
uses crt;
var a,b,x: real;
    i:string;
begin
    clrscr;
    writeln('Cho ax+b = 0; Nhap lan luot a, b: '); readln(a,b);
    if (a=0) and (b=0) then 
        writeln('x co vo so nghiem')
    else
        begin
        x:=(-b)/a;
        writeln('x = ',x:5:3)
        end;
    writeln(i);
    readln;
end.

9.

program ct;
uses crt;
var a,b,c,D,x1,x2: real;
begin
    clrscr;
    writeln('Cho ax^2 + bx + c = 0 ; Nhap lan luot a, b, c: ');
    readln(a,b,c);
    D:=b*b - 4*a*b;
    writeln('D = ',D);
    if D < 0 then writeln('Phuong trinh vo nghiem.');
    if D = 0 then 
        begin
        x1:= -b/(2*a);
        writeln('x = ',x1);
        end;
    if D > 0 then
        begin
        x1:=(-b+sqrt(D))/(2*a);
        x2:=(-b-sqrt(D))/(2*a);
        writeln('Phuong trinh co 2 nghiem: ');
        writeln('x1 = ',x1:5:3);
        writeln('x2 = ',x2:5:3);
        end;
    readln;
end.

___________________________________

#Duahauvn