IndexCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share|
Tiêu đề

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Chuyển đến trang : 1, 2  Next
Tác giảThông điệp

Admin
Admin

Giới tính: Nam Đến từ: TPHCM
Ngày Tham gia: 03/04/2011
Tổng số bài gửi: 2236
Tài năng của Admin
Hạng: Admin
Level:2236
Tài năng:/300


VIP
PRO PRO: 100

Bài gửiTiêu đề: code Giải phương trình bậc 2 bằng pascal 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 .

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://nhatcntt.forumvi.com

nhitran
Trung Binh

Giới tính: Nữ Tuổi: 18
Đến từ: Bà Rịa-Vũng Tàu
Ngày Tham gia: 24/10/2011
Tổng số bài gửi: 16
Tài năng của nhitran
Hạng: Trung Binh
Level:16
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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. 
   
                             

Hãy cám ơn bài viết của nhitran bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên

Admin
Admin

Giới tính: Nam Đến từ: TPHCM
Ngày Tham gia: 03/04/2011
Tổng số bài gửi: 2236
Tài năng của Admin
Hạng: Admin
Level:2236
Tài năng:/300


VIP
PRO PRO: 100

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://nhatcntt.forumvi.com

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

nhitran
Trung Binh

Giới tính: Nữ Tuổi: 18
Đến từ: Bà Rịa-Vũng Tàu
Ngày Tham gia: 24/10/2011
Tổng số bài gửi: 16
Tài năng của nhitran
Hạng: Trung Binh
Level:16
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal Tue Oct 25, 2011 6:26 pm

thanks các anh nhìu :D

Hãy cám ơn bài viết của nhitran bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal Tue Oct 25, 2011 6:34 pm

cu gui thu cho anh co gi anh bao cho :D

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

nhitran
Trung Binh

Giới tính: Nữ Tuổi: 18
Đến từ: Bà Rịa-Vũng Tàu
Ngày Tham gia: 24/10/2011
Tổng số bài gửi: 16
Tài năng của nhitran
Hạng: Trung Binh
Level:16
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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


Hãy cám ơn bài viết của nhitran bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal Tue Oct 25, 2011 7:11 pm

bai ko du em oy

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

Admin
Admin

Giới tính: Nam Đến từ: TPHCM
Ngày Tham gia: 03/04/2011
Tổng số bài gửi: 2236
Tài năng của Admin
Hạng: Admin
Level:2236
Tài năng:/300


VIP
PRO PRO: 100

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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.

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://nhatcntt.forumvi.com

Admin
Admin

Giới tính: Nam Đến từ: TPHCM
Ngày Tham gia: 03/04/2011
Tổng số bài gửi: 2236
Tài năng của Admin
Hạng: Admin
Level:2236
Tài năng:/300


VIP
PRO PRO: 100

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://nhatcntt.forumvi.com

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal Tue Oct 25, 2011 7:19 pm

cho code y

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

Admin
Admin

Giới tính: Nam Đến từ: TPHCM
Ngày Tham gia: 03/04/2011
Tổng số bài gửi: 2236
Tài năng của Admin
Hạng: Admin
Level:2236
Tài năng:/300


VIP
PRO PRO: 100

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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 đó.

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://nhatcntt.forumvi.com

nhitran
Trung Binh

Giới tính: Nữ Tuổi: 18
Đến từ: Bà Rịa-Vũng Tàu
Ngày Tham gia: 24/10/2011
Tổng số bài gửi: 16
Tài năng của nhitran
Hạng: Trung Binh
Level:16
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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.

Hãy cám ơn bài viết của nhitran bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên

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

Giới tính: Nam Tuổi: 20
Đến từ: Ha Noi
Ngày Tham gia: 15/10/2011
Tổng số bài gửi: 138
Tài năng của phuonghuupha_211
Hạng: Có Nhiều Đóng góp Forum
Level:138
Tài năng:/300

Bài gửiTiêu đề: Re: code Giải phương trình bậc 2 bằng pascal 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

Hãy cám ơn bài viết của phuonghuupha_211 bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://www.facebook.com/phuonghuupha

Tiêu đề

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 2 trangChuyển đến trang : 1, 2  Next
::.
Permissions in this forum:Bạn không có quyền trả lời bài viết
NHATCNTT.COME.VN -Forum On Information Technology ::  :: -