Đăng Nhập

Vui lòng khai báo chính xác tên truy cập và mật khẩu!

Quên mật khẩu?

    code Giải phương trình bậc 2 bằng pascal

      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #1

       Thu Aug 11, 2011 9:24 pm

      Giải phương trình:
      Code:

      Code:
      Var a, b, c, x1, x2: real;

      Procedure Nhapabc(var aa,bb,cc: real);
      Begin
      Write('a='); Readln(aa);
      Write('b='); Readln(bb);
      Write('c='); Readln(cc);
      End;

      Procedure GPTB2;
      Var Delta: real;
      Begin
      Delta:=sqr(b)-4*a*c;
      If Delta<0 then Writeln('Phuong trinh vo nghiem.')
      Else
      If Delta=0 then
      Begin
      Write('Phuong trinh co nghiem kep : ');
      Write('x1,2=',-b/(2*a):8:2);
      End
      Else
      Begin
      x1:=(-b+sqrt(Delta))/(2*a);
      x2:=(-b-sqrt(Delta))/(2*a);
      Writeln('Phuong trinh co 2 nghiem phan biet la :');
      Writeln('X1=',x1:8:2,', X2=',x2:8:2);
      End;
      End;

      BEGIN
      Writeln(' Giai Phuong Trinh Bac Hai Voi Cac He So :');
      Nhapabc(a,b,c);
      If a<>0 then GPTB2
      Else Writeln(' Khong phai phuong trinh bac hai ');
      Readln ;
      END .
      Trung Binh
      nhitran

      Giới tính : Nữ

      Tuổi : 28

      Đến từ : Bà Rịa-Vũng Tàu

      Ngày Tham gia : 24/10/2011

      Tổng số bài gửi : 16

      #2

       Mon Oct 24, 2011 10:00 pm

      Mình mới học được tí Pascal, bạn chỉ chổ sai cho mình nha

      Code:
      program PTB2;
      uses      crt;
      var        a,b,c,D: real;
                    x1, x2 : real;
      begin
                    clrscr;
                    write('a= '); readln(a);
                    write('b= '); readln(b);
                    write('c= '); readln(c);
                    D:= sqr(b)-4*a*c;
                    if D<0 then writeln('Phuong trinh vo nghiem');
                    else
                          begin
                                  if D=0 then
                                    begin
                                        writeln('Phuong trinh co nghiem kep')
                                        x1:= -b/(2*a);
                                        writeln('x1=x2= ',x1:1:3);
                                    end;
                                  if D>0 then
                                      begin
                                          writeln('Phuong trinh co hai nghiem phan biet');
                                          x1:= (-b-sqrt(D))/(2*a);
                                          writeln('x1= ',x1:1:3);
                                          x2:= (-b+sqrt(D))/(2*a);
                                          writeln('x2= ',x2:1:3);
                                      end;
                          end;
                      readln
      end. 
         
                                   
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #3

       Mon Oct 24, 2011 11:41 pm

      nhitran đã viết:Mình mới học được tí Pascal, bạn chỉ chổ sai cho mình nha

      Code:
      program PTB2;
      uses      crt;
      var        a,b,c,D: real;
                    x1, x2 : real;
      begin
                    clrscr;
                    write('a= '); readln(a);
                    write('b= '); readln(b);
                    write('c= '); readln(c);
                    D:= sqr(b)-4*a*c;
                    if D<0 then writeln('Phuong trinh vo nghiem');
                    else
                          begin
                                  if D=0 then
                                    begin
                                        writeln('Phuong trinh co nghiem kep')
                                        x1:= -b/(2*a);
                                        writeln('x1=x2= ',x1:1:3);
                                    end;
                                  if D>0 then
                                      begin
                                          writeln('Phuong trinh co hai nghiem phan biet');
                                          x1:= (-b-sqrt(D))/(2*a);
                                          writeln('x1= ',x1:1:3);
                                          x2:= (-b+sqrt(D))/(2*a);
                                          writeln('x2= ',x2:1:3);
                                      end;
                          end;
                      readln
      end. 
         
                                   

      xem so thi y tuong dung rui.e da test chua. test chay ok la dc.
      nhung xai procedure no hay hon.tien cho cac ct dai
      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #4

       Tue Oct 25, 2011 6:24 pm

      pascal thi cu hoi anh nha nhitran ko can phai hoi admin dau admin lau khong dung roi con j kaka
      Trung Binh
      nhitran

      Giới tính : Nữ

      Tuổi : 28

      Đến từ : Bà Rịa-Vũng Tàu

      Ngày Tham gia : 24/10/2011

      Tổng số bài gửi : 16

      #5

       Tue Oct 25, 2011 6:26 pm

      thanks các anh nhìu :D
      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #6

       Tue Oct 25, 2011 6:34 pm

      cu gui thu cho anh co gi anh bao cho :D
      Trung Binh
      nhitran

      Giới tính : Nữ

      Tuổi : 28

      Đến từ : Bà Rịa-Vũng Tàu

      Ngày Tham gia : 24/10/2011

      Tổng số bài gửi : 16

      #7

       Tue Oct 25, 2011 7:00 pm

      hùi sáng này lớp e kt t tiết tin, thầy cho đề cũng dễ nhưng e bị trừ 1 đ mà đến h vẫn chưa rõ

      Code:
      program S_C_HT;
      uses crt;
      [b]var r, S, C: real;
      const pi=3.14;[/b]
      begin
      ....

      chổ in đậm là chổ e sai nhưng e Ctrl + F9 trong Pascal vẫn chạy đc mà, Wink các anh giúp dùm thanks trước


      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #8

       Tue Oct 25, 2011 7:11 pm

      bai ko du em oy
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #9

       Tue Oct 25, 2011 7:12 pm


      code hoàn chỉnh nè
      Code:

      Var
      A, B, C, Delta, X1, X2 : Real;
      Begin
      Repeat
      Write( ' Nhap he so A khac khong :');
      Readln(A);
      Until A<>0;
      Write( ' Nhap cac he so B, C: ');
      Readln(B, C);
      Delta:=B*B - 4*A* C;
      If Delta < 0 then Writeln( ' Phuong trinh vo nghiem ! ');
      If Delta = 0 then
      begin
      X1:=-B/(2*A);
      Writeln(' Phuong trinh co nghiem kep X1=X2 = ' , X1:8:2);
      end;
      If Delta > 0 then
      begin
      X1 := (-B+ Sqrt(Delta) ) / (2*A);
      X2 := (-B - Sqrt(Delta) ) / (2*A);
      Writeln('Phuong trinh co hai nghiem :');
      Writeln('X1= ' , X1:8:2);
      Writeln('X2= ' , X2:8:2);
      end;
      write(' Chuong trinh duoc viet boi Admin - Nhan phim Enter de thoat chuong trinh...');
      Readln;
      End.
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #10

       Tue Oct 25, 2011 7:15 pm

      phuonghuupha_211 đã viết:pascal thi cu hoi anh nha nhitran ko can phai hoi admin dau admin lau khong dung roi con j kaka
      nói vậy chứ kung biết chứ e.a viết được trò games xếp hình bang pascal nữa đó.hj.và phần mềm đặt hình nền cho ổ đĩa hay thư mục nữa đó. Smile
      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #11

       Tue Oct 25, 2011 7:19 pm

      Admin đã viết:
      code hoàn chỉnh nè
      Code:

      Var
      A, B, C, Delta, X1, X2 : Real;
      Begin
      Repeat
      Write( ' Nhap he so A khac khong :');
      Readln(A);
      Until A<>0;
      Write( ' Nhap cac he so B, C: ');
      Readln(B, C);
      Delta:=B*B - 4*A* C;
      If Delta < 0 then Writeln( ' Phuong trinh vo nghiem ! ');
      If Delta = 0 then
      begin
      X1:=-B/(2*A);
      Writeln(' Phuong trinh co nghiem kep X1=X2 = ' , X1:8:2);
      end;
      If Delta > 0 then
      begin
      X1 := (-B+ Sqrt(Delta) ) / (2*A);
      X2 := (-B - Sqrt(Delta) ) / (2*A);
      Writeln('Phuong trinh co hai nghiem :');
      Writeln('X1= ' , X1:8:2);
      Writeln('X2= ' , X2:8:2);
      end;
      write(' Chuong trinh duoc viet boi Admin - Nhan phim Enter de thoat chuong trinh...');
      Readln;
      End.



      lam the nao de dc nhu vay ha admin
      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #12

       Tue Oct 25, 2011 7:19 pm

      cho code y
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #13

       Tue Oct 25, 2011 7:25 pm

      có nhiều cách để giải mà e. kai này ko sử dụng dòng lặp" for" mà xài cách khác.a ko có cài pascal nên ko có .test cho kai bạn kia đc .mà a cho e quản lý chuyên mục này rùi đó.
      Trung Binh
      nhitran

      Giới tính : Nữ

      Tuổi : 28

      Đến từ : Bà Rịa-Vũng Tàu

      Ngày Tham gia : 24/10/2011

      Tổng số bài gửi : 16

      #14

       Tue Oct 25, 2011 7:26 pm


      Biết chết liên!


      Được sửa bởi nhitran ngày Thu Nov 24, 2011 7:44 pm; sửa lần 1.
      Có Nhiều Đóng góp Forum
      phuonghuupha_211

      Giới tính : Nam

      Tuổi : 30

      Đến từ : Ha Noi

      Ngày Tham gia : 15/10/2011

      Tổng số bài gửi : 138

      #15

       Tue Oct 25, 2011 7:27 pm

      em bao lam the nao de dua cho code len chu khopng phai cach lam bai ay
      ac ac cha hieu y em j ca
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #16

       Tue Oct 25, 2011 7:29 pm

      phuonghuupha_211 đã viết:em bao lam the nao de dua cho code len chu khopng phai cach lam bai ay
      ac ac cha hieu y em j ca

      copy paste là xong chứ gì e.
      mã như bên dưới
      Code:

      [code]  nội dung  [/code]
      #17