Giai Nobel 2012
12:39:35 AM Ngày 23 Tháng Tám, 2014 *

Chào mừng bạn đến với Diễn Đàn Vật Lý.

Bạn có thể đăng nhập hoặc đăng ký.
Hay bạn đã đăng ký nhưng cần gửi lại email kích hoạt tài khoản?
Vui lòng nhập tên Đăng nhập với password, và thời gian tự động thoát





Lưu ý: Đây là diễn đàn của Thư Viện Vật Lý. Tài khoản ở Diễn Đàn Vật Lý khác với tài khoản ở trang chủ Thuvienvatly.com. Nếu chưa có tài khoản ở diễn đàn, bạn vui lòng tạo một tài khoản (chỉ mất khoảng 1 phút!!). Cảm ơn các bạn.
Phòng chát chít
Bạn cần đăng nhập để tham gia thảo luận
Vật lý 360 Độ
Hành trình tìm kiếm hằng số hấp dẫn G – Phần 3
21/08/2014
Các vũ trụ song song và lí thuyết đa thế giới
17/08/2014
Lực hấp dẫn không phải là lực duy nhất giữ các mảnh vụn tiểu hành tinh lại với nhau
17/08/2014
Hóa Lí căn bản - Phần 16
16/08/2014
Hành xử lạ của electron trong từ trường
15/08/2014
Lịch sử vật lí thế kỉ 20 - Phần 24
11/08/2014

follow TVVL Twitter Facebook Youtube Scirbd Rss
  Trang chủ Diễn đàn Tìm kiếm Đăng nhập Đăng ký  


Quy định cần thiết


Chủ đề nổi bật - Tiến tới đề thi ĐH 2014


Trả lời

Lập thuật toán Pascal giải phương trình bậc hai.

Trang: 1   Xuống
  In  
Tác giả Chủ đề: Lập thuật toán Pascal giải phương trình bậc hai.  (Đọc 7890 lần)
0 Thành viên và 1 Khách đang xem chủ đề.
Scylla
Lão làng
*****

Nhận xét: +23/-9
Cảm ơn
-Đã cảm ơn: 228
-Được cảm ơn: 251

Offline Offline

Bài viết: 532


KK09XI


Xem hồ sơ cá nhân Email
« vào lúc: 08:24:15 PM Ngày 23 Tháng Tám, 2012 »

Các bạn, anh chị giúp em viết chương trình giải phương trình bậc hai trong Pascal với, em xin cảm ơn.


Logged



KK09XI ~ Nothing fails like succcess ~
Hà Văn Thạnh
GV Vật Lý
Super Mod Vật Lý Phổ Thông
Lão làng
*****

Nhận xét: +145/-20
Cảm ơn
-Đã cảm ơn: 31
-Được cảm ơn: 3661

Offline Offline

Bài viết: 3785


Xem hồ sơ cá nhân Email
« Trả lời #1 vào lúc: 11:05:53 PM Ngày 23 Tháng Tám, 2012 »

Các bạn, anh chị giúp em viết chương trình giải phương trình bậc hai trong Pascal với, em xin cảm ơn.
lâu quá không lập trình quên cấu trúc pascal rời nhưng giải thuật như sau
khai báo biến a,b,c,delta
nhập a,b,c
if a=0 then
 xuất ra ("khong la PT bac 2")
else
      Delta = b^2-4*a*c
        if (Delta<0) then
             xuất "PTVN"
        else
             if (Delta=0) then
                  xuat ("PT co nghiem kep",x1=x2=-b/2a)
             else
                  xuat ("PT co 2 2nghiem",x1=-b+can(Delta)/2a,x2=-b-can(Delta)/2a)
             end if
        end if
end if


Logged
tinhoc
Moderator
Thành viên tích cực
*****

Nhận xét: +6/-3
Cảm ơn
-Đã cảm ơn: 48
-Được cảm ơn: 25

Offline Offline

Giới tính: Nữ
Bài viết: 225


¶v¶¥ £0\/€ F0R ¥0U

luckygirl_sorrymylove
Xem hồ sơ cá nhân Email
« Trả lời #2 vào lúc: 11:15:00 AM Ngày 24 Tháng Tám, 2012 »

trước hết xin cảm ơn thầy Hà Văn Thạnh.
@Alexman113: thầy Hà văn Thạnh đã có bài gợi ý chính xác rồi đấy. e dựa trên gợi ý đó để viết 1 bài hoàn chỉnh nhé. nếu gặp rắc rối trong việc chạy chương trình thì e hãy gửi lên bài code để mọi ng giúp e sửa lỗi ( nếu có) trong quá trình làm nhé.
E cũng không cần thắc mắc tại sao không có bài giải rõ rảng đâu. Vì ở những topic tương tự ntn cũng đã nói rõ về việc này rồi. Chỉ gợi ý tạo hướng đi và sửa lỗi chứ ko giải hoàn toàn.
Thanks!!! 


Logged
Walkingdeads8
Moderator
Thành viên danh dự
*****

Nhận xét: +8/-5
Cảm ơn
-Đã cảm ơn: 95
-Được cảm ơn: 107

Offline Offline

Giới tính: Nam
Bài viết: 386


We do not forgive- We do not forget- Expect us


Xem hồ sơ cá nhân Email
« Trả lời #3 vào lúc: 02:35:56 PM Ngày 24 Tháng Tám, 2012 »

Bạn Alexman có thể tham khảo tại đây
PROGRAM Giai_phuong_trinh_bac_hai;
USES Crt;
VAR a,b,c,delta:real;
BEGIN
 Clrscr;
 Writeln('Nhap 3 he so a, b, c cua PT :' );
 Readln(a,b,c);
If a=0 then
If b=0 then
If  c=0 then
 write('PT co vo so nghiem.' )
Else
 Write('PT vo nghiem.' )
Else
 Write('PT co nghiem la: x=',-c/b )
Else
begin
 delta:=b*b-4*a*c;
If  delta<0 then
 write('PT vo nghiem.' )
Else
If  delta=0 then
 Write('PT co nghiem kep: x1=x2=',-b/(2*a))
Else
 Write('PT co 2 nghiem pb: x1=',(-b-sqrt(delta))/(2*a),' ; x2=', (-b+sqrt(delta))/(2*a) );
end;
 Readln;
END.


Logged

Đừng cố gắng những gì ngoài tầm với...
 Mây của trời hãy để gió cuốn đi
phongproacma
Thành viên mới
*

Nhận xét: +0/-0
Cảm ơn
-Đã cảm ơn: 1
-Được cảm ơn: 0

Offline Offline

Bài viết: 1


Xem hồ sơ cá nhân Email
« Trả lời #4 vào lúc: 09:30:51 PM Ngày 22 Tháng Chín, 2012 »

Bạn Alexman
VAR a,b,c,delta:real;
[/color]
mình nghĩ bạn viết sai rồi, theo mình biết thì kiểu số thực Real là khoản: 2,9*10^-39 tới 3,4*10^38
vậy nhở đâu nhập vào các hệ số là số âm thì sao. bạn xem lại nha


Logged
Walkingdeads8
Moderator
Thành viên danh dự
*****

Nhận xét: +8/-5
Cảm ơn
-Đã cảm ơn: 95
-Được cảm ơn: 107

Offline Offline

Giới tính: Nam
Bài viết: 386


We do not forgive- We do not forget- Expect us


Xem hồ sơ cá nhân Email
« Trả lời #5 vào lúc: 09:42:19 AM Ngày 23 Tháng Chín, 2012 »

Bạn Alexman
VAR a,b,c,delta:real;
[/color]
mình nghĩ bạn viết sai rồi, theo mình biết thì kiểu số thực Real là khoản: 2,9*10^-39 tới 3,4*10^38
vậy nhở đâu nhập vào các hệ số là số âm thì sao. bạn xem lại nha
Bạn đã hiểu sai ý nghĩa rồi. Kiểu real dịch ra là kiểu số thực, mà đã là số thực thì cũng như trong toán học lấy hết các giá trị âm, dương,... Vì thế chương trình viết ở trên hoàn toàn đúng. Vui lòng xem lại kiến thức của bạn nhé.


Logged

Đừng cố gắng những gì ngoài tầm với...
 Mây của trời hãy để gió cuốn đi
Tags:
Trang: 1   Lên
  In  
sch

Những bài viết mới nhất
Những bài viết mới nhất
 
Chuyển tới:  


Tắt bộ gõ tiếng Việt [F12] Bỏ dấu tự động [F9] TELEX VNI VIQR VIQR* kiểm tra chính tả Đặt dấu âm cuối
Powered by SMF 1.1.11 | SMF © 2006, Simple Machines LLC © 2006 - 2012 Thư Viện Vật Lý.