Trang Chính
Postado 25/4/2014, 19:56
1/ Viết chương trình tính tổng ( sử dụng câu lệnh lặp while-do)
S=1+1/2+1/3+………….+1/n
Với 1/n < E . Giá trị E là sai số cho trước và được nhập từ bàn phím
TL:
program tinh;
uses crt;
var
i,n,e:integer;
s:real;
begin
clrscr;
writeln(‘nhap n’);readln(n);
writeln(‘nhap e’);readln(e);
i:=1;
s:=0;
if 1/n
while i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
end;
writeln(s:0:4);
readln;
end;
2/ Viết chượng trình nhập vào 2 số nguyên a, b .Tìm ƯCLN của của a,b
TL:
program uocchunglonnhat;
uses crt;
var
a,b,UCLN:integer;
begin
clrscr;
writeln(‘nhap a’);readln(a);
writeln(‘nhap b’);readln(b);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
UCLN:=a;
writeln(‘ uoc chung lon nhat la ‘, UCLN);
readln;
end;
3/ Viết chương trình nhập số tự nhiên “n” và tính tổng các ước thực sự của “n”
TL:
program uocthucsu;
uses crt;
var
i,n,S:integer;
begin
clrscr;
writeln(‘nhap n’);readln(n);
S:=0;
for i:=1 to n div 2 do
if n mod i =0 then
S:=S+i;
writeln(‘ tong ca uoc thuc su cua n la ‘,S);
readln;
end;
4/ Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số ( những số này được gọi là số Amstrong )
VD:153 là số Amstrong vì 153=13 +53 +33
TL:
program Amstrong;
uses crt;
var
a,b,c: integer;
begin
clrscr;
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(‘so ‘,a,b,c,’ la so Amstrong;’);
readln;
end.
5/ Số hoàn hảo là số bằng tổng các ước thực sự của nó. Hãy viết chương trình tìm các số hòn hảo nhỏ hơn 1000
VD: 6 là số hoàn hảo vì 6=1+2+3
TL:
program sohoanhao;
uses crt;
var
i,a,S:integer
begin
clrscr;
writeln(‘cac so hoan hao tu 1 den 1000 la ');
for a:=1 to 1000 do
begin
S:=0;
for i:=1 to a div 2 do
if a mod i=0 then
S:=S+i;
if S=a then
writeln(a);
end;
readln;
end
S=1+1/2+1/3+………….+1/n
Với 1/n < E . Giá trị E là sai số cho trước và được nhập từ bàn phím
TL:
program tinh;
uses crt;
var
i,n,e:integer;
s:real;
begin
clrscr;
writeln(‘nhap n’);readln(n);
writeln(‘nhap e’);readln(e);
i:=1;
s:=0;
if 1/n
while i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
end;
writeln(s:0:4);
readln;
end;
2/ Viết chượng trình nhập vào 2 số nguyên a, b .Tìm ƯCLN của của a,b
TL:
program uocchunglonnhat;
uses crt;
var
a,b,UCLN:integer;
begin
clrscr;
writeln(‘nhap a’);readln(a);
writeln(‘nhap b’);readln(b);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
UCLN:=a;
writeln(‘ uoc chung lon nhat la ‘, UCLN);
readln;
end;
3/ Viết chương trình nhập số tự nhiên “n” và tính tổng các ước thực sự của “n”
TL:
program uocthucsu;
uses crt;
var
i,n,S:integer;
begin
clrscr;
writeln(‘nhap n’);readln(n);
S:=0;
for i:=1 to n div 2 do
if n mod i =0 then
S:=S+i;
writeln(‘ tong ca uoc thuc su cua n la ‘,S);
readln;
end;
4/ Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số ( những số này được gọi là số Amstrong )
VD:153 là số Amstrong vì 153=13 +53 +33
TL:
program Amstrong;
uses crt;
var
a,b,c: integer;
begin
clrscr;
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(‘so ‘,a,b,c,’ la so Amstrong;’);
readln;
end.
5/ Số hoàn hảo là số bằng tổng các ước thực sự của nó. Hãy viết chương trình tìm các số hòn hảo nhỏ hơn 1000
VD: 6 là số hoàn hảo vì 6=1+2+3
TL:
program sohoanhao;
uses crt;
var
i,a,S:integer
begin
clrscr;
writeln(‘cac so hoan hao tu 1 den 1000 la ');
for a:=1 to 1000 do
begin
S:=0;
for i:=1 to a div 2 do
if a mod i=0 then
S:=S+i;
if S=a then
writeln(a);
end;
readln;
end
