Similar topics
Bai tap neeeeeeeeeeeee
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Hỏi đáp
Trang 1 trong tổng số 1 trang
Bai tap neeeeeeeeeeeee
Program Doi_thap_phan_ra_thap_luc;
Var
He10,N,Y:Word;
He16,Tam:String;
Begin
Writeln('DOI SO TU HE THAP PHAN SANG HE THAP LUC PHAN');
Writeln(' -----------------');
Writeln;
Write('-Nhap so nguyen he thap phan: ');
Readln(He10);
N:=He10;
He16:=' ';
Repeat
Y:=He10 Mod 16;
If Y < 10 Then
Str(Y, Tam)
Else
Tam:=Chr(Y+55);
He16:=Tam + He16;
He10:= He10 Div 16;
Until He10 = 0;
Writeln;
Writeln('+So he 10 la : ',N);
Writeln('+Doi sang he 16 la: ',He16);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Doi_thap_phan_ra_he_bat_ky;
Var
He10,N,Y,HeN:Word;
He,Tam:String;
Begin
Writeln('DOI SO TU HE THAP PHAN SANG HE BAT KY');
Writeln(' -----------------');
Writeln;
Write('-Nhap so nguyen he thap phan: ');
Readln(He10);
N:=He10;
Write('-Doi sang he nao: ');
Readln(HeN);
He:=' ';
Repeat
Y:=He10 Mod HeN;
If Y < 10 Then
Str(Y, Tam)
Else
Tam:=Chr(Y+55);
He:=Tam + He;
He10:= He10 Div HeN;
Until He10 = 0;
Writeln;
Writeln('+So he 10 la : ',N);
Writeln('+Doi sang he: ',HeN:2,' la: ',He);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program So_thu_Tu_ma_ASCII;
Var
St:String;
i:Byte;
Begin
Writeln('SO THU TU MA ASCII CUA TUNG KY TU TRONG CHUOI');
Writeln(' --------------------');
Write('-Nhap chuoi: ');
Readln(St);
Writeln;
For i:=1 To Length(St) Do
Write(' ',Ord(St[i]));
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Dao_Chuoi;
Var
St:String;
i:Byte;
Begin
Writeln('DAO NGUOC MOT CHUOI');
Writeln(' -----------');
Write('-Nhap chuoi: ');
Read(St);
Writeln;
Write('+Chuoi dao : ');
For i:= Length(St) DownTo 1 Do
Write(St[i]);
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
Readln
End.
Program Tach_chuoi;
Var
St:String;
Pos,Num:Byte;
Begin
Writeln('TACH CHUOI CON TU CHUOI ME');
Writeln(' Ham Copy');
Writeln(' ---------------');
Write('-Nhap chuoi: ');
Readln(St);
Write('-Tach tu vi tri: ');
Readln(Pos);
Write('-Bao nhieu ky tu: ');
Readln(Num);
Writeln;
Writeln('+Chuoi con la: ',Copy(St,Pos,Num));
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Vi_Tri_Chuoi;
Var
St1,St2:String;
Begin
Writeln('VI TRI CHUOI CON TRONG CHUOI ME');
Writeln(' Ham Pos');
Writeln(' --------------');
Write('-Chuoi me: ');
Readln(St1);
Write('-Chuoi con: ');
Readln(St2);
Writeln('+Chuoi con bat dau tu vi tri thu: ',Pos(St2,St1),
' trong chuoi me');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Chuoi_Doi_Xung;
Var
St:String;
i,l:Byte;
Begin
Writeln('CHUOI DOI XUNG');
Writeln(' --------');
Write('-Nhap chuoi: ');
Readln(St);
l:=Length(St);
i:=1;
While (i < l Div 2) And (St[i] = St[l-i+1]) Do
Begin
i:=i+1;
If i < (l Div 2) Then
Writeln('+Chuoi nay doi xung')
End;
While (i < l Div 2) And (St[i] <> St[l-i+1]) Do
Begin
i:=i+1;
If i < (l Div 2) Then
Writeln('+Chuoi nay khong doi xung')
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Dem_chuoi;
Var
St:String;
dem:ARRAY['A'.. 'Z'] Of Integer;
i:Integer;
Ch:Char;
Begin
Writeln('DEM SO LAN XUAT HIEN CUA KY TU TRONG CHUOI');
Writeln(' -----------');
Write('-Nhap chuoi: ');
Readln(St);
For i:=1 To Length(St) Do
Dem[UpCase(St[i])]:= Dem[UpCase(St[i])]+1;
Writeln;
Writeln('+Cac ky tu trong chuoi la: ');
For Ch:='A' To 'Z' Do
If Dem[ch] > 0 Then
Writeln('+Chu: ',Ch,' co: ',Dem[Ch],' ky tu' );
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
xem xong cong diem cho em nha!!!!!!!!!!!!!!!!!!!!!!!!!
Var
He10,N,Y:Word;
He16,Tam:String;
Begin
Writeln('DOI SO TU HE THAP PHAN SANG HE THAP LUC PHAN');
Writeln(' -----------------');
Writeln;
Write('-Nhap so nguyen he thap phan: ');
Readln(He10);
N:=He10;
He16:=' ';
Repeat
Y:=He10 Mod 16;
If Y < 10 Then
Str(Y, Tam)
Else
Tam:=Chr(Y+55);
He16:=Tam + He16;
He10:= He10 Div 16;
Until He10 = 0;
Writeln;
Writeln('+So he 10 la : ',N);
Writeln('+Doi sang he 16 la: ',He16);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Doi_thap_phan_ra_he_bat_ky;
Var
He10,N,Y,HeN:Word;
He,Tam:String;
Begin
Writeln('DOI SO TU HE THAP PHAN SANG HE BAT KY');
Writeln(' -----------------');
Writeln;
Write('-Nhap so nguyen he thap phan: ');
Readln(He10);
N:=He10;
Write('-Doi sang he nao: ');
Readln(HeN);
He:=' ';
Repeat
Y:=He10 Mod HeN;
If Y < 10 Then
Str(Y, Tam)
Else
Tam:=Chr(Y+55);
He:=Tam + He;
He10:= He10 Div HeN;
Until He10 = 0;
Writeln;
Writeln('+So he 10 la : ',N);
Writeln('+Doi sang he: ',HeN:2,' la: ',He);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program So_thu_Tu_ma_ASCII;
Var
St:String;
i:Byte;
Begin
Writeln('SO THU TU MA ASCII CUA TUNG KY TU TRONG CHUOI');
Writeln(' --------------------');
Write('-Nhap chuoi: ');
Readln(St);
Writeln;
For i:=1 To Length(St) Do
Write(' ',Ord(St[i]));
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Dao_Chuoi;
Var
St:String;
i:Byte;
Begin
Writeln('DAO NGUOC MOT CHUOI');
Writeln(' -----------');
Write('-Nhap chuoi: ');
Read(St);
Writeln;
Write('+Chuoi dao : ');
For i:= Length(St) DownTo 1 Do
Write(St[i]);
Writeln;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
Readln
End.
Program Tach_chuoi;
Var
St:String;
Pos,Num:Byte;
Begin
Writeln('TACH CHUOI CON TU CHUOI ME');
Writeln(' Ham Copy');
Writeln(' ---------------');
Write('-Nhap chuoi: ');
Readln(St);
Write('-Tach tu vi tri: ');
Readln(Pos);
Write('-Bao nhieu ky tu: ');
Readln(Num);
Writeln;
Writeln('+Chuoi con la: ',Copy(St,Pos,Num));
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Vi_Tri_Chuoi;
Var
St1,St2:String;
Begin
Writeln('VI TRI CHUOI CON TRONG CHUOI ME');
Writeln(' Ham Pos');
Writeln(' --------------');
Write('-Chuoi me: ');
Readln(St1);
Write('-Chuoi con: ');
Readln(St2);
Writeln('+Chuoi con bat dau tu vi tri thu: ',Pos(St2,St1),
' trong chuoi me');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Chuoi_Doi_Xung;
Var
St:String;
i,l:Byte;
Begin
Writeln('CHUOI DOI XUNG');
Writeln(' --------');
Write('-Nhap chuoi: ');
Readln(St);
l:=Length(St);
i:=1;
While (i < l Div 2) And (St[i] = St[l-i+1]) Do
Begin
i:=i+1;
If i < (l Div 2) Then
Writeln('+Chuoi nay doi xung')
End;
While (i < l Div 2) And (St[i] <> St[l-i+1]) Do
Begin
i:=i+1;
If i < (l Div 2) Then
Writeln('+Chuoi nay khong doi xung')
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Program Dem_chuoi;
Var
St:String;
dem:ARRAY['A'.. 'Z'] Of Integer;
i:Integer;
Ch:Char;
Begin
Writeln('DEM SO LAN XUAT HIEN CUA KY TU TRONG CHUOI');
Writeln(' -----------');
Write('-Nhap chuoi: ');
Readln(St);
For i:=1 To Length(St) Do
Dem[UpCase(St[i])]:= Dem[UpCase(St[i])]+1;
Writeln;
Writeln('+Cac ky tu trong chuoi la: ');
For Ch:='A' To 'Z' Do
If Dem[ch] > 0 Then
Writeln('+Chu: ',Ch,' co: ',Dem[Ch],' ky tu' );
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
xem xong cong diem cho em 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
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Hỏi đáp
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