Làm ơn ai giỏi lập trình vào giúp e giải bài này gấp!!!

[cnh2109]

Đề bài của e: "Viết phương trình tính tổng của các số chính phương và hiển thị kết quả ra màn hình theo chiều tăng dần". Ai biết có thể giải giúp e được không ạ? T6 e phải nộp bài mà e tìm khắp trên mạng, không chỗ nào có cả. Các bác giúp em với.

[nguyendinhde]

sao có mỗi thế mà không viết được à? Nhưng viết bằng ngôn ngữ gì?????

[hptvl]

Chắc viết bằng assembly nên mới nhờ mọi người đó mà

[cnh2109]

em viết bằng pascal. Đối với các bác thì dễ, nhưng e là dân cơ khí, viết đc cái này là cả một vấn đề. Bác nào chuyên tin giúp e với, mai e nộp bài rồi (, hic. Giúp e không e lại thi lại nữa thì chết....Coi như làm ơn làm phước giúp e nhé ^^

[max2max]

Ặc, bác không có giới hạn trong khoảng nào thì em giải = niềm tin à? Giả sử trong khoảng <100
Thì còn giải được là 4 + 9 + 16 + ... + 100
Trong khoảng 1000 lại thêm rất nhiều nữa

Sao giải được đây

[bara_dh]

uses crt;
var A:array[1..10000] of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap so so chinh phuong can tinh tong: ');readln(n);
S:=0;
for i:=1 to n do
begin
A[i]:=i*i;
S:=S+A[i];
end;
write('Tong cac so chinh phuong do la: ');
readln
end.

[cnh2109]

Cảm ơn bác bara_dh nhé, bác mừ giúp chắc e thi đỗ rồi . Cám ơn bác rất nhiều.

[Long_Phung]

uses crt;
var A:array[1..10000] of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap so so chinh phuong can tinh tong: ');readln(n);
S:=0;
for i:=1 to n do
begin
A[i]:=i*i;
S:=S+A[i];
end;
write('Tong cac so chinh phuong do la: ');
readln
end.

Cái này là tổng của bình phương các số từ 1-->n.

Định nghĩa số chính phương:
Số chính phương hay còn gọi là số hình vuông là số nguyên có căn bậc 2 là một số nguyên, hay nói cách khác, số chính phương là bình phương (lũy thừa bậc 2) của một số nguyên khác.

Ví dụ:
4 = 2²
9 = 3²
1.000.000 = 1.000²
Số chính phương hiển thị diện tích của một hình vuông có chiều dài cạnh bằng số nguyên kia.

[=========> Bổ sung bài viết <=========]

Từ bài trên sửa 1 xíu sẽ thành tính tổng số chính phương trong khoảng 1-->n.

 ....
 write('Nhap so gioi han: ');readln(n);
....
 for i:=1 to n do
 begin
   If sqr(int(sqrt(i))=i then S:=S+i
end;
...
write('Tong cac so chinh phuong nam trong khoang tu ', 1, 'den',n,'la:');readln(S);

[xcode]

Mấy bác giỏi Pascal nhỉ

[letrungcuongdtc]

write('tong cac so chinh phuong do la: ',S);
e chua hieu de bai cho lam.tyinh tong cai so chinh phuong tu 1-->N hay tinh tong N so chinh phuong dau tien?