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ẻ

Thi thử đại học 2014



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.

Các bài viết xem nhiều nhất cùng chuyên mục:
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 235 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: 963
Đã 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: 783
Đã cảm ơn: 5
Được cảm ơn 357 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 235 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

Đề thi mới




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

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.