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

0 bình luận về “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”

1. 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;

   Trả lời