Similar topics
bai tap nang cao phan2
2 posters
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Kiến Thức
Trang 1 trong tổng số 1 trang
bai tap nang cao phan2
Program Mang_so_thuc;
Const
Max = 100;
Type
Mang=Array[1..Max] Of Real;
Var
i,n:Integer;
A:mang;
Begin
Writeln('MANG SO THUC');
Writeln('------------');
Repeat
Write('-Cho biet so phan tu: ');
Readln(N);
Until N <= Max;
For i:=1 To N Do
Begin
Write('+Phan tu thu: ',i,' = ');
Readln(a[i]);
End;
Writeln;
Writeln('IN THEO THU TU NGUOC');
Writeln('--------------------');
Writeln;
For i:=N Downto 1 Do
Write(a[i]:4:1,' ');
Writeln;
Writeln;
Writeln('IN CAC DOI SO CUA CAC PHAN TU MANG');
Writeln('----------------------------------');
Writeln;
For i:=1 To N Do
Write(a[i]:4:1,' ');
Writeln;
Readln
End.
Program Mang_Ky_Tu;
Var
a:Array[Char] Of Integer;
Ch:Char;
Begin
Writeln('IN MA ASCII CUA CAC KY TU');
Writeln('------------------------');
For Ch:='A' To 'Z' Do
Begin
a[Ch]:=Ord(Ch);
Writeln('-Ky tu: ',Ch,' ma ASCII = ',a[ch]);
End;
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Program Tb_cong;
Var
i,so,dem,tong:Integer;
Tb:Real;
A:Array[1..100] Of Integer;
Begin
Writeln('TINH TRUNG BINH CONG CAC SO NGUYEN');
Writeln('----------------------------------');
Writeln;
dem:=0;
Tong:=0;
Write('-Nhap so nguyn: ');
Readln(so);
While so > 0 Do
Begin
dem:=dem+1;
a[dem]:=so;
Write('-Nhap so nguyen (-1 de ngung): ');
Readln(so);
End;
For i:=1 to dem Do
Tong:=Tong+A[i];
Tb:=Tong/dem;
Writeln;
Writeln('+Trung binh cong cua: ',dem:2,' so vua nhap = ',Tb:8:2);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Chen;
Var
i,spt:Integer;
so,vitri:Integer;
a:Array[1..100] Of Integer;
Begin
Writeln('CHEN MOT SO VAO MANG');
Writeln('--------------------');
Write('-Co bao nhieu phan tu: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i,']= ');
Readln(a[i]);
End;
Writeln;
Writeln('MANG TRUOC KHI CHEN');
For i:=1 To spt Do
Write(a[i]:6);
Writeln;
Write('-Can che so: ');
Readln(so);
Write('-Vao vi tri: ');
Readln(vitri);
For i:=spt+1 Downto Vitri+1 Do
a[i]:=a[i-1];
a[vitri]:=so;
spt:=spt+ 1;
Writeln;
Writeln('MANG SAU KHI CHEN');
For i:=1 To spt Do
Write(a[i]:6);
Readln
End.
Program Xoa_Pt;
Var
i,spt,vitri:Integer;
a:Array[1..100] Of Integer;
Begin
Writeln('XOA PHAN TU TRONG MANG');
Writeln('----------------------');
Writeln;
Write('-Mang co bo nhieu phan tu: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i:2,']= ');
Readln(a[i]);
End;
Writeln;
Writeln(' MANG TRUOC KHI XOA');
Writeln(' -----------------');
Writeln;
For i:=1 To spt Do
Write(a[i]:6);
Writeln;
Writeln;
Write('-Vi tri muon xoa: ');
Readln(vitri);
For i:=vitri to spt - 1 Do
a[i]:=a[i+1];
spt:=spt - 1;
Writeln;
Writeln(' MANG SAU KHI XOA');
Writeln(' ----------------');
Writeln;
For i:= 1 to spt Do
Write(a[i]:6);
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program So_le;
Var
a:Array[1..255] Of Integer;
i,spt,sole:Byte;
Begin
Writeln('THONG KE CAC SO LE');
Writeln('------------------');
Write('-Can nhap bao nhieu so: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i:2,']= ');
Readln(a[i]);
End;
sole:=0;
For i:=1 To spt Do
If Odd(A[i]) Then
Inc(sole);
Writeln;
Writeln('-Tong so cac so da nhap: ',spt);
For i:= 1 To spt Do
Write(a[i]:6);
Writeln;
Writeln('-Tong so cac so le la: ',sole);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Da_thuc;
Var
a:Array[1..255] Of Real;
i,n:Byte;
x,p:Real;
Begin
Writeln('TINH GIA TRI CUA DA THUC BAC N');
Writeln('------------------------------');
Writeln;
Write('-Cho biet bac cua da thuc: ');
Readln(n);
For i:= N Downto 0 Do
Begin
Write('-Cho biet he so A[',i:2,']= ');
Readln(a[i]);
End;
Writeln;
Write('-Cho biet X= ');
Readln(x);
P:=a[n];
For i:= N Downto 1 Do
P:=x * p + a[i-1];
Writeln;
Writeln('+Tri cua da thuc P(x)= ',P:0:6);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Doi_he_16;
Const
KyTuHe16:array[0..$F] Of Char ='0123456789ABCDEF';
Var
SoWord:Word;
SoHex:String[4];
Begin
Writeln('DOI SO NGUYEN KIEU WORD RA HE THAP LUC');
Writeln('--------------------------------------');
Writeln;
Write('-Nhap so kieu Word: ');
Readln(SoWord);
SoHex[0]:=#4;
SoHex[1]:= KyTuHe16[Hi(SoWord) SHR 4];
SoHex[2]:= KyTuHe16[Hi(SoWord) AND $F];
SoHex[3]:= KyTuHe16[Lo(SoWord) SHR 4];
SoHex[4]:= KyTuHe16[Lo(SoWord) AND $F];
Writeln('+So nguyen kieu Word = ',soWord);
Writeln('+Doi ra so he thap luc = $',SoHex);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Doi_he_2;
Const
KyTuHe2:array[0..1] Of Char ='01';
Var
SoWord:Word;
SoBinary:String[16];
i:byte;
Begin
Writeln('DOI SO NGUYEN KIEU WORD RA HE NHI PHAN');
Writeln('--------------------------------------');
Writeln;
Write('-Nhap so kieu Word: ');
Readln(SoWord);
SoBinary[0]:=#16;
For i:=15 DownTo 0 Do
If (SoWord AND (1 SHL i)) = (1 SHL i) Then
SoBinary[16-i]:= KyTuHe2[1]
Else
SoBinary[16-i]:= KyTuHe2[0];
Writeln('+So nguyen kieu Word = ',soWord);
Writeln('+Doi ra so he nhi phan= B ',SoBinary);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Cong_so;
Uses Crt;
Const
spt=301;
Type
mang=Array[1..spt] Of Integer;
Var
a,b,kq:Mang;
k,na,nb,nmax,tam:Integer;
Begin
ClrScr;
Writeln('CONG 2 SO NGUYEN');
Writeln('----------------');
Writeln;
Writeln('+SO THU NHAT (-1 de ket thuc) ');
na:=0;
Repeat
na:=na+1;
Write('-Chu so thu: ',na,' = ');
Readln(a[na]);
Until a[na]=-1;
na:=na-1;
For k:=0 To na-1 Do
a[spt-k]:=a[na-k];
For k:=1 to spt-na Do
a[k]:=0;
ClrScr;
Writeln('+SO THU HAI (-1 de ket thuc) ');
nb:=0;
Repeat
nb:=nb+1;
Write('-Chu so thu: ',nb,' = ');
Readln(b[nb]);
Until b[nb]=-1;
nb:=nb-1;
For k:=0 To nb-1 Do
b[spt-k]:=b[nb-k];
For k:=1 to spt-nb Do
b[k]:=0;
If na>nb Then
nmax:=na
Else
nmax:=nb;
tam:=0;
For k:=spt Downto spt-nmax Do
Begin
kq[k]:=(a[k]+b[k]+tam) Mod 10;
tam:=(a[k]+b[k]+tam) Div 10;
End;
ClrScr;
Writeln('KET QUA CONG 2 SO NGUYEN');
Writeln('------------------------');
Write('*So thu nhat: ');
For k:=spt-na+1 To spt Do
Write(a[k],' ');
Writeln;
Write('*So thu hai : ');
For k:=spt-nb+1 To spt Do
Write(b[k],' ');
Writeln;
Write('*Tong = ');
For k:=Spt-nmax To spt Do
Write(kq[k],' ');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
cong diem nha!!!!!!!
Const
Max = 100;
Type
Mang=Array[1..Max] Of Real;
Var
i,n:Integer;
A:mang;
Begin
Writeln('MANG SO THUC');
Writeln('------------');
Repeat
Write('-Cho biet so phan tu: ');
Readln(N);
Until N <= Max;
For i:=1 To N Do
Begin
Write('+Phan tu thu: ',i,' = ');
Readln(a[i]);
End;
Writeln;
Writeln('IN THEO THU TU NGUOC');
Writeln('--------------------');
Writeln;
For i:=N Downto 1 Do
Write(a[i]:4:1,' ');
Writeln;
Writeln;
Writeln('IN CAC DOI SO CUA CAC PHAN TU MANG');
Writeln('----------------------------------');
Writeln;
For i:=1 To N Do
Write(a[i]:4:1,' ');
Writeln;
Readln
End.
Program Mang_Ky_Tu;
Var
a:Array[Char] Of Integer;
Ch:Char;
Begin
Writeln('IN MA ASCII CUA CAC KY TU');
Writeln('------------------------');
For Ch:='A' To 'Z' Do
Begin
a[Ch]:=Ord(Ch);
Writeln('-Ky tu: ',Ch,' ma ASCII = ',a[ch]);
End;
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Program Tb_cong;
Var
i,so,dem,tong:Integer;
Tb:Real;
A:Array[1..100] Of Integer;
Begin
Writeln('TINH TRUNG BINH CONG CAC SO NGUYEN');
Writeln('----------------------------------');
Writeln;
dem:=0;
Tong:=0;
Write('-Nhap so nguyn: ');
Readln(so);
While so > 0 Do
Begin
dem:=dem+1;
a[dem]:=so;
Write('-Nhap so nguyen (-1 de ngung): ');
Readln(so);
End;
For i:=1 to dem Do
Tong:=Tong+A[i];
Tb:=Tong/dem;
Writeln;
Writeln('+Trung binh cong cua: ',dem:2,' so vua nhap = ',Tb:8:2);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Chen;
Var
i,spt:Integer;
so,vitri:Integer;
a:Array[1..100] Of Integer;
Begin
Writeln('CHEN MOT SO VAO MANG');
Writeln('--------------------');
Write('-Co bao nhieu phan tu: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i,']= ');
Readln(a[i]);
End;
Writeln;
Writeln('MANG TRUOC KHI CHEN');
For i:=1 To spt Do
Write(a[i]:6);
Writeln;
Write('-Can che so: ');
Readln(so);
Write('-Vao vi tri: ');
Readln(vitri);
For i:=spt+1 Downto Vitri+1 Do
a[i]:=a[i-1];
a[vitri]:=so;
spt:=spt+ 1;
Writeln;
Writeln('MANG SAU KHI CHEN');
For i:=1 To spt Do
Write(a[i]:6);
Readln
End.
Program Xoa_Pt;
Var
i,spt,vitri:Integer;
a:Array[1..100] Of Integer;
Begin
Writeln('XOA PHAN TU TRONG MANG');
Writeln('----------------------');
Writeln;
Write('-Mang co bo nhieu phan tu: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i:2,']= ');
Readln(a[i]);
End;
Writeln;
Writeln(' MANG TRUOC KHI XOA');
Writeln(' -----------------');
Writeln;
For i:=1 To spt Do
Write(a[i]:6);
Writeln;
Writeln;
Write('-Vi tri muon xoa: ');
Readln(vitri);
For i:=vitri to spt - 1 Do
a[i]:=a[i+1];
spt:=spt - 1;
Writeln;
Writeln(' MANG SAU KHI XOA');
Writeln(' ----------------');
Writeln;
For i:= 1 to spt Do
Write(a[i]:6);
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program So_le;
Var
a:Array[1..255] Of Integer;
i,spt,sole:Byte;
Begin
Writeln('THONG KE CAC SO LE');
Writeln('------------------');
Write('-Can nhap bao nhieu so: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i:2,']= ');
Readln(a[i]);
End;
sole:=0;
For i:=1 To spt Do
If Odd(A[i]) Then
Inc(sole);
Writeln;
Writeln('-Tong so cac so da nhap: ',spt);
For i:= 1 To spt Do
Write(a[i]:6);
Writeln;
Writeln('-Tong so cac so le la: ',sole);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Da_thuc;
Var
a:Array[1..255] Of Real;
i,n:Byte;
x,p:Real;
Begin
Writeln('TINH GIA TRI CUA DA THUC BAC N');
Writeln('------------------------------');
Writeln;
Write('-Cho biet bac cua da thuc: ');
Readln(n);
For i:= N Downto 0 Do
Begin
Write('-Cho biet he so A[',i:2,']= ');
Readln(a[i]);
End;
Writeln;
Write('-Cho biet X= ');
Readln(x);
P:=a[n];
For i:= N Downto 1 Do
P:=x * p + a[i-1];
Writeln;
Writeln('+Tri cua da thuc P(x)= ',P:0:6);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Doi_he_16;
Const
KyTuHe16:array[0..$F] Of Char ='0123456789ABCDEF';
Var
SoWord:Word;
SoHex:String[4];
Begin
Writeln('DOI SO NGUYEN KIEU WORD RA HE THAP LUC');
Writeln('--------------------------------------');
Writeln;
Write('-Nhap so kieu Word: ');
Readln(SoWord);
SoHex[0]:=#4;
SoHex[1]:= KyTuHe16[Hi(SoWord) SHR 4];
SoHex[2]:= KyTuHe16[Hi(SoWord) AND $F];
SoHex[3]:= KyTuHe16[Lo(SoWord) SHR 4];
SoHex[4]:= KyTuHe16[Lo(SoWord) AND $F];
Writeln('+So nguyen kieu Word = ',soWord);
Writeln('+Doi ra so he thap luc = $',SoHex);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Doi_he_2;
Const
KyTuHe2:array[0..1] Of Char ='01';
Var
SoWord:Word;
SoBinary:String[16];
i:byte;
Begin
Writeln('DOI SO NGUYEN KIEU WORD RA HE NHI PHAN');
Writeln('--------------------------------------');
Writeln;
Write('-Nhap so kieu Word: ');
Readln(SoWord);
SoBinary[0]:=#16;
For i:=15 DownTo 0 Do
If (SoWord AND (1 SHL i)) = (1 SHL i) Then
SoBinary[16-i]:= KyTuHe2[1]
Else
SoBinary[16-i]:= KyTuHe2[0];
Writeln('+So nguyen kieu Word = ',soWord);
Writeln('+Doi ra so he nhi phan= B ',SoBinary);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
Program Cong_so;
Uses Crt;
Const
spt=301;
Type
mang=Array[1..spt] Of Integer;
Var
a,b,kq:Mang;
k,na,nb,nmax,tam:Integer;
Begin
ClrScr;
Writeln('CONG 2 SO NGUYEN');
Writeln('----------------');
Writeln;
Writeln('+SO THU NHAT (-1 de ket thuc) ');
na:=0;
Repeat
na:=na+1;
Write('-Chu so thu: ',na,' = ');
Readln(a[na]);
Until a[na]=-1;
na:=na-1;
For k:=0 To na-1 Do
a[spt-k]:=a[na-k];
For k:=1 to spt-na Do
a[k]:=0;
ClrScr;
Writeln('+SO THU HAI (-1 de ket thuc) ');
nb:=0;
Repeat
nb:=nb+1;
Write('-Chu so thu: ',nb,' = ');
Readln(b[nb]);
Until b[nb]=-1;
nb:=nb-1;
For k:=0 To nb-1 Do
b[spt-k]:=b[nb-k];
For k:=1 to spt-nb Do
b[k]:=0;
If na>nb Then
nmax:=na
Else
nmax:=nb;
tam:=0;
For k:=spt Downto spt-nmax Do
Begin
kq[k]:=(a[k]+b[k]+tam) Mod 10;
tam:=(a[k]+b[k]+tam) Div 10;
End;
ClrScr;
Writeln('KET QUA CONG 2 SO NGUYEN');
Writeln('------------------------');
Write('*So thu nhat: ');
For k:=spt-na+1 To spt Do
Write(a[k],' ');
Writeln;
Write('*So thu hai : ');
For k:=spt-nb+1 To spt Do
Write(b[k],' ');
Writeln;
Write('*Tong = ');
For k:=Spt-nmax To spt Do
Write(kq[k],' ');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc ');
Readln
End.
cong diem nha!!!!!!!
Profession_jamy- Ma cấp II
- Tổng số bài gửi : 132
Join date : 25/10/2010
Age : 44
Đến từ : Tamky
cái ông ni...?!?!?!?!?!
Ông đã có công post bài, ông làm ơn ghi gium` mấy chữ đề đc ko. Nhìn zô cái chương trình đã mệt lắm rồi, lại còn phải xem cái đề kiểu ren nữa. Còn không thì chỗ program, ghi rõ rõ chút. Nhìn vô bài mà thấy nản...
fantasy_kpig- Ma cấp I
- Tổng số bài gửi : 76
Join date : 24/10/2010
Age : 29
Đến từ : Quảng nam, Việt Nam
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Kiến Thức
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết