-‘๑’- 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.



 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhó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 
Mon Apr 12, 2010 4:18 pm

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

Tiến Sĩ
Tiến Sĩ

Xem lý lịch thành viên 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 : 23
Đế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: 23 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 23/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)



:.♥️.: Không Thương :.♥️.: Không Nhớ :.♥️.: Mộng Không Mơ :.♥️.:Không Buồn :.♥️.: Không Chán :.♥️.: Lệ Không Rơi :.♥️.: Không Yêu Ai Cả :.♥️.: Lòng Băng Giá :.♥️.: Không Nhớ Ai Cả :.♥️.: Hồn tự do :.♥️.:

Cây hỏi Lá :Nếu Cây chết Lá sẽ ra sao
Lá trả lời :Lá sẽ chết theo Cây
Cây lại hỏi :nếu 1 ngày Lá chết
Lá ừ & nói : sẽ có 1 Lá mới thay Lá bên Cây

Wed Apr 14, 2010 3:58 pm

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

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

Xem lý lịch thành viên http://www.chuyentoan0912.forum-viet.net/
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 : 23
Đế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: 23 Kinh nghiệm: 711%
Sinh mệnh: 711/100
Pháp lực: 23/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!


Thu Apr 15, 2010 6:03 pm

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

Tiến Sĩ
Tiến Sĩ

Xem lý lịch thành viên 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 : 23
Đế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: 23 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 23/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



:.♥️.: Không Thương :.♥️.: Không Nhớ :.♥️.: Mộng Không Mơ :.♥️.:Không Buồn :.♥️.: Không Chán :.♥️.: Lệ Không Rơi :.♥️.: Không Yêu Ai Cả :.♥️.: Lòng Băng Giá :.♥️.: Không Nhớ Ai Cả :.♥️.: Hồn tự do :.♥️.:

Cây hỏi Lá :Nếu Cây chết Lá sẽ ra sao
Lá trả lời :Lá sẽ chết theo Cây
Cây lại hỏi :nếu 1 ngày Lá chết
Lá ừ & nói : sẽ có 1 Lá mới thay Lá bên Cây

Fri Apr 16, 2010 5:21 pm

avatar
dark_wing0711

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

Xem lý lịch thành viên
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è


Fri Apr 16, 2010 8:47 pm

avatar
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

Xem lý lịch thành viên
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 : 23
Đế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: 23 Kinh nghiệm: 79%
Sinh mệnh: 79/100
Pháp lực: 23/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


Sat Apr 17, 2010 10:17 am

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

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

Xem lý lịch thành viên http://www.chuyentoan0912.forum-viet.net/
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 : 23
Đế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: 23 Kinh nghiệm: 711%
Sinh mệnh: 711/100
Pháp lực: 23/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)...


Sat Apr 17, 2010 6:11 pm

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

Tiến Sĩ
Tiến Sĩ

Xem lý lịch thành viên 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 : 23
Đế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: 23 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 23/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



:.♥️.: Không Thương :.♥️.: Không Nhớ :.♥️.: Mộng Không Mơ :.♥️.:Không Buồn :.♥️.: Không Chán :.♥️.: Lệ Không Rơi :.♥️.: Không Yêu Ai Cả :.♥️.: Lòng Băng Giá :.♥️.: Không Nhớ Ai Cả :.♥️.: Hồn tự do :.♥️.:

Cây hỏi Lá :Nếu Cây chết Lá sẽ ra sao
Lá trả lời :Lá sẽ chết theo Cây
Cây lại hỏi :nếu 1 ngày Lá chết
Lá ừ & nói : sẽ có 1 Lá mới thay Lá bên Cây

Fri Jun 04, 2010 9:14 pm

avatar
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

Xem lý lịch thành viên http://chuyentoan0912.forum-viet.net
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 : 23
Đế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: 23 Kinh nghiệm: 3384%
Sinh mệnh: 3384/100
Pháp lực: 23/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...



RUBIK

3x3x3
4x4x4
5x5x5
Pyramix
Twist
Fastest:39.84s
Average: 54.58s
OH: 2min45s
Fastest:2min56sFastest: 9min8sFastest: 12.12sFastest: 8.33s

Sat Jun 05, 2010 8:15 pm

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

Tiến Sĩ
Tiến Sĩ

Xem lý lịch thành viên 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 : 23
Đế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: 23 Kinh nghiệm: 426%
Sinh mệnh: 426/100
Pháp lực: 23/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



:.♥️.: Không Thương :.♥️.: Không Nhớ :.♥️.: Mộng Không Mơ :.♥️.:Không Buồn :.♥️.: Không Chán :.♥️.: Lệ Không Rơi :.♥️.: Không Yêu Ai Cả :.♥️.: Lòng Băng Giá :.♥️.: Không Nhớ Ai Cả :.♥️.: Hồn tự do :.♥️.:

Cây hỏi Lá :Nếu Cây chết Lá sẽ ra sao
Lá trả lời :Lá sẽ chết theo Cây
Cây lại hỏi :nếu 1 ngày Lá chết
Lá ừ & nói : sẽ có 1 Lá mới thay Lá bên Cây

Sun Jun 06, 2010 1:04 pm

avatar
Uchiha_Sasuke

Thạc Sĩ
Thạc Sĩ

Xem lý lịch thành viên
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 : 23
Đến từ Đến từ : bung me
Level: 23 Kinh nghiệm: 329%
Sinh mệnh: 329/100
Pháp lực: 23/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??





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 | Liên hệ | Report an abuse | Sosblogs.com