-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’-
Chúc mừng bạn đã đăng nhập thành công. Xin chờ giây lát để trở về trang chủ forum.
-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’-
Chúc mừng bạn đã đăng nhập thành công. Xin chờ giây lát để trở về trang chủ forum.
-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’-
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng NhậpĐăng Nhập  
Lưu ý: Gõ Tiếng Việt có dấu, viết đúng chính tả
 Bá Khả (3384)
 >>>lonely<<< (1710)
 quythanhkhuu (1304)
 kendy_girl202 (1043)
 truc_quynh_1994 (885)
 peheophuthuy (767)
 [A]chijioltiz[o] (711)
 Svat_94 (536)
 [P]....[lẶng]im..... (495)
 Su_147617 (426)

Share | 

 

 Pascal-Giải pt bậc 2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Pascal-Giải pt bậc 2 EmptyMon Apr 12, 2010 4:18 pm

Su_147617
.♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Su_147617

Tiến Sĩ
Tiến Sĩ

http://hocscinhbentre.ifno
Giới tính : Nữ
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 426
Tài khoản Tài khoản : 608
Được cảm ơn : 27
Sinh nhật Sinh nhật : 30/10/1994
Tuổi Tuổi : 28
Đến từ Đến từ : chỗ tui ở :D
Châm ngôn Châm ngôn : .♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Level: 28 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 28/100

Bài gửiTiêu đề: Pascal-Giải pt bậc 2

 
program giaiptbac2;
uses crt;
var a,b,c:integer; D,x1,x2:real; k:byte;
TiepTuc:Boolean;
{--------------------------------------}
PROCEDURE INPUT;
BEGIN
clrscr;
write('Nhap so a:'); readln(a);
write('Nhap so b:'); readln(b);
write('Nhap so c:'); readln(c);
END;
{--------------------------------------}
PROCEDURE QUERY;
Var ch:char;
BEGIN
writeln;
Write('Tiep tuc (C/K):');
REPEAT
ch:=Readkey;
UNTIl ch in ['c','C','k','K'];
Writeln(ch);
TiepTuc:=(Upcase(ch)='C');
(*
IF Upcase(ch)='K' THEN
TiepTuc:=FALSE;
*)
END;

{--------------------------------------}
PROCEDURE PROCESS;
BEGIN
if a = 0 then
if b = 0 then
if c= 0 then
begin
Write('pt vo so nghiem');
readln;
end
else
begin
Write('pt vo nghiem');
readln;
end
else
begin
Write('pt co 1 nghiem:',(-c/b):0:2);
readln;
end
else
begin
D:=b*b-4*a*c;
if D = 0 then
begin
Write('pt co nghiem kep:',(-b/(2*a)):0:2);
readln;
end
else
if D > 0 then
begin
x1:=(-b + sqrt(D))/(2*a);
x2:=(-b - sqrt(D))/(2*a);
Write('pt co 2 nghiem pb:',x1:0:2,' va ',x2:0:2);
readln;
end
else
begin
Write('pt vo nghiem');
readln;
end;
end;
END;
{--------------------------------------}
begin
TiepTuc:=TRUE;
repeat
INPUT;
PROCESS;
QUERY;
until not TiepTuc;
Writeln('Cham dut chuong trinh');
end.
===================================
p/s: chương trình do Su vjk, có saj xjn chỉ giùm nha vui vẻ


Số lần được cảm ơn : Message reputation : 100% (1 vote)


Pascal-Giải pt bậc 2 EmptyWed Apr 14, 2010 3:58 pm

[A]chijioltiz[o]
How best to keep a promise not to promise anything.
[A]chijioltiz[o]

Phó Giáo Sư
Phó Giáo Sư

http://www.chuyentoan0912.forumvi.com/
Giới tính : Nam
Cung : Hổ Cáp
Tổng số bài gửi Tổng số bài gửi : 711
Tài khoản Tài khoản : 1154
Được cảm ơn : 16
Sinh nhật Sinh nhật : 22/12/1994
Tuổi Tuổi : 28
Đến từ Đến từ : Giong Trom Ben Tre
Châm ngôn Châm ngôn : How best to keep a promise not to promise anything.
Level: 28 Kinh nghiệm: 711%
Sinh mệnh: 711/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
Cám ơn về sự tích cực Post bài của bạn nhưng tui chắc chắn một điều rằng: Trừ lớp chuyên tin và các lớp có học qua thì chẳng ai hiểu cả. Nói đừng buồn!


Pascal-Giải pt bậc 2 EmptyThu Apr 15, 2010 6:03 pm

Su_147617
.♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Su_147617

Tiến Sĩ
Tiến Sĩ

http://hocscinhbentre.ifno
Giới tính : Nữ
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 426
Tài khoản Tài khoản : 608
Được cảm ơn : 27
Sinh nhật Sinh nhật : 30/10/1994
Tuổi Tuổi : 28
Đến từ Đến từ : chỗ tui ở :D
Châm ngôn Châm ngôn : .♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Level: 28 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
uhm..hajzz, năm sau b cũng gặp àh cười nhăn răng


Pascal-Giải pt bậc 2 EmptyFri Apr 16, 2010 5:21 pm

dark_wing0711
dark_wing0711

Bé Đi Nhà Trẻ
Bé Đi Nhà Trẻ

Giới tính : Nam
Tổng số bài gửi Tổng số bài gửi : 3
Tài khoản Tài khoản : 7
Được cảm ơn : 0
Level: Kinh nghiệm: 3%
Sinh mệnh: 3/100
Pháp lực: /100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
Năm sau gặp là cái chắc, cái này nằm trong chương trình học bình thường, tới chừng gặp mới tá hỏa à nha khóc rồi nè khóc rồi nè khóc rồi nè


Pascal-Giải pt bậc 2 EmptyFri Apr 16, 2010 8:47 pm

Uchiha_Itachi
quân ra trận bỏ chay là hèn, anh em đánh tiếp, tôi về xin thêm chi viện
Uchiha_Itachi

Học Sinh Cấp II
Học Sinh Cấp II

Giới tính : Nam
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 79
Tài khoản Tài khoản : 104
Được cảm ơn : 6
Sinh nhật Sinh nhật : 23/10/1994
Tuổi Tuổi : 28
Đến từ Đến từ : thành phố Bến Tre
Châm ngôn Châm ngôn : quân ra trận bỏ chay là hèn, anh em đánh tiếp, tôi về xin thêm chi viện
Level: 28 Kinh nghiệm: 79%
Sinh mệnh: 79/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
thế có cần chép lại để nhớ không zậy Dark người ngoài hành tin


Pascal-Giải pt bậc 2 EmptySat Apr 17, 2010 10:17 am

[A]chijioltiz[o]
How best to keep a promise not to promise anything.
[A]chijioltiz[o]

Phó Giáo Sư
Phó Giáo Sư

http://www.chuyentoan0912.forumvi.com/
Giới tính : Nam
Cung : Hổ Cáp
Tổng số bài gửi Tổng số bài gửi : 711
Tài khoản Tài khoản : 1154
Được cảm ơn : 16
Sinh nhật Sinh nhật : 22/12/1994
Tuổi Tuổi : 28
Đến từ Đến từ : Giong Trom Ben Tre
Châm ngôn Châm ngôn : How best to keep a promise not to promise anything.
Level: 28 Kinh nghiệm: 711%
Sinh mệnh: 711/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
Người ta thường nói thế này:
Tính trước ắc chắc bước hổng qua
Nên thui đừng tính chi thêm mệt
Để đầu để óc thảnh thảnh thơi (đi)...


Pascal-Giải pt bậc 2 EmptySat Apr 17, 2010 6:11 pm

Su_147617
.♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Su_147617

Tiến Sĩ
Tiến Sĩ

http://hocscinhbentre.ifno
Giới tính : Nữ
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 426
Tài khoản Tài khoản : 608
Được cảm ơn : 27
Sinh nhật Sinh nhật : 30/10/1994
Tuổi Tuổi : 28
Đến từ Đến từ : chỗ tui ở :D
Châm ngôn Châm ngôn : .♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Level: 28 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
vô tư..năm sau đừng để bị khống chế môn tin nha cười nhăn răng


Pascal-Giải pt bậc 2 EmptyFri Jun 04, 2010 9:14 pm

Bá Khả
Tôi đã được học rằng, biết cách tha thứ cho người khác thôi chưa đủ, phải biết cách tha thứ cho bản thân mình.
Bá Khả

Cauchy
Cauchy

https://chuyentoan0912.forumvi.com
Giới tính : Nam
Cung : Thiên Bình
Tổng số bài gửi Tổng số bài gửi : 3384
Tài khoản Tài khoản : 5289
Được cảm ơn : 43
Sinh nhật Sinh nhật : 30/09/1994
Tuổi Tuổi : 28
Đến từ Đến từ : Cái chỗ đó đó...
Châm ngôn Châm ngôn : Tôi đã được học rằng, biết cách tha thứ cho người khác thôi chưa đủ, phải biết cách tha thứ cho bản thân mình.
Level: 28 Kinh nghiệm: 3384%
Sinh mệnh: 3384/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
cái này sao tui nhập a=1 b=2 c=1 vn vậy?
có cách nào paste wa pascal cho đúng ko? nhìu khi tui gõ sai...


Pascal-Giải pt bậc 2 EmptySat Jun 05, 2010 8:15 pm

Su_147617
.♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Su_147617

Tiến Sĩ
Tiến Sĩ

http://hocscinhbentre.ifno
Giới tính : Nữ
Cung : Bò Cạp
Tổng số bài gửi Tổng số bài gửi : 426
Tài khoản Tài khoản : 608
Được cảm ơn : 27
Sinh nhật Sinh nhật : 30/10/1994
Tuổi Tuổi : 28
Đến từ Đến từ : chỗ tui ở :D
Châm ngôn Châm ngôn : .♥..Love starts with a smile :D, develops with a kiss :* and ends with tears :((..♥.
Level: 28 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
copy wa word rồi dzô pascal mở từ trong word ra


Pascal-Giải pt bậc 2 EmptySun Jun 06, 2010 1:04 pm

Uchiha_Sasuke
Uchiha_Sasuke

Thạc Sĩ
Thạc Sĩ

Giới tính : Nam
Cung : Kim Ngưu
Tổng số bài gửi Tổng số bài gửi : 329
Tài khoản Tài khoản : 499
Được cảm ơn : 4
Sinh nhật Sinh nhật : 12/05/1994
Tuổi Tuổi : 28
Đến từ Đến từ : bung me
Level: 28 Kinh nghiệm: 329%
Sinh mệnh: 329/100
Pháp lực: 28/100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 
ah nhìu cái lệnh mới wa chã bik tác dụng j cả bó tay roy` nhưng hình như cái nì có chạy liên tục luôn fải k??


Pascal-Giải pt bậc 2 Empty

Sponsored content



Level: Kinh nghiệm: %
Sinh mệnh: /100
Pháp lực: /100

Bài gửiTiêu đề: Re: Pascal-Giải pt bậc 2

 

 

Pascal-Giải pt bậc 2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
-‘๑’- Chuyên Toán Bến Tre 09-12 -‘๑’- :: -‘๑’-Phòng Tin Học-‘๑’- :: -‘๑’- Lập Trình -‘๑’--
Có Bài Mới Có bài mới đăngChưa Có Bài Mới Chưa có bài mới
Fixed and up by [A]dmin .
Copyright © 2007 - 2010, cHuYeNtOaN0912.fOrUm-vIeT.nEt .
Powered by phpBB2 - GNU General Public License. Host in France. Support by Forumotion.
Xem tốt nhất ở độ phần giải lớn hơn 1280x1024 và trình duyệt Firefox
Get Firefox Now Get Windows Media Player Now
Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất