lucnguyen_pro_vn
Hạ Sĩ
|
Age : 32
Registration date : 29/08/2008
Tổng số bài gửi : 19
Đến Từ : Viet Nam
Nghề :
Châm ngôn ưa thích :
|
|
 Tiêu đề: BT PASCAL-GIAI PTBAC2 Fri Oct 03, 2008 7:15 pm |
|
|
program GPTB2;
var a,b,c,d,x1,x2:real;
begin
write('a=,b=,c=:'); read(a,b,c)
d:=sqt(b)-4*a*c;
writeln('delta d=',d);
if d<0 then write('PTVN')
else
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('nghiem x1=',x1,'nghiem x2=',x2);
end;
readln;
end.
NGUYEN DAC LUC-11A2 |
 |
|
|
Admin
Thiếu Tá
|
Age : 32
Registration date : 25/08/2008
Tổng số bài gửi : 165
Đến Từ : Việt Nam!
Nghề : Ranker
Châm ngôn ưa thích : Lúc nhỏ tôi nghĩ tiền là tất cả. Nhưng! Lớn lên tôi mới biết đó là sự th
|
|
| Tiêu đề: Re: BT PASCAL-GIAI PTBAC2 Fri Oct 03, 2008 11:08 pm |
|
|
Đã test lỗi sai nên không chạy dc!(kh6ong tính thiếu các dấu ;
bản tẽt đây |
|
|
|
lucnguyen_pro_vn
Hạ Sĩ
|
Age : 32
Registration date : 29/08/2008
Tổng số bài gửi : 19
Đến Từ : Viet Nam
Nghề :
Châm ngôn ưa thích :
|
|
| Tiêu đề: Re: BT PASCAL-GIAI PTBAC2 Sat Oct 04, 2008 1:33 pm |
|
|
| Bo sung: thieu cai dau ";" o hang thu 4. |
|
|
|
Sponsored content
|
| Tiêu đề: Re: BT PASCAL-GIAI PTBAC2 |
|
|
|
|
|
|
|
Calendar
