1 lập chương trình con tính giá trị của hàm f(a,k)=ak
sử dụng chương trình con tính tổng s= 1k+2k+...+ nk. với n,k nguyên dương nhập từ bàn phím
.........................................................
uses crt;
var
i,n,k:integer;
s:longint;
function mu(a,k:integer): longint;
var i:integer;
t: longint;
t:=1;
for i:=1 to k do
t:=t*a;
mu:=t;
end;
clrscr;
write('Nhap vao so n= '); readln(n);
write('Nhap vao so k= '); readln(k);
s:=0;
for i:=1 to n do
s:=s+mu(i,k);
write('Tong S= ',s);
readln;
end.
..........................................
1. lập chương trình con tính giai thừa của một số a bất kỳ (a nguyên dương). Sử dụng chương trình con tính s=1!+2!+...+ n! n nguyên duong nhập từ bàn phím
uses crt;
var
i,n:integer;
s:longint;
function gt(a:integer): longint;
var i:integer;
t: longint;
t:=1;
for i:=1 to a do
t:=t*i;
gt:=t;
end;
clrscr;
repeat
write('Nhap vao so n= '); readln(n);
until (n>0);
s:=0;
for i:=1 to n do
s:=s+gt(i);
write('Tong S= ',s);
readln;
end.
.............................................
3. viết chương trình nhập 2 ma trận A,B vuông cấp n các phần tử nguyên. Tính tổng 2 ma trận C=A+B.
uses crt;
type mt=array[1..100,1..100] of integer;
var a,b,c:mt;
n,m:integer;
procedure nhap(var x:mt; var hang,cot:integer);
var i,j:integer;
for i:=1 to hang do
for j:=1 to cot do
write('nhap vi tri thu ',i,',',j,'=');
readln(x[i,j]);
end;
end;
procedure xuat(var x:mt; hang,cot:integer);
var i,j:integer;
for i:=1 to hang do
for j:=1 to cot do
write(x[i,j],' ');
writeln;
end;
end;
procedure cong(var x,y,z:mt; hang,cot:integer);
var i,j:integer;
for i:=1 to hang do
for j:=1 to cot do
z[i,j]:=x[i,j]+y[i,j];
end;
clrscr;
write('nhap so hang n='); readln(n);
write('nhap so cot m='); readln(m);
writeln('nhap ma tran a:');
nhap(a,n,m);
clrscr;
writeln('nhap ma tran b;');
nhap(b,n,m);
writeln('ma tran a vua nhap la:');
xuat(a,n,m);
writeln('ma tran b vua nhap la:');
xuat(b,n,m);
cong(a,b,c,n,m);
writeln('tong 2 ma tran la;');
xuat(c,n,m);
readln;
end.
..................................
4 viết chương trình nhập 1 dãy số thực gồm n phần tử từ bàn phím. Tính trung bình cộng các số dương , âm.
uses crt;
var a:array[1..100] of integer;
i,n,b,d:integer;
ta,td:real;
clrscr;
write('nhap so cac pt cua mang n='); readln(n);
{nhap day}
writeln('nhap cac pt cua day:');
for i:=1 to n do
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then
td:=td+a[i];
d:=d+1; {dem so duong}
end;
if a[i]<0 then
ta:=ta+a[i];
b:=b+1;
end;
end;
if d<>0 then
write('tbc cac so duong la:',td/d:6:2)
else
write('khong co so duong nao trong day!!');
writeln;
if b<>0 then
write('tbc cac so am la :',ta/b:6:2)
else
write('khong co so am nao trong day!!');
readln;
end.
..............................................
5. viết chương trình nhập 1 dãy số thực gồm n phần tử. sắp xếp lại theo chiều ko giảm dần các phần tử trong dãy.
program ds5;
uses crt;
var a:array[1..100] of integer;
i,n,j,tg:integer;
clrscr;
write('nhap n=');
readln(n);
for i:=1 to n do
write('nhap a[',i,']=');
readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>a[j]) then
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln('day sau khi sap xep:');
for i:=1 to n do
write(a[i]:5);
readln;
end.
........................................
6. Lập hàm f(k)=k! , g(x,k)=xk. Lập trình nhập x(thực), n(nguyên dương) rồi tính SIN(x) theo công thức khai triển macloranh: S=x-x3/3!+x5/5!-x7/7!+...+(-1)n+1*x2n-1/(2n-1)!
program ds6;
uses crt;
var i,n,j:integer;
ms:longint;
ts,s,x:real;
function gt(k:integer): longint;
var j:integer;
nhan:longint;
nhan:=1;
for j:=1 to k do
nhan:=nhan*j;
gt:=nhan;
end;
function mu(a:real; k:integer): real
; var j:integer;
nhan:real;
nhan:=1;
for j:=1 to k do
nhan:=nhan*a;
mu:=nhan;
end;
clrscr;
write('nhap x= ');
readln(x);
repeat
write('nhap n= ');
readln(n);
until n>0;
s:=x;
for i:=1 to n do
ts:=mu(-1,i)*mu(x,2*i+1);
ms:=gt(2*i+1);
s:=s+ts/ms;
end;
writeln('sin(x)=',s:3:2);
readln;
end.
............................................................
7. viết chương trình nhập 1 dãy số nguyên gồm n phần tử từ bàn phím. Tính trung bình cộng các số chẵn, lẻ.
(Câu này từ từ nhé:)
...........................................................
10. Lập hàm f(k)=k! , g(x,k)=xk. với x và sai số eps nhập từ bàn phím(x thực, 0<eps<1) rồi tính cos(x) theo công thức khai triển macloranh:
S=1-x2/2!+x4/4!-x6/6!+...+(-1)n*x2n/(2n)!+...
...........
uses crt;
var
exp, s,x:real;
n,i:integer;
function gt(k:integer):longint;
var i:integer;
t:longint;
t:=1;
for i:=1 to k do
t:=t*i;
gt:=t;
end;
function mu(a:real;n:integer):real;
var i:integer;
t:real;
t:=1;
for i:=1 to n do
t:=t*a;
mu:=t;
end;
clrscr;
write('Nhap so x can tinh cos: ');
readln(x);
write('Nhap so exp: ');
readln(exp);
n:=0;
repeat
n:=n+1;
until mu(x,2*n)/gt(2*n) <= exp ;
s:=1;
for i:=1 to n do
s:=s+mu(-1,i)*mu(x,2*i)/gt(2*i);
writeln('Cos(',x:3:2,')= ',s:3:2);
write('n= ',n);
readln;
end.
...................................
11. lập hàm g(x,k)=xk áp dụng tính tổng sau:
S=1+x/2+x2/3+..+xn/(n+1) với x(thực), n nguyên dương.
uses crt;
var
x,s:real;
i,n:integer;
function mu(a:real; k:integer): real;
var j:integer;
nhan:real;
nhan:=1;
for j:=1 to k do
nhan:=nhan*a;
mu:=nhan;
end;
clrscr;
write('Nhao vao so x= '); readln(x);
write('Nhap vao so n= '); readln(n);
s:=1;
for i:=1 to n do
s:=s+mu(x,i)/(n+1);
write('S= ',s:5:2);
readln;
end.
...........................................................
12. lập hàm g(x,k)=xk, , g(x,k)=xk, với x(thực), n nguyên dương
Tính s=1-x+ x2/2!- x3/3!+...+(-1)n* xn/n!
uses crt;
var
s,x:real;
i,n:integer;
function gt(k:integer):longint;
var i:integer;
t:longint;
t:=1;
for i:=1 to k do
t:=t*i;
gt:=t;
end;
function mu(a:real;n:integer):real;
var i:integer;
t:real;
t:=1;
for i:=1 to n do
t:=t*a;
mu:=t;
end;
clrscr;
write('Nhao vao so x= '); readln(x);
repeat
write('Nhao vao so n= '); readln(n); until n>0;
s:=1;
for i:=1 to n do
s:=s+mu(-1,i)*mu(x,i)/gt(i);
write('S= ',s:5:2);
readln;
end.
................................................
13. lập hàm max(x,y) trả về GTLN của 2 số x,y. viết chương trình nhập 4 số a,b,c,d sau đó tìm GTLN va GTNN trong 4 số vừa nhập.
uses crt;
var
a,b,c,d:integer;
function solon(x,y:integer):integer;
var max:integer;
max:=x;
if (max<y) then
max:=y;
solon:=max;
end;
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
write('nhap d='); readln(d);
write('so lon nhat la: ',solon(solon(a,b),solon(c,d)));
readln;
end.
..............................................
14. lập hàm g(x,k)=xk, , g(x,k)=xk tính s với vòng lặp while : S=1+x/1!+x2/2!+..+xn/n!
uses crt;
var
s,x:real;
i,n:integer;
function gt(k:integer):longint;
var i:integer;
t:longint;
t:=1;
for i:=1 to k do
t:=t*i;
gt:=t;
end;
function mu(a:real;n:integer):real;
var i:integer;
t:real;
t:=1;
for i:=1 to n do
t:=t*a;
mu:=t;
end;
clrscr;
write('Nhap vao so x= '); readln(x);
repeat
write('Nhap vao so n= '); readln(n);
until n>0;
i:=0;
s:=1;
while i<n do
i:=i+1;
s:=s+mu(x,i)/gt(i);
end;
write('S= ',s:5:2);
readln;
end.
............................................
15. cho ma trận vuông cấp n. tính tổng các ptử nằm trên đường chéo chính.
program ttduong_cheo_chinh;
uses crt;
var a:array[1..100,1..100] of integer;
i,j,n,s:integer;
clrscr;
write('nhap so hang va cot n='); readln(n);
{nhap ma tran}
for i:=1 to n do
for j:=1 to n do
clrscr;
write('nhap a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('ma tran vuong vua nhap la:');
{xuat ma tran}
for i:=1 to n do
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
{tinh tong cac so tren duong cheo chinh}
s:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then
s:=s+a[i,j];
write('tong cac so tren duong cheo chinh s=',s);
readln;
end.
.....................................
17. viết chương trình nhập 1 dãy số thực gồm n phần tử , nhập k(0<k<=n) chèn thêm 2 số x,y vào vị trí k,k+1 (x,y thực).
uses crt;
var a:array[1..100] of integer;
i,n,x,y,k:integer;
clrscr;
write('nhap n=');
readln(n);
for i:=1 to n do
write('a[',i,']=');
readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:5);
writeln;
write('nhap k='); readln(k);
write('nhap x,y='); readln(x,y);
for i:=n downto k do
a[i+2]:=a[i];
a[k]:=x;
a[k+1]:=y;
writeln('day sau khi chen la:');
for i:=1 to n+2 do
write(a[i]:5);
readln;
end.
.............................
18. viết chương trình nhập 1 dãy số nguyên gồm n phần tử, nhập thêm số x, ktra xem số x vừa nhập có trong dãy ko. Nếu ko có thì đưa ra thong báo số vừa nhập ko có trong dãy..
uses crt;
var
dayso : array[1..100] of integer;
x:integer;
i,n,j:integer;
clrscr;
j:=0;
write('Nhap vao so phan tu cua day so ');
readln(n);
clrscr;
for i:=1 to n do
write('so thu ',i,' = '); read(dayso[i]);
clrscr;
end;
{in ra day vua nhap}
writeln('day vua nhap la:');
for i:=1 to n do
write(dayso[i],' ');
{nhap phan tu x}
writeln; {xuong dong}
write('nhap so x can dem trong day ');
readln(x);
for i:=1 to n do
if dayso[i]=x then
j:=j+1; { dem so lan xuat hien so x}
if j=0 then write('khong co so ',x,' trong day') else
write('so ',x,' xuat hien ',j,' lan tai vi tri: '); {thong bao so lan xuat hien}
for i:=1 to n do
if dayso[i]=x then
write(i,' '); {vi tri xuat hien}
end;
readln;
end.
................................................
26. lập chương trình đọc x(dương), n nguyên dương(số lượng dấu căn) tính s:
S=sqrt(x+sqrt(x+sqrt(x+sqrt(x+...+sqrt(x))))).
uses crt;
var x,n,i:integer;
s:real;
clrscr;
write('nhap x='); readln(x);
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=sqrt(x+s);
writeln('tong s=',s:5:2);
readln;
end.
......................................................
33. nhập 1 dãy số n pt nguyên đã sắp xếp theo chiều tăng dần. nhập số x, CHÈN X VÀO ĐÚNG VỊ TRÍ.
uses crt;
var
a: array[1..100] of integer;
n,i,k,tg,j,x:integer;
clrscr;
repeat
write('Nhap vao so phan tu cua day: ');
readln(n);
until (n>0)and(n<=100);
for i:=1 to n do
write('so thu ',i,' = ');
readln(a[i]);
end;
write('day vua nhap la: ');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
for j:=i+1 to n do
if a[i]>a[j] then
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write('day sau khi xap xep la: ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Nhap so x can chen x= '); readln(x);
k:=1;
for i:=1 to n do
if x>a[i] then k:=k+1;
{chen}
for i:=n downto k do
a[i+1]:=a[i];
a[k]:=x;
n:=n+1;
write('day sau khi chen la: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.
.......................................................
uses crt;
var
s,d:string;
i,l,j,m,n:integer;
clrscr;
writeln;
write('nhap vao chuoi x: '); readln(s);
d:=s;
l:=length(s);
i:=l+1;
repeat
i:=i-1;
for j:=i-1 downto 1 do
if d[i]=d[j] then
delete(d,j,1);
i:=i-1;
end;
until i=1;
writeln('Chuoi vua nhap la: ',s);
m:=0;
{ tim so lan xuat hien nhieu nhat}
for i:=1 to length(d) do
n:=0;
for j:=1 to l do
if d[i] = s[j] then
n:=n+1;
if n>m then m:=n;
end;
{doc ki tu xuat hien nhieu nhat}
write('ky tu xuat hien nhieu nhat la: ');
for i:=1 to length(d) do
n:=0;
for j:=1 to l do
if d[i]=s[j] then
n:=n+1;
if (n=m)and (d[i] =' ') then write('dau cach,') else
if (n=m)and (d[i]<>' ') then write(d[i],',');
end;
writeln;
write('xuat hien nhieu nhat ',m,'lan');
readln;
end.
......................................
39. nhập một xâu có từ'ha noi' trong sâu hãy chuyển thành 'HA NOI'..
uses crt;
var
s:string;
i,l,k:integer;
clrscr;
write('Nhap chuoi s: ');
readln(s);
l:=length(s);
k:=0;
for i:=1 to l do
if (copy(s,i,5)='hanoi')or(copy(s,i,6)='ha noi') then k:=k+1;
if k=0 then write('khong co chu hanoi trong xau') else
for i:=1 to l do
if copy(s,i,5)='hanoi' then
s[i]:=upcase(s[i]);
s[i+1]:=upcase(s[i+1]);
s[i+2]:=upcase(s[i+2]);
s[i+3]:=upcase(s[i+3]);
s[i+4]:=upcase(s[i+4]);
end;
if copy(s,i,6)='ha noi' then
s[i]:=upcase(s[i]);
s[i+1]:=upcase(s[i+1]);
s[i+2]:=upcase(s[i+2]);
s[i+3]:=upcase(s[i+3]);
s[i+4]:=upcase(s[i+4]);
s[i+5]:=upcase(s[i+5]);
end;
end;
write('Chuoi sau khi doi la: ',s);
end;
readln;
end.
...............................................................
22. viết chương trình nhập ma trận A (n hàng, m cột) các pt là thực. nhập k, tìm GTNN của cột k
uses crt;
type
mt=array[1..100,1..100] of integer;
var a:mt;
i,j,k,n,m,min:integer;
procedure nhap(var x:mt; var y,z:integer);
var i,j:integer;
for i:=1 to m do
for j:=1 to n do
write('nhap vi tri hang:',i,' cot:',j,'=');
readln(x[i,j]);
end;
end;
procedure xuat(var x:mt; var y,z:integer);
var i,j:integer;
for i:=1 to m do
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end;
clrscr;
write('nhap so hang m='); readln(m);
write('nhap so cot n='); readln(n);
nhap(a,m,n); writeln;
xuat(a,m,n); writeln;
repeat
write('nhap {1<=k<=m} k=');
readln(k);
until
(1<=k) and (k<=m);
min:=a[k,1];
for j:=2 to n do
if (a[k,j]<min) then
min:=a[k,j];
writeln('gt nn hang ',k,' la:',min);
readln;
end.
..........................
31. nhập một dãy số tách dãy vừa nhập thành 2 dãy âm và dương riêng biệt
uses crt;
type chuoi=array[1..100] of integer;
var
s,s1,s2: chuoi;
i,j,k,n:integer;
clrscr;
write('Nhap vao so phan tu cua day: '); readln(n);
for i:=1 to n do
write('Nhap vao so thu',i,' = ');
readln(s[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do
write(s[i]:3);
{ tim cac so chan va dua vao s1}
j:=0;
for i:=1 to n do
if s[i] mod 2 = 0 then
j:=j+1;
s1[j]:=s[i];
end;
{tim cac so le va dua vao s2 }
k:=0;
for i:=1 to n do
if s[i] mod 2 <> 0 then
k:=k+1;
s2[k]:=s[i];
end;
writeln;
write('Day cac so chan: ');
for i:=1 to j do
write(s1[i]:3);
writeln;
write('Day cac so le: ');
for i:=1 to k do
write(s2[i]:3);
readln;
end.
..............................................
32. nhập 1 dãy số. xóa tất cả các số có giá trị =0 trong dãy
uses crt;
var a:array[1..100] of integer;
i,j,n:integer;
clrscr;
write('nhap n=');
readln(n);
for i:=1 to n do
write('a[',i,']=');
readln(a[i]);
end;
writeln('day nhap la:');
for i:=1 to n do
write(a[i]:5);
writeln;
for i:=n downto 1 do
if (a[i]<0) and (a[i] mod 2<> 0) then
for j:=i to n do
a[j]:=a[j+1];
n:=n-1;
end;
end;
for i:=1 to n do
write(a[i]:5);
readln;
end.