Input:Số n
Output: Tổng
Thuật toán:
Bắt đầu
B1: Nhập n
B2: T:=0;
B3: i:=1;
B4: Nếu i>N thì chuyển tới B6
B5: T:=T+1/i; Quay lại B4
B6. Xuất kết quả T
Kết thúc.
Viêt chương trình
Uses crt;
var n,i:integer;
s:real;
begin
Clrscr;
Write('N= '); readln(n);
T:=0;
For i:=1 to N do
T:=T+1/i;
Write('T= ',t:2:2);
readln;
end.
Bài 1:
program tinhtong;
uses crt;
var n,i:integer;
T:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
T:=0;
for i:=1 to N do
if i mod 2=0 then T:=T+i;
write('Tong cac so chan tu 1 den ',n,' la: ',t);
readln;
end.
Bài 2:
program tinhtong;
uses crt;
var n,i:integer;
T:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
T:=0;
for i:=1 to N do
if i mod 2=1 then T:=T+i;
write('Tong cac so le tu 1 den ',n,' la: ',t);
readln;
end.
Bài 3:
program tinhtich;
uses crt;
var n,i:integer;
T:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
T:=1;
for i:=1 to N do
if i mod 2=0 then T:=T*i;
write('Tich cac so chan tu 1 den ',n,' la: ',t);
readln;
end.
Bài 4:
program tinhtich;
uses crt;
var n,i:integer;
T:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
T:=1;
for i:=1 to N do
if i mod 2=1 then T:=T*i;
write('Tich cac so le tu 1 den ',n,' la: ',t);
readln;
end.
Bài 5:
program tinhtich;
uses crt;
var n,i:integer;
T:real;
begin
clrscr;
write('Nhap n: '); readln(n);
T:=1;
for i:=1 to N do
T:=T*1/i;
write('T= ',t:2:2);
readln;
end.
