Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » Chương trình tính tổng bình phương các số lẻ




Trả lời
  #1  
Cũ 25-03-2010
g_d g_d đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 16-03-2010
Bài viết: 8
Đã cảm ơn: 2
Được cảm ơn 0 lần
Chương trình tính tổng bình phương các số lẻ

ĐỂ: Nhập vào số n nguyên dương tính tổng bình phương các số lẻ từ 1 đến (2n-1).Mình làm thế này:

Program ChuongTrinhTinhTongBinhPhuong;
Uses crt;
Var s,i,n:integer;
tiep:char;
begin
repeat
clrscr;
writeln(‘=================’);
writeln(‘CT TINH TONG BP’);
writeln(‘=================’);
writeln(‘Nhap n’);
readln(n);
i:=1;
s:=0;
while i<(2*n-1)
do
begin
i:=i+2;
s:=s+i*I;
end;
writeln(‘KQ’,s:10);
writeln(===============’);
writeln(‘Thuc hien nua khong(c/k)?);
readln(tiep);
until upcase(tiep)=’K’;
end.

Mình chạy xong CT này thì thấy có vấn đề(^^).Nhờ mấy bạn sửa giúp.
Trả Lời Với Trích Dẫn
  #2  
Cũ 25-03-2010
hoangtu_faithful's Avatar
hoangtu_faithful hoangtu_faithful đang ngoại tuyến
Romeo
Tổ phó
 
Tham gia : 28-03-2009
Đến từ: Quảng Ninh
Bài viết: 268
Đã cảm ơn: 404
Được cảm ơn 236 lần
Var s,i,n:integer;
tiep:char;
begin
repeat
writeln('=================');
writeln('CT TINH TONG BP');
writeln('=================');
writeln('Nhap n');
readln(n);
i:=1;
s:=0;
while i<(2*n-1)
do
begin
i:=i+2;
s:=s+i*I;
end;
writeln('KQ',s:10);
writeln('===============');
writeln('Thuc hien nua khong(c/k)?');
readln(tiep);
until upcase(tiep)='K';
end.
__________________
(\ _ /) (\ _ /)
(^_^) (^_^)
(") (") (") (")

¨°o.O (ĐIk HuyỀn Khánh TùnG) O.o°
Trả Lời Với Trích Dẫn
  #3  
Cũ 28-03-2010
g_d g_d đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 16-03-2010
Bài viết: 8
Đã cảm ơn: 2
Được cảm ơn 0 lần
Trích:
Nguyên văn bởi hoangtu_faithful Xem Bài viết
Var s,i,n:integer;
tiep:char;
begin
repeat
writeln('=================');
writeln('CT TINH TONG BP');
writeln('=================');
writeln('Nhap n');
readln(n);
i:=1;
s:=0;
while i<(2*n-1)
do
begin
i:=i+2;
s:=s+i*I;
end;
writeln('KQ',s:10);
writeln('===============');
writeln('Thuc hien nua khong(c/k)?');
readln(tiep);
until upcase(tiep)='K';
end.

Mình đâu có bảo chép lại đâu,mình nói chỉ ra cái sai mà.
Trả Lời Với Trích Dẫn
  #4  
Cũ 28-03-2010
mattroitinhyeu_142's Avatar
mattroitinhyeu_142 mattroitinhyeu_142 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 11-11-2009
Đến từ: Vũ trụ
Bài viết: 961
Đã cảm ơn: 692
Được cảm ơn 384 lần
ki` ta
Chay chuong trình xong thì/ đê ýL xem cóO lỗi] hay ko
Bộ mất cái chỗ góc màn hình thông báo lỗi hay sao hả
Xem cái đó rồi đọc trong sách xem lỗi bao nhiu mà sửa
__________________
Keep Smiling Together
Trả Lời Với Trích Dẫn
  #5  
Cũ 28-03-2010
marik's Avatar
marik marik đang ngoại tuyến
Thành viên
Thư kí
 
Tham gia : 06-05-2008
Đến từ: Hà Nội
Bài viết: 793
Đã cảm ơn: 5
Được cảm ơn 360 lần
Trích:
Nguyên văn bởi mattroitinhyeu_142 Xem Bài viết
ki` ta
Chay chuong trình xong thì/ đê ýL xem cóO lỗi] hay ko
Bộ mất cái chỗ góc màn hình thông báo lỗi hay sao hả
Xem cái đó rồi đọc trong sách xem lỗi bao nhiu mà sửa
Lỗi thuật toán thì móc đâu ra sửa lỗi hả em, đừng nên nói với người khác kiểu như vậy


@g_d: anh thấy thuật toán ổn đấy chứ nhỉ Không ổn chỗ nào thế?
__________________
Trả Lời Với Trích Dẫn
  #6  
Cũ 29-03-2010
hoangtu_faithful's Avatar
hoangtu_faithful hoangtu_faithful đang ngoại tuyến
Romeo
Tổ phó
 
Tham gia : 28-03-2009
Đến từ: Quảng Ninh
Bài viết: 268
Đã cảm ơn: 404
Được cảm ơn 236 lần
g_d mình chạy thì thấy sai lỗi CT thôi còn sai thuật toán thì cậu thử VD
Mình cũng ko chép nguyên lại co chỉnh sửa ko thì điên gì chép lại
__________________
(\ _ /) (\ _ /)
(^_^) (^_^)
(") (") (") (")

¨°o.O (ĐIk HuyỀn Khánh TùnG) O.o°
Trả Lời Với Trích Dẫn
  #7  
Cũ 30-03-2010
g_d g_d đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 16-03-2010
Bài viết: 8
Đã cảm ơn: 2
Được cảm ơn 0 lần
kì thế,chạy thì nó vẫn ra kết quả ,nhưng mà thấy nó sai sai sao á,mọi người chạy có thấy sai không.Bình phương của:1^2+3^2+5^2=35.Nhưng CT thì ra 37 là sao,với lại đâu có sai lỗi CT đâu.

Thay đổi nội dung bởi: g_d, 30-03-2010 lúc 09:37. Lý do: thiếu ý
Trả Lời Với Trích Dẫn
  #8  
Cũ 31-03-2010
torai112's Avatar
torai112 torai112 đang ngoại tuyến
MEM VIP
Lớp phó
 
Tham gia : 31-07-2007
Đến từ: Đất Tổ quê ta
Bài viết: 995
Đã cảm ơn: 34
Được cảm ơn 129 lần
Trích:
Nguyên văn bởi g_d Xem Bài viết
ĐỂ: Nhập vào số n nguyên dương tính tổng bình phương các số lẻ từ 1 đến (2n-1).Mình làm thế này:

Program ChuongTrinhTinhTongBinhPhuong;
Uses crt;
Var s,i,n:integer;
tiep:char;
begin
repeat
clrscr;
writeln(‘=================’);
writeln(‘CT TINH TONG BP’);
writeln(‘=================’);
writeln(‘Nhap n’);
readln(n);
i:=1;
s:=0;
while i<(2*n-1)
do
begin
i:=i+2;
s:=s+i*I;
end;
writeln(‘KQ’,s:10);
writeln(===============’);
writeln(‘Thuc hien nua khong(c/k)?);
readln(tiep);
until upcase(tiep)=’K’;
end.

Mình chạy xong CT này thì thấy có vấn đề(^^).Nhờ mấy bạn sửa giúp.


Bạn thử sửa thành While i<=(2*n-1) do xem sao nhé !
__________________


Chúng ta sinh ra không phải để yêu một người hoàn hảo mà là để học cách yêu một người không hoàn hảo một cách trọn vẹn !


Hãy cùng tìm hiều thêm về CÔNG NGHỆ THÔNG TIN trong THỜI ĐẠI SỐ của box [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
Trả Lời Với Trích Dẫn
Cũ 01-04-2010
ngan000
Tin nhắn đã bị xoá bởi ngan000.
  #9  
Cũ 01-04-2010
g_d g_d đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 16-03-2010
Bài viết: 8
Đã cảm ơn: 2
Được cảm ơn 0 lần
nếu sửa như thế thì lạc đề hay sai rồi bạn.Mình chạy theo cách của bạn rồi đó(^^).CT mình là như thế này:Khi nhập n= 5 thì máy sẽ tính là:1^2+3^2+5^2+7^2+9^2=165 (Ko tính là 1^2+3^2+5^2).Vấn đề là ở chổ đó á.^^!
Trả Lời Với Trích Dẫn
Trả lời

Chia sẻ/đánh dấu bài viết


Ðiều chỉnh Tìm trong bài viết
Tìm trong bài viết:

Tìm chi tiết
Xếp bài

Quyền hạn của bạn
Bạn không thể tạo chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể đăng tập đính kèm
Bạn không thể sửa bài của mình

BB codeMở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

 
Bài giảng mới
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 44. Một số kim loại khác
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 44. Một số kim loại khác
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 43.3. Luyện tập crom và hợp chất của crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 43.3. Luyện tập crom và hợp chất của crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 43.2. Hợp chất của crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 43.2. Hợp chất của crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 43. Crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 43. Crom
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 42. Luyện tập sắt và hợp chất của sắt
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 42. Luyện tập sắt và hợp chất của sắt
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 39. Luyện tập
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 39. Luyện tập
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 37. Luyện tập
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 37. Luyện tập
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 34. Luyện tập pin điện hoá và ăn mòn kim loại
Luyện thi quốc gia PEN-C: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 34. Luyện tập pin điện hoá và ăn mòn kim loại
Chuyên đề Bất đẳng thức - thầy Trần Phương : Bài 12. Bất đẳng thức Bunhiacốpski (Phần 2)
Chuyên đề Bất đẳng thức - thầy Trần Phương : Bài 12. Bất đẳng thức Bunhiacốpski (Phần 2)
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 1. Vec-tơ trong không gian (Phần 01)
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 1. Vec-tơ trong không gian (Phần 01)

Đề thi mới
Thi thử đại học 12 : Đề đánh giá năng lực môn Tiếng Anh - Dành cho học sinh lớp 13
Thi thử đại học 12 : Đề đánh giá năng lực môn Tiếng Anh - Dành cho học sinh lớp 13
Thi thử đại học 12 : Đề kiểm tra năng lực môn Tiếng Anh - Dành cho học sinh lớp 12
Thi thử đại học 12 : Đề kiểm tra năng lực môn Tiếng Anh - Dành cho học sinh lớp 12
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Revision test 1+2+3
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Revision test 1+2+3
Hóa học 10 : Chương IV. Phản ứng hoá học
Hóa học 10 : Chương IV. Phản ứng hoá học
Hóa học 10 : Chương III. Liên kết hóa học
Hóa học 10 : Chương III. Liên kết hóa học
Hóa học 10 : Chương I. Nguyên tử
Hóa học 10 : Chương I. Nguyên tử
Hóa học 10 : Chương II. Bảng HTTH các nguyên tố hoá học
Hóa học 10 : Chương II. Bảng HTTH các nguyên tố hoá học
Toán 11 : Chương 2. Tổ hợp và xác suất
Toán 11 : Chương 2. Tổ hợp và xác suất
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Internal Test 9 : Hocmai.vn contest 2 2014.08
Internal Test 9 : Hocmai.vn contest 2 2014.08




Múi giờ GMT +7. Hiện tại là 01:16.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.