Đã gửi bởi
Bài 1: Hai số được gọi là anh em nếu tổng các ước của chúng ngoài 1 và chính nó bằng nhau:
VD: 6: 2 3 >>> 5
25: 5 >>> 5
nên 6 và 25 là hai số anh em
Bài 2: Tìm số hoàn hảo: có các ước số trừ nó bằng chính nó
VD: 6: 1,2,3 >>> 1+2+3=6: 6 là số hoàn hảo.
Bài 3: 1) Tìm số nguyên tố bé hơn hoặc bằng số n nhập trước.
2) Kiểm tra 1 số là số nguyên tố hay không
Bài 4: Cho một xâu:
a) Đếm xâu
b) Đảo xâu
c) Đảo từ
Bài 5*: Cho một xâu kí tự, viết chương trình để lấy một đoạn xâu con của xâu mẹ với vị trí bắt đầu và vị trí cuối nhập trước!
p/s: tất cả đều phải sử dụng tệp!
*Bai 1:
program bb1;
uses crt;
var f:text;
i,n,j,k,l,p:longint;
function kt(n:longint):longint;
var i,j,k:longint;
begin
k:=0;
for i:=2 to n-1 do
if n mod i=0 then k:=k+i;
kt:=k;
end;
begin
clrscr;
assign(f,'b1.dat');
rewrite(f);
write('Nhap so thu 1:');readln(n);
writeln('Nhap so thu 2:');readln(p);
if kt(n)=kt(p) then writeln(f,n, va ',p,' la 2 so anh em') else writeln(f,n,' va ',p,' khong la 2 so anh em');
end;
reset(f);
while not eof(f) do
begin
readln(f,n);
writeln(f);
end;
close(f);
readln
end.
*Bai 2:
program bb2;
uses crt;
var f:text;
n:longint;
function hh(n:longint):boolean;
var i,,j:longint;
kt:boolean;
begin
kt:=false;
j:=0;
for i:=1 to n-1 do
if n mod i=0 then j:=j+i;
if j=n then kt:=true;
hh:=kt;
end;
begin
clrscr;
assign(f,'b2.dat');
rewrite(f);
write('Nhap so :');readln(n);
for i:=1 to n do
if hh(i) then write(f,i):
write('Cac so hoan hao la:');
reset(f);
while not eof(f) do
begin
read(f,i);
write(i,' ');
end;
close(f);
readln
end.
*Bai 3:
program bb3;
uses crt;
var f:text;
i,n,j,k,l,p:longint;
function nt(n:longint):boolean;
var i,s:longint;
kt:boolean;
begin
s:=0;
kt:=false;
for i:=1 to n do
if n mod i=0 then s:=s+1;
if s=2 then kt:=true;
nt:=kt;
end;
begin
clrscr;
assign(f,'b3.dat');
rewrite(f);
write('Nhap n:');readln(n);
for i:=1 to n do
if nt(i) then write(f,i);
writeln('Cac so nguyen to be hon hoac bang ',n,' la:');
reset(f);
while not eof(f) do
begin
read(f,i);
write(i,' ');
end;
writeln;
write('Nhap so can xac dinh:');readln(p);
rewrite(f);
if nt(p) then writeln(f,p,' la so nguyen to') else writeln(f,p,' khong la so nguyen to');
reset(f);
while not eof(f) do
begin
readln(f,p);
writeln(f);
end;
close(f);
readln
end.
*Bai 4:
program bb4;
uses crt;
var f:text;
i,n,j,k,l,p:longint;
s,s1,s2,s3:string;
begin
clrscr;
assign(f,'b4.dat');
rewrite(f);
write('Nhap xau:');readln(s);
s1:=s;st:='';s3:='';s2:='';
writeln(f,'Xau co ',length(s),' ky tu');
for i:=length(s) downto 1 do
st:=st+s[i];
writeln(f,'Xau dao:',st);
for i:=length(s1) downto 1 do
begin
if s1[i]<>' ' then s3:=s3+s1[i];
if (s1[i+1]<>' ')and(s1[i]=' ')or(i=1) then
begin
for j:=length(s3) downto 1 do
s2:=s2+s3[j];
s2:=s2+' ';
s3:='';
end;
end;
writeln(f,'Xau dao theo tu:',s2);
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(f);
end;
close(f);
readln
end.
*Bai 5:
program bb5;
uses crt;
var f:text;
i,,j,k:longint;
s,s1:string;
begin
clrscr;
write('Nhap xau me:');readln(s);
repeat
write('Nhap vi tri dau:');readln(k);
if (k>=1)and(k<=length(s) then break;
writeln('Nhap 1<=1<=length(s)');
until false;
repeat
write('Nhap vi tri cuoi:');readln(j);
if (j>=i)and(j<=length(s)) then break;
writeln('Nhap i<=j<=length(s)');
until false;
s1:='';
for i:=k to j do
s1:=s1+s[i];
assign(f,'b5.dat');
rewrite(f);
write(f,'Xau con:',s1);
reset(f);
while not eof(f) do
begin
read(f,s1);
write(s1);
end;
close(f);
readln
end.
--------- Phù phù....cuối cùng cũng post xong !!! 
P/s:"Phù phù" không phải ý là mệt vì bài khó mà là bị cắt giở do mất điện @@ << 3 lần >> 
==> Vô cùng ức chế 
.... mà bài làm ok rồi đó. 
Chúc may mắn ! 
) Ông xem thử đi, nếu có j góp ý thì cứ nói
