HOCMAI Forum đã quay trở lại, MỚI MẺ - TRẺ TRUNG - NĂNG ĐỘNG
Hãy THAM GIA ngay

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

Thảo luận trong 'Tin học - Máy tính' bắt đầu bởi g_d, 25 Tháng ba 2010.

Lượt xem: 6,018

  1. g_d

    g_d Guest

    Hướng dẫn Cách gõ công thức Toán học, Vật lý, Hóa học forum mới


    ĐỂ: 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):
     

  2. 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.
     
  3. g_d

    g_d Guest



    Mình đâu có bảo chép lại đâu,mình nói chỉ ra cái sai mà.:khi (186):
     

  4. 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 :))=))
     
  5. marik

    marik Guest


    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ế?
     

  6. 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
     
  7. g_d

    g_d Guest


    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.
     
    Last edited by a moderator: 30 Tháng ba 2010
  8. torai112

    torai112 Guest




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

    g_d Guest


    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):
     

CHIA SẺ TRANG NÀY