8,Viết các câu lệnh gán thực hiện tính các giá trị trong chương trình giải phương trình bậc hai. 9, Viết các lệnh cho biến I tự tăng, giảm đi một, hai đơn vị 10, Viết các câu lệnh gán thực hiện hoán đổi giá trị của hai biến a và b (cùng kiểu)

BT8:

Program NN;
Uses crt;
Var a,b,c,delta: extended;
Begin
        Clrscr;
        Write('Nhap a,b,c: '); Readln(a,b,c);
        delta:=sqr(b)-4*a*c;
        If delta<0 then Write('VO NGHIEM');
        If delta=0 then Write('x1 = x2 = ',-b/(2*a));
        If delta>0 then Write('x1 = ',(-b+sqrt(delta))/(2*a),' x2 = ',(-b-sqrt(delta))/(2*a));
        Readln
End.

BT10:

tg:=a;
a:=b;
b:=tg;

Câu 8 :

- d := b * b - 4 * a * c;

- x1 := (- b - sqrt(d)) / (2 * a);

- x2 := (- b + sqrt(d)) / (2 * a);

- x := -b/ (2 * a);

Câu 9 :

- Tăng 1 đơn vị : i := i + 1

- Giảm 1 đơn vị : i := i - 1

- Tăng 2 đơn vị : i := i + 2

- Giảm 2 đơn vị : i := i - 2

Câu 10 :

a := a + b;

b := a - b;

a := a - b;