Turbo Pascal

Vì 4rum mình là 4rum của chuyên toán nên chắc hẳn mọi người đều học Turbo Pascal. Vì vậy tớ lập topic này để thảo luận về Pascal. Hôm trước cô Hoa (Dạy tin lớp H1) có giao 1 bài, tớ về lập trình thử thì bị sai. Mọi người xem bài giải của tớ và chỉ cho tớ chỗ sai nhé
Tính
S=1*4+4*7+...+n*(n+3)
Bài giải
Program BT;
Uses wincrt;
Var i,n,S:integer;
Begin
Write('Nhap n');
Readln(n);
S:=0;
If (n-1) mod 3 =0 then
Begin
For i:=1 to n do
S:= S + i*(i+3);
End
Else S:=0;
Writeln('S=',S);
Readln;
End.

Cán sự còn sai thỳ tổ viên cũng pó tay Nói thật e kém Pascal lắm k giúp rỳ được lớp trưởng đâu

Có lẽ phải thêm bước S:real chứ k để S: integer

Ko cần S là real vì ở đây ko có số thập phân và phân số. Cách làm này đúng với S=1*2+2*3+...+n*(n+1) nhưng ko hiểu sao lại sai với S=1*4+4*7+...+n*(n+3)

thế thỳ T. cũng chịu mà cô giao bài đấy hôm nào sao mỳk k nhớ nhờ

ơ thế các cậu học Tin cô nào :-? Tớ tưởng cũng học cô Hoa thỳ cần rỳ phải xin

Chưa giải được. Vì đề bài là 1*4+4*7 nên tớ để cái n-1 mod 3 vào

TA sai ở chỗ là nếu để Uses wincrt; trên Turbo Pascal 7.0 thì nó sẽ ra Division by zero nên hãy bỏ đi

Đâu bọn tớ hcoj cô TIn khác các cậu thỳ phải
Màh kể cả có chug thì bọn tớ ũg có đc học pas đâu
Mãi mãi chỉ gõ word thôi =))

@Kispi: tớ ko hiểu n-1 ấy, tại sao lại là n-1

Màh nếu cậu cần hỏi thì hỏi Huy ấy, ôg íh giỏi pas lắm
Hồi xưa bọn tớ học Huy học lên đến chươg trình đại học rồi
Hồi ấy thầy bọn tớ còn định cho nó đi thi Tin quận nhưg chưa đủ tuổi

TA sử dụng máy của TA thỳ là phiên bản mới chứ k phải 7.0

for làm j có ;
end thứ nhất thiếu dấu

End ko thiếu dấu do có else đằng sau. Còn for phải có ; chứ, cái gì chẳng có ;. Đính chính lại một lần nữa với các bạn với cách làm này tớ đã thành công với S=1*2+2*3+..+n(n+1). Vì vậy các lỗi như sai dấu là ko thể, tớ đoán là sai thuật toán. Mọi người chú ý vào phần thuật toán giùm tớ nhé!

ôi đau khổ khi minh chep 29 bài mà sai cả 29 . Hix Hix

đấy là do bạn Nhi ngu đấy là do bạn chứ chả do ai cả

Thế TA chạy nó báo lỗi gì

Nó ra chữ k được nói chung là để ý phần thuật toán là được rồi

Ko báo lỗi nhưng ra kết quả sai. Với n bằng 4 nó ra kết quả 60, n bằng 7 ra kết quả 224

Thế thì chắc chắn sai phần thuật toán rồi còn gì

Vì thế mới bảo mọi người xem giùm phần thuật toán, chứ đừng soi phần dấu hay những cái tương tự như thế. Giúp tớ nhá! Hỏi Huy thì sẽ OK nhưng ko bao giờ tớ hỏi Huy đâu:onion31:

Sao mày ngâu thế hả LT.Nó bảo là chú ý đến thuật toán còn gì

Hai bạn kia spam ít thôi, del bài bây giờ

Nếu theo đúng tuổi tớ phải gọi T là chị, vì tớ sinh sau T hơn nửa năm => Đừng gọi tớ là chị. Quay lại vấn đề bạn Kakashi, đề nghị ko nói T ngâu nữa, đọc lại nội quy 4rum xem, bảo Lonely cộng điểm Life bây giờ (Nói thế thôi ko bao giờ tớ bảo Lonely đâu, tớ vẫn còn nợ cậu)

tui biết sai ở đâu rùi, vì for i:=1 to n do tức chạy từ 1 liên tiếp các số cho tới n chứ if (n-1) mod 3=0 chỉ có tác dụng với việc nhập n chứ ko có liên quan tới lệnh lặp.

Uh, thì tớ chỉ cần nó có tác dụng tới việc nhập n thôi. Turbo Pascal đang đơ ko vào được, nếu ko tớ sẽ thử bỏ if đi xem nó có ngon hơn ko.

mình không thick turbo chút nào