YOMEDIA
NONE

Viết chương trình giải phương trình bậc hai với yêu cầu sử dụng các chương trình con để giải quyết các trường hợp xãy ra của delta?

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Hoai Hoai

    Program Giai_PT_bac_hai;

    uses crt;

    var a,b,c,delta:real;

    {----------------------}

    Procedure delta_duong;

    begin

    write('Phuong trinh co hai nghiem x1=',(-b+sqrt(delta))/(2*a),'x2=',(-b+sqrt(delta))/(2*a));

    end;

    {---------------------}

    Procedure delta_khong;

    begin

    write('Phuong trinh co nghiem kep x=',-b/(2*a):3:1);

    end;

    {--------------------}

    Procedure delta_am;

    begin

    writeln('Phuong trinh vo nghiem');

    end;

    {Chuong trinh chinh}

    Begin

    clrscr;

    write('Nhap a: ');readln(a);

    write('Nhap b: ');readln(b);

    write('Nhap c: ');readln(c);

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

    if delta>0 then delta_duong

    else if delta = 0 then delta_khong

    else delta_am;

    readln

    end.

      bởi Hoai Hoai 30/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
AANETWORK
OFF