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)
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;