Bài tập pascal

Bài 1. Sử dụng lệnh lặp để tính tổng của 11 số hạng đầu tiên
S = 100 + 105 + 110 + ...

var i,s,n:integer;
begin
s:=0; n:=100;
for i:=1 to 11 do
begin
s:=s+n;
n:=n+5;
end;
write(`S= `, s);
end.
=================================================
Bài 3. Tìm số ∏, biết rằng ∏/4 = 1 - 1/3 + 1/5 - 1/7 + ...
Với độ chính xác: | 1/2n-1 | < 10-5

const e=0.00001;
var pi, t : real;
i, n, dau : integer;
Begin
pi:=0;
dau:=1;
i:=1;
t:=abs(1/(2*i-1));
while t>e do
begin
pi:=pi+dau*1/(2*i-1);
dau:=-dau;
i:=i+1;
t:=1/(2*i-1);
end;
writeln(` pi (sai so 0.00001) = `, 4*pi:4:2);
End.
=================================================
Bai 4. Cho một dãy số nguyên A(i)(i=1,N). Viết chương trình:
Tính và in ra trung bình cộng cuả các số dương
Đếm xem có bao nhiêu số chia hết cho 3
In ra vị trí các số bằng 0 (nếu có) trong dãy đã cho

var A : Array[1..100] of integer;
i, vt, dem, n, s: integer;
tbc : real;
Begin
write(` Nhap so pt cua mang: `); readln(n);
for i:=1 to n do
begin
write(`A[`, i, `]= `);
readln(A[i]);
end;

{Tinh va in ra trung binh cong cac so duong}
s:=0; dem:=0;
for i:=1 to n do
if A[i] >0 then
begin
s:=s+A[i];
dem:=dem+1;
end;
writeln(`TBC cua cac phan tu >0 la: `, s/dem:6:2);
{Dem xem co bao nhieu chu so chia het cho 3}
dem:=0;
for i:=1 to n do
if (A[i] mod 3)=0 then dem:=dem+1;
write(`So phan tu chia het cho 3: `, dem);
{In ra vi tri cac phan tu bang 0}
writeln;
write(`cac vi tri bang 0 la: `);
for i:=1 to n do
if A[i] = 0 then write(` `, i);
readln
End.
=================================================
Bài 5. Viết chương trình tìm các số có 3 chữ số mà tổng lập phương các chữ số của nó bằng chính nó (các số Amstrong)
var a, b, c, i : integer;
Begin
writeln(`Cac cap gia tri thoa man: `);
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if 100*a + 10*b + c = a*a*a + b*b*b + c*c*c then
begin
writeln(`a= `,a, ` b= `,b, ` c= `, c);writeln;
end;
End.




Bài 6. Nhập một số thực x rồi tính
S = 1 + x/1! + x2/2! + x3/3! + ...+ xn/n! với độ chính xác | xn/n! | < 10-5 const e=0.00001;
var i, n, gt : integer;
x, xn : integer;
s,t:real;
Begin
write(` Nhap so thuc x= `); readln(x);
i:=1; s:=1; xn:=1; gt:=1; t:=0;
repeat
xn:=xn*x;
gt:=gt*i;
t:=xn/gt;
s:=s+t;
i:=i+1;
Until t writeln(` Tong S(voi do chinh xac 0.00001)