Xác định bài toán mô tả thuật toán va viết chương trình cho các bài toán sau
a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh for ….do
b) Tính tổng A= 1+3+………+(2n+1)
c) Tính tổng B= 2+4+………+2n (n là giá trị bất kì nhập từ bàn phím)
Xác định bài toán mô tả thuật toán va viết chương trình cho các bài toán sau a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh for -do b) Tính
By Ruby
a) Input: 50 số tự nhiên đầu tiên
Output: tổng 50 số tự nhiên đầu tiên
Thuật toán:
B1: S←0; i←1;
B2: S←S+i;
B3: i←i+1; Nếu i<=50 thì quay lại B2
B4. In S và kết thúc.
Chương trình:
program tinhtong;
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
write(‘Tong 50 so tu nhien dau tien la: ‘,s);
readln
end.
b) Input: Số n
Output: Tổng A
Thuật toán:
B1: A←0; i←0;
B2: A←A+(2*i+1);
B3: i←i+1; Nếu i<=n thì quay lại B2
B4. In A và kết thúc.
Chương trình:
program tinhtong;
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=0 to n do
s:=s+(2*i+1);
write(‘Tong A= ‘,a);
readln
end.
c) Input: Số n
Output: Tổng B
Thuật toán:
B1: B←0; i←1;
B2: B←S+2*i;
B3: i←i+1; Nếu i<=n thì quay lại B2
B4. In B và kết thúc.
Chương trình:
program tinhtong;
uses crt;
var B,i:integer;
begin
clrscr;
b:=0;
for i:=1 to n do
b:=b+2*i;
write(‘Tong B= ‘,b);
readln
end.
a)
Input: 50 số tự nhiên đầu tiên.
Output: tổng 50 số tự nhiên đầu tiên.
Thuật toán:
B1. i←0; s←0;
B2. i←i+1; s←s+i;
B3. Nếu i=50 thì xuất s rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do s:=s+i;
writeln(‘Tong 50 so hang dasu tien la: ‘,s);
readln
end.
b)
Input: n.
Output: A.
Thuật toán:
B1. i←-1; A←0;
B2. i←i+2; A←A+i;
B3. Nếu i=2*n+1 thì xuất A rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var a,i,n:longint;
begin
clrscr;
write(‘n=’);readln(n);
i:=-1;
while i<2*n+1 do begin inc(i,2); a:=a+i; end;
writeln(‘A= ‘,a);
readln
end.
c)
Input: n.
Output: B.
Thuật toán:
B1. i←0; B←0;
B2. i←i+2; B←B+i;
B3. Nếu i=2*n thì xuất B rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var b,i,n:longint;
begin
clrscr;
write(‘n=’);readln(n);
i:=0;
while i<n*2 do begin inc(i,2); b:=b+i; end;
writeln(‘B= ‘,b);
readln
end.