Chương trình tính tổng bình phương các số lẻ

[g_d]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

ĐỂ: 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.:khi (67):

 

[hoangtu_faithful]

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.

 

[g_d]

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à.:khi (186):

 

[mattroitinhyeu_142]

ki` ta;
Chay chuong trình xong thì/ đê ýL xem cóO lỗi] hay ko :-j
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 )=))

 

[marik]

ki` ta;
Chay chuong trình xong thì/ đê ýL xem cóO lỗi] hay ko :-j
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 :-j


@g_d: anh thấy thuật toán ổn đấy chứ nhỉ :| Không ổn chỗ nào thế?

 

[hoangtu_faithful]

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

 

[g_d]

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.

 

[torai112]

ĐỂ: 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.:khi (67):

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

 

[g_d]

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ổ đó á.^^!:khi (181):