Mấy bác giải giúp một số BT Pascal

[Hitmanle]

mai thi PC rùi,

1) Giải hệ PT
2) Tìm tổng S= 1(bình phương) + 2(bình phương) + ..... + N(bình phương) N đc. nhập từ bàn phím

[nhokdragon94]

Bài 2:
var i,n,S:integer;
begin
writeln('nhap n= ');
readln(n);
for i:=1 to n do
S:=S+i*i;
writeln('xuat tong: ',S);
readln;
end.

[1024KB]

Bài 2:
var i,n,S:integer;
begin
writeln('nhap n= ');
readln(n);
for i:=1 to n do
S:=S+i*i;
writeln('xuat tong: ',S);
readln;
end.

Không cho S:=0; à. Sai chết người
Sửa:


var i,n,S:integer;
begin
writeln('nhap n= ');
readln(n);
s:=0;
for i:=1 to n do
S:=S+i*i;
writeln('xuat tong: ',S);
readln;
end.

[nhokdragon94]

Không cho S:=0; à. Sai chết người
Sửa:


var i,n,S:integer;
begin
writeln('nhap n= ');
readln(n);
s:=0;
for i:=1 to n do
S:=S+i*i;
writeln('xuat tong: ',S);
readln;
end.

Ẹc ẹc pác ơi em dùng turbo pascal 7.0 thì đâu cần gán S:=0 làm j` để nó tự gán hok tin pác mở ra lập trình thì bic ^^!

[songohan2009]

Ẹc ẹc pác ơi em dùng turbo pascal 7.0 thì đâu cần gán S:=0 làm j` để nó tự gán hok tin pác mở ra lập trình thì bic ^^!

Chỉ ở chương trình chính nó mới gán = 0 hết. Trong chương trình con nó random ra mỗi lúc 1 giá trị. Nếu bạn dùng chương trình con mà ko khởi gán thì chắc chắn sai.

[nhokdragon94]

nhưng mòa pác đang làm chương trình chính mà. Em cóa nói đêy là chương trình con đâu ^^!