Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vui thể thao quà ý nghĩa

Toàn cảnh Vn-Zoom tham gia họp báo Asus Zenfone
kết quả từ 1 tới 10 trên 10
  1. #1
    colonels's Avatar
    colonels vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Sep 2009
    Đến từ
    Heaven
    Bài
    574
    Cảm ơn
    426
    Điểm
    894/129 bài viết
    VR power
    0

    Default [Help] Giải phương trình bậc 2 pascal

    Mọi người xem giùm mình rồi xem có gì sai sót không, vấn đề mình gặp là nếu mình nhập a=0 thì nó k "repeat" mà nó đơ luôn
    Code:
    Program He_so_bac_hai;
    {Tim nghiem phuong trinh bac hai}
    Var
      a, b, c, D, X1, X2 :Real;
    Begin
      Writeln('Nhap he so a khac khong:');
      Readln(a); repeat until a<>0;
      Writeln('Nhap he so b, c:');
      Readln(b, c);
      D :=(b*b-(4*a*c));
      If D<0 then Write('Phuong trinh vo nghiem');
      Readln;
      If D=0 then
     begin
      X1 :=-b/(2*a);
      Writeln('Phuong trinh co nghiem kep X1=X2=',X1:8:2);
      Readln;
     end;
      If D>0 then
     begin
      X1 :=(-b+Sqrt(D))/(2*a);
      X2 :=(-b-Sqrt(D))/(2*a);
      Writeln(Phuong trinh co hai nghiem');
      Writeln('X1=',X1:8:2);
      Writeln('X2=',X2:8:2);
      Readln;
     end;
    End.


    ---------- Bài thêm lúc 18:01 ---------- Bài trước là lúc 17:49 ----------

    ai help với!! hú hú!
    Thay đổi nội dung bởi colonels; 11-11-2011 lúc 18:19.

  2. #2
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.688
    Cảm ơn
    11.981
    Điểm
    5.268/3.029 bài viết
    VR power
    0

    Default

    Mình sửa hộ bạn các lỗi nè, còn thuật toán thì chưa thử, mới sửa các lỗi cú pháp thui:
    Code:
    Program He_so_bac_hai;
    {Tim nghiem phuong trinh bac hai}
    Var
      a, b, c, D, X1, X2 :Real;
    Begin
      Writeln('Nhap he so a khac khong:');
      Readln(a); repeat until a<>0;
      Writeln('Nhap he so b, c:');
      Readln(b, c);
      D :=(b*b-(4*a*c));
      If D<0 then Write('Phuong trinh vo nghiem');
      Readln;
      If D=0 then
     begin
      X1 :=-b/(2*a);
      Writeln('Phuong trinh co nghiem kep X1=X2=',X1:8:2);
      Readln;
     end;
      If D>0 then
     begin
      X1 :=(-b+Sqrt(D))/(2*a);
      X2 :=(-b-Sqrt(D))/(2*a);
      Writeln('Phuong trinh co hai nghiem');
      Writeln('X1=',X1:8:2);
      Writeln('X2=',X2:8:2);
      Readln;
     end;
    End.
    end.
    Nothing is true, everything is permitted

  3. #3
    colonels's Avatar
    colonels vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Sep 2009
    Đến từ
    Heaven
    Bài
    574
    Cảm ơn
    426
    Điểm
    894/129 bài viết
    VR power
    0

    Default

    Trích auauau97 View Post
    Mình sửa hộ bạn các lỗi nè, còn thuật toán thì chưa thử, mới sửa các lỗi cú pháp thui:
    lỗi cú pháp mình sửa đc rồi, còn vấn đề nan giải là làm sao để cái này hoạt động nè bạn:
    Code:
    Writeln('Nhap he so a khac khong:');
      Readln(a); repeat until a<>0;
    trong lúc check, mình nhập a khác 0 thì nó tính đc, còn nhập a=0 thì nó đơ như cây cơ lun

    à, hình như bạn dư chữ end. ở cuối đấy

  4. #4
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.688
    Cảm ơn
    11.981
    Điểm
    5.268/3.029 bài viết
    VR power
    0

    Default

    Trích colonels View Post
    lỗi cú pháp mình sửa đc rồi, còn vấn đề nan giải là làm sao để cái này hoạt động nè bạn:
    Code:
    Writeln('Nhap he so a khac khong:');
      Readln(a); repeat until a<>0;
    trong lúc check, mình nhập a khác 0 thì nó tính đc, còn nhập a=0 thì nó đơ như cây cơ lun

    à, hình như bạn dư chữ end. ở cuối đấy
    bạn dùng code này là ổn nè:
    Code:
    ...
    repeat
      write('Nhap so a <>0:');
      readln(a);
    until a<>0;
    ...
    Nothing is true, everything is permitted

  5. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    colonels (12-11-2011)

  6. #5
    haudaica980's Avatar
    haudaica980 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    còn bật 3 thì giải sao zị

  7. #6
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.688
    Cảm ơn
    11.981
    Điểm
    5.268/3.029 bài viết
    VR power
    0

    Default

    Trích haudaica980 View Post
    còn bật 3 thì giải sao zị
    hình như cũng có công thức giống giải phương trình bậC 2 bạn ạ, bạn vào đây để xem công thức tính nghiệm:
    Nothing is true, everything is permitted

  8. #7
    Air-Bird's Avatar
    Air-Bird vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Feb 2012
    Bài
    12
    Cảm ơn
    4
    Điểm
    4/3 bài viết
    VR power
    0

    Smile

    bạn bị nhầm ở chỗ này:
    " Writeln('Nhap he so a khac khong:');
    Readln(a); repeat until a<>0;"
    nên sửa lại thành
    " repeat
    Writeln('Nhap he so a khac khong:');
    Readln(a);"
    until a<>0;
    repeat <các lệnh> until <điều kiện>;

  9. Có 1 thành viên cảm ơn Air-Bird cho bài viết này:
    auauau97 (08-04-2012)

  10. #8
    xalobuon94's Avatar
    xalobuon94 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jan 2012
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    ai dúp em giai thích cái trong pt bậc 2
    Writeln('X1=',X1:8:2);
    Writeln('X2=',X2:8:2); cai này co người giải thì dùng 5:1 có người thì dùng 6:2 các pro chỉ dáo dùm

  11. #9
    Tham gia
    Apr 2012
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    các pro nào giúp với.
    : Cho chạy chương trình giải phương trình bậc 2 đã được lập trình sẵn.
    + nhập bộ giá trị a=1, b=2, c=1 để delta >=0.
    + nhập bộ giá trị a=1, b=2, c=3 để delta<0 => CT gặp lỗi
    có cách nào viết chương trình này mà ko dùng hàm if mà vẫn đáp ứng yêu cầu trên để lỗi đó xãy ra ko? giúp e với.

  12. #10
    lyvinhloi.cntt's Avatar
    lyvinhloi.cntt vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Dec 2012
    Bài
    748
    Cảm ơn
    63
    Điểm
    208/183 bài viết
    VR power
    0

    Default

    Trích xalobuon94 View Post
    ai dúp em giai thích cái trong pt bậc 2
    Writeln('X1=',X1:8:2);
    Writeln('X2=',X2:8:2); cai này co người giải thì dùng 5:1 có người thì dùng 6:2 các pro chỉ dáo dùm
    Chỉ là canh lề thôi mà, số đầu là chừa khoảng cách, số sau là canh phần thập phân, thường dùng để in số thực
    Trích innocent-1809 View Post
    các pro nào giúp với.
    : Cho chạy chương trình giải phương trình bậc 2 đã được lập trình sẵn.
    + nhập bộ giá trị a=1, b=2, c=1 để delta >=0.
    + nhập bộ giá trị a=1, b=2, c=3 để delta<0 => CT gặp lỗi
    có cách nào viết chương trình này mà ko dùng hàm if mà vẫn đáp ứng yêu cầu trên để lỗi đó xãy ra ko? giúp e với.
    Hàm IF ? IF chỉ là câu lệnh thôi mà ? Hơn nữa bạn có thể kiểm tra 1 số âm hay dương mà không dùng câu lệnh điều kiện không ? Nếu có thì làm theo cách đó đi và mình chẳng trông mong vào kết quả đâu
    Điều quan trọng là Bạn hôm nay có giỏi hơn Bạn hôm qua không, chứ không phải Bạn có giỏi hơn người ta hay không.
    Email liên hệ: Hidden Content

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •