Question

Tính S(n)=1^2+2^2+.....+n^2(viết thuật toán)

Answer 1

Bạn có thể kiểm tra thuật toán bằng việc chạy chương trình sau:

Var n,i,tong: integer;

uses crt;

begin

Clrscr ;

Write ('Nhap n: '); readln (n);

Tong:=0;

For i:= 1 to n do tong:= tong + Sqr(i);

Writeln (tong);

readln;

end.

Answer 2

- Thuật toán:

Bước 1 : nhập n

Bước 2: tong:=0

Bước 3: i:= 1 to n

Bước 4: tong:= tong + Sqr (i)

Bước 5: Xuất kết quả ra màn hình

Answer 3

Thuật toán

-Bước 1: nhập n

-Bước 2: s:=0;

-Bước 3: chạy for từ 1 tới n

-Bước 4: s:=s+sqr(i);

-Bước 5: xuất kết quả s

-Bước 6: kết thúc

Answer 4

Nếu bạn cần viết chương trình thì có 2 cách cho bạn

-Cách 1: sử dụng for

uses crt;
var n,i,s:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong cua day so la: ',s);
readln;
end.

Cách 2: sử dụng while do

uses crt;
var n,i,s:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+sqr(i);
i:=i+1;
end;
writeln('tong cua day so la: ',s);
readln;
end.

Answer 5

Thuật toán:

Tong:= 0;

For i:= 1 to n do tong:= tong + Sqr(i);

Answer 6

cách 2: (đây là thuật toán sử dụng while do nhé bạn)

-Bước 1: nhập n

-Bước 2: s:=0; i:=1;

-Bước 3: s:=s+sqr(i);

-Bước 4: inc(i);

-Bước 5: nếu i<=n thì quay lại bước 3

-Bước 6: xuất kết quả s

-Bước 7: Kết thúc