THPT Thạch Thất - Hà Nội

_ Welcome To Forum My School Thạch Thất _


    bài giải PT bậc 2 dùng Pascal

    Share
    avatar
    paxcan_7293
    Thành Viên Mới
    Thành Viên Mới

    Tổng số bài gửi : 9
    Điểm : 20
    Danh Tiếng : 0
    Join date : 16/10/2010
    Age : 24
    Đến từ : Thạch Thất Hà Nội

    bài giải PT bậc 2 dùng Pascal

    Bài gửi  paxcan_7293 on Sun Oct 17, 2010 9:55 am

    program giai_ptbac2;
    uses crt;
    var a,b,c:integer;
    x1,x2,D:real;

    begin

    clrscr;
    writeln('DAY LA CHUONG TRINH GIAI PT BAC 2 TREN PASCAL') ;
    writeln('----------------------*****------------------');
    writeln('nhap gia tri cua a,b,c:');
    readln(a,b,c);
    D:=b*b-4*a*c;

    if D<0 then writeln('phuong trinh vo nghiem')
    else if D=0 then writeln('phuong trinh co nghiem kep x =',-b/2*a:6:2)
    else begin
    x1:=(-b-sqrt(D))/(2*a); x2:=-b/a-x1;
    writeln('nghiem thu nhat x1=',x1:6:2);
    writeln('nghiem thu hai x2=',x2:6:2);
    end;
    readln
    end.


    Được sửa bởi paxcan_7293 ngày Sun Oct 17, 2010 11:53 am; sửa lần 1.

    CN41
    Mod
    Mod

    Tổng số bài gửi : 3
    Điểm : 6
    Danh Tiếng : 0
    Join date : 17/10/2010

    Re: bài giải PT bậc 2 dùng Pascal

    Bài gửi  CN41 on Sun Oct 17, 2010 11:03 am

    hic hic đồng chí ơi nhỡ ai đó lỡ tay thay vì nhập số họ lai nhập chữ thì làm thế nào??
    avatar
    paxcan_7293
    Thành Viên Mới
    Thành Viên Mới

    Tổng số bài gửi : 9
    Điểm : 20
    Danh Tiếng : 0
    Join date : 16/10/2010
    Age : 24
    Đến từ : Thạch Thất Hà Nội

    Re: bài giải PT bậc 2 dùng Pascal

    Bài gửi  paxcan_7293 on Sun Oct 17, 2010 11:52 am

    CN41 đã viết:hic hic đồng chí ơi nhỡ ai đó lỡ tay thay vì nhập số họ lai nhập chữ thì làm thế nào??

    hihi khi đó sẽ báo lỗi bắt ta nhập lại vì không đúng kiểu dữ liệu mà./.
    bài này còn có cách giải khác : phải kiểm tra Hệ số A để đảm bảo là Pt Bậc 2 .dùng câu lệnh Repeat Until .Nhưng các bạn chưa được học mới học đến If --Then or If - then -else

    Sponsored content

    Re: bài giải PT bậc 2 dùng Pascal

    Bài gửi  Sponsored content


      Hôm nay: Mon Nov 20, 2017 4:31 am