markdown:
| |
| |
![]()
| |![]()
| |![]()
| |
| || |
| |
#
1
| |
Tham gia: Oct 2009
Nơi Cư Ngụ: 127.0.0.1
Point: 2,348,771 ![]()
Đã cảm ơn: 159 bài viết
Được cảm ơn
645 lần trong 184 bài ![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
| |![]()
Thư Viện Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 2
## Thư Viện Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 2
101/Nhập số liệu cho 1 tập tin số nguyên:
Code:
Program Tap_Tin_So_Nguyen; Uses Crt; Var f : File Of Integer; So : Integer; a : Array[1..10] Of Integer; Spt,i,j : Integer; Filename : String[11]; Begin ClrScr; Writeln('NHAP SO LIEU CHO TAP TIN SONGUYEN.DAT'); Writeln('-------------------------------------'); Writeln; Assign(f,'songuyen.dat'); ReWrite(f); For i := 1 To 10 Do Begin Write('-So thu: ',i:2,' = '); Readln(So); Write(f,so); End; Close(f); Spt := 0; Reset(f); While NOT EOF(f) Do Begin Spt := Spt + 1; Read(f,so); a[Spt] := so; End; Close(f); For i := 1 To Spt -1 Do For j := Spt Downto i + 1 Do If a[j] < a[j-1] Then Begin So := a[j]; a[j] := a[j-1]; a[j-1] := So; End; Writeln; Writeln('Sau khi sap xep: '); For i := 1 To 10 Do Write(a[i]:6); Writeln; Write(' Bam <Enter>... '); Readln End.
102/Ghép tập tin:
Code:
Program Ghep_Tap_Tin; Uses Crt; Var f1,f2,f3 : File Of Real; i : Integer; So : Real; Ch : Char; Begin ClrScr; Writeln('NHAP SO LIEU CHO TAP1.DAT'); Writeln('-------------------------'); Writeln; Assign(f1,'TAP1.DAT'); Rewrite(f1); i := 0; Repeat i := i + 1; Write('-So thu: ',i:2,' = '); Readln(So); Write(f1,so); Write(' Nhap nua ? (c/k) '); Readln(Ch); Until Upcase(Ch) ='K'; Close(f1); ClrScr; Writeln('NHAP SO LIEU CHO TAP2.DAT'); Writeln('-------------------------'); Writeln; Assign(f2,'TAP2.DAT'); Rewrite(f2); i := 0; Repeat i := i + 1; Write('-So thu: ',i:2,' = '); Readln(So); Write(f2,so); Write(' Nhap nua ? (c/k) '); Readln(Ch); Until Upcase(Ch) ='K'; Close(f2); ClrScr; Writeln('GHEP TAP1 va TAP2 thanh TAP3'); Writeln('----------------------------'); Writeln; Assign(f3,'TAP3.DAT'); Rewrite(f3); Reset(f1); Reset(f2); While NOT EOF(f1) Do Begin Read(f1,So); Write(f3,So); End; While NOT EOF(f2) Do Begin Read(f2,so); Write(f3,so); End; Reset(f3); While NOT EOF(f3) Do Begin Read(f3,So); Write(So :8:1); End; Close(f1); Close(f2); Close(f3); Writeln; Writeln; Write(' Da ghep xong, Bam <Enter>...'); Readln; End.
103/Sổ tay điện thoại:
Code:
Program So_tay_Dien_Tu; Uses Crt; Type DienThoai = RECORD HoTen : String[24]; Tel : LongInt; Add : String; End; Var f : File Of DienThoai; Tam : DienThoai; St : String; TimThay : Boolean; Begin ClrScr; Writeln('NHAP SO DIEN THOAI VA DIA CHI'); Writeln('-----------------------------'); Writeln; Assign(f,'Telephon.dat'); Rewrite(f); With tam Do Repeat Write('-Ho ten, bam (0> de ket thuc: '); Readln(HoTen); If HoTen <> '0' Then Begin Write('-So phone : '); Readln(Tel); Write('-Dia chi : '); Readln(Add); Write(f,tam); End; Until Hoten = '0'; Close(f); ClrScr; Writeln('TIM SO DIEN THOAI VA DIA CHI'); Writeln('----------------------------'); Writeln; Write('-Ho ten nguoi muon tim: '); Readln(St); Reset(f); TimThay := False; While NOT EOF(f) Do Begin Read(f,Tam); With Tam Do If St = HoTen then Begin TimThay := True; Writeln(HoTen); Writeln('-So Telephone: ',Tel); Writeln('-Dia chi : ',Add); End; End; If Not TimThay Then Writeln('Khong tim thay'); Close(f); Writeln; Write(' Bam <Enter>... '); Readln End.
104/Che dấu tập tin:
Code:
Program CheDau_TapTin; Uses Dos,Crt; Var f : File; {hoac f : Text } Filename : String; Ch : Char; Begin Repeat ClrScr; TextColor(14); TextBackGround(2); GotoXY(23,4); Writeln('DAT THUOC TINH CHE DAU TAP TIN'); GotoXY(23,5); Writeln('------------------------------'); Writeln; TextColor(12); GotoXY(11,6); Writeln('*Khong hien thi duoc ten tap tin khi dung lenh DIR cua DOS*'); GotoXY(15,8); TextColor(1); TextBackGround(14); Write('-Cho biet ten tap tin: '); Readln(Filename); TextColor(4+Blink); TextBackGround(14); GotoXY(25,24); Writeln('DANG THUC HIEN, XIN CHO DOI...'); Assign(f,Filename); SetFAttr(f,Hidden); TextColor(4); TextBackGround(15); GotoXY(15,10); Case DosError Of 0 : Writeln('Da hoan thanh tot dep'); 2 : Writeln('Khong tim thay tap tin nay'); 3 : Writeln('Khong tim thay duong dan') Else Writeln('Tap tin duoc bao ve, khong sua duoc'); End; GotoXY(19,24); TextColor(14); TextBackGround(4); Writeln('Bam phim bat ky de tiep tuc, <Esc> de thoat '); Ch := Readkey; TextColor(White); TextBackGround(Black); ClrScr; Until Ch = #27; End.
105/Cập nhật dữ liệu:
Code:
Program Cap_Nhat_Du_Lieu; Uses Crt; Type HoSo = RECORD Holot : String[17]; Ten : String[7]; Tuoi : 18..60; ChucVu: String[20]; BacLuong : 300000..900000; End; Var f : File Of HoSo; Nv : HoSo; ans : Char; Begin ClrScr; Writeln('CAP NHAT DU LIEU VAO TAP TIN LUONG.DAT'); Writeln('----------------------------------'); Writeln; Assign(f,'LUONG.DAT'); Reset(f); Seek(f,Filesize(f)); Repeat With Nv Do Begin Write('-Ho lot: '); Readln(Holot); Write('-Ten : '); Readln(Ten); Write('-Tuoi : '); {$R+} Readln(tuoi); Write('-Chuc vu : '); Readln(ChucVu); Write('-Bac luong: '); Readln(BacLuong); Write(f,Nv); End; ans := Readkey; Until ans = #27; Close(f); End.
106/Đọc tập tin:
Code:
Program Doc_Tap_tin; Var f : Text; Filename : String; Ch : Char; Begin Writeln('DOC TAP TIN VAN BAN'); Writeln('-------------------'); Writeln; Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,filename); Reset(f); While Not EOF(f) Do Begin Read(f,Ch); Write(Ch); End; Close(f); Writeln; Write('Bam <Enter>... '); Readln End.
107/Đọc chậm tập tin theo từng chử:
Code:
Program Doc_Tung_Chu; Uses Crt; Var Filename : String; f : Text; Line : String[251]; k : Integer; Begin ClrScr; Writeln('DOC CHAM TAP TIN THEO TUNG CHU'); Writeln('------------------------------'); Writeln; Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,Filename); Reset(f); While Not EOF(f) Do Begin Readln(f,line); For k := 1 To Length(line) Do Begin Write(line[k]); Delay(150); End; Writeln; End; Close(f); End.
108/Đọc ghi tập tin:
Code:
Program Doc_Ghi_Tap_Tin; Var f1,f2 : Text; Filename : String; i : Integer; St : String; Begin Writeln('DANH SO DONG TAP TIN'); Writeln('--------------------'); Writeln; Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f1,filename); Reset(f1); Assign(f2,'Newfile.txt'); Rewrite(f2); i := 0; While Not EOF(f1) Do Begin i := i + 1; Readln(f1,st); Writeln(f2,i,' ',St); End; Close(f1); Close(f2); Writeln; Writeln('Da danh so dong va ghi vao tap tin NEWFILE.TXT'); Writeln; Write(' Bam <Enter> de xem tap tin NEWFILE.TXT '); Readln; Assign(f2,'Newfile.txt'); Reset(f2); While Not EOF(f2) Do Begin Readln(f2,st); Writeln(St); End; Close(f2); Writeln; Write('Xem xong, ban <Enter> '); Readln End.
109/Tạo tập tin âm thanh Lambada:
Code:
Program Lambada; Uses Crt; Var f : Text; Note,dur : Word; Buf : Array[1..10240] Of Byte; {---------------------------------} Procedure Play(Caodo,Truongdo : Word); Begin Sound(Caodo); Delay(Truongdo); NoSound; End; {---------------------------------} BEGIN ClrScr; TextColor(Yellow); Writeln('TAO TAP TIN AM THANH'); TextColor(Red); Writeln('--------------------'); Writeln; TextColor(Green); Writeln('Bam phim bat ky de tat am thanh'); Repeat Assign(f,'lambada.not'); SetTextBuf(f,buf); Reset(f); While (Not EOF(f)) And (Not KeyPressed) Do Begin Readln(f,Note,dur); Play(Note,Dur); End; Until KeyPressed; Close(f); NoSound; END.
110/Karaoke:
Code:
Program Karaoke; Uses Crt; Const Lento = 10; Type ConTro = ^Nhac; Nhac = RECORD Note,Dura : Word; Next : ConTro; End; Var f : Text; P,First, Last,HeapTop : ConTro; {------------------------------------} Procedure AssignList(Filename : String); Begin Assign(f,Filename); {$I-} Reset(f); {$I+} If IOResult <> 0 Then Halt(1); First := Nil; Mark(HeapTop); While NOt EOF(f) Do Begin New(p); Readln(f,p^.Note,p^.Dura); If First = Nil Then First := p Else Last^.Next := p; Last := p; Last^.Next := Nil; End; Close(f); End; {------------------------------------} Procedure Music; Begin p := First; While (p <> Nil) And Not (KeyPressed And (Readkey = #27)) Do Begin Sound(p^.Note); Delay(Lento*p^.Dura); p := p^.Next; If p = Nil Then p := First; End; End; {------------------------------------} BEGIN ClrScr; Writeln(' CHUONG TRINH NHAC EM DIU'); Writeln('Truong do cham 10 lan so voi BT15_10'); Writeln(' Bam <Esc> de ket thuc'); Writeln('-------------------------------------'); AssignList('Lambada.Not'); Music; NoSound; END.
111/Ghi điểm vào tập tin:
Code:
Program Nhap_Diem; Type HocBa = RECORD HoTen : String[24]; Van,Toan,Ly,Hoa,Tb: Real; End; FileHB = File Of HocBa; Var f : FileHB; HS : HocBa; q : Boolean; Begin Writeln('CHUONG TRINH GHI DIEM VAO TAP TIN'); Writeln('--------------------------------------'); Writeln; Assign(f,'DIEM.DAT'); ReWrite(f); q := True; While q Do With HS Do Begin Write('-Ho ten hoc sinh,(<Enter> de ket thuc): '); Readln(HoTen); If HoTen = '' Then Q := False Else Begin Write('-Diem Van : '); Readln(Van); Write('-Diem Toan: '); Readln(Toan); Write('-Diem Ly : '); Readln(Ly); Write('-Diem Hoa : '); Readln(Hoa); Tb := ((Van*2)+(Toan*2)+Ly+Hoa)/6; Write(f,HS); End; End; End.
112/Ghi thêm điểm vào tập tin:
Code:
Program Nhap_Them_Diem; Type HocBa = RECORD HoTen : String[24]; Van,Toan,Ly,Hoa,Tb: Real; End; FileHB = File Of HocBa; Var f : FileHB; HS : HocBa; q : Boolean; Begin Writeln('CHUONG TRINH GHI THEM DIEM VAO TAP TIN'); Writeln('--------------------------------------'); Writeln; Assign(f,'DIEM.DAT'); Reset(f); Seek(f,filesize(f)); q := True; While q Do With HS Do Begin Write('-Ho ten hoc sinh,(<Enter> de ket thuc): '); Readln(HoTen); If HoTen = '' Then Q := False Else Begin Write('-Diem Van : '); Readln(Van); Write('-Diem Toan: '); Readln(Toan); Write('-Diem Ly : '); Readln(Ly); Write('-Diem Hoa : '); Readln(Hoa); Tb := ((Van*2)+(Toan*2)+Ly+Hoa)/6; Write(f,HS); End; End; End.
113/Tìm điểm theo họ tên:
Code:
Program Timp_Diem; Type HocBa = RECORD HoTen : String[24]; Van,Toan,Ly,Hoa,Tb: Real; End; FileHB = File Of HocBa; Var f : FileHB; Hs : HocBa; St : String; TimThay : Boolean; Begin Writeln('CHUONG TRINH TIM DIEM THEO HO TEN'); Writeln('---------------------------------'); Writeln; Write('-Ho ten hoc sinh muon tim: '); Readln(St); Assign(f,'DIEM.DAT'); Reset(f); Timthay := False; While Not EOF(f) Do Begin Read(f,Hs); With Hs Do If St = HoTen Then Begin TimThay := True; Writeln(HoTen); Writeln('-Diem Van : ',Van:5:2); Writeln('-Diem Toan: ',Toan:5:2); Writeln('-Diem Ly : ',Ly:5:2); Writeln('-Diem Hoa : ',Hoa:5:2); Writeln('-Diem trung binh := ',Tb:5:2); End End; If Not Timthay Then Writeln('Trong danh sach khong co hoc sinh: ',St); Close(f); Writeln; Write(' Bam <Enter>... '); Readln; End.
114/Hồ sơ:
Code:
Program Ho_So; Uses Crt; Type LyLich = RECORD HoTen : String[24]; NamSinh : Integer; ChucVu : String[20]; BacLuong : Real; End; Var f : File Of LyLich; q : Boolean; Nv : LyLich; Stt : Integer; Ch : Char; Begin ClrScr; Assign(f,'HOSO.DAT'); Rewrite(f); q := True; While q Do With Nv Do Begin Write('-Ho ten CBCNV (<Enter> de ngung): '); Readln(HoTen); If HoTen = '' Then q := False Else Begin Write('-Nam sinh: '); Readln(NamSinh); Write('-Chuc vu: '); Readln(Chucvu); Write('-Bac luong: '); Readln(BacLuong); Write(f,Nv); End; End; Repeat GotoXY(28,24); Write('Co can sua khong? (c/k) '); Readln(Ch); If UpCase(Ch) = 'C' Then Begin Write('-Thay doi so thu tu : '); Readln(Stt); If Stt >= 1 Then Begin Seek(f,Stt-1); With Nv Do Begin Write('-Ho ten CBCNV : '); Readln(HoTen); Write('-Nam sinh: '); Readln(NamSinh); Write('-Chuc vu: '); Readln(Chucvu); Write('-Bac luong: '); Readln(BacLuong); Write(f,Nv); End; End; End; Until UpCase(Ch) = 'K'; Close(f) End.
115/Trộn tập tin:
Code:
Program Tron_Tap_tin; Uses Crt; Var f1,f2,f3 : File Of Integer; So1,So2 : Integer; i : Integer; Ch : Char; ok1,ok2 : Boolean; {--------------------------------} Function Layso1(Var So1 : Integer): Boolean; Begin If Not EOF(f1) Then Begin Read(f1,So1); LaySo1 := True; End Else layso1 := False; End; {--------------------------------} Function Layso2(Var So2 : Integer): Boolean; Begin If Not EOF(f2) Then Begin Read(f2,So2); LaySo2 := True; End Else layso2 := False; End; {--------------------------------} BEGIN Assign(f1,'so1.dat'); Rewrite(f1); ClrScr; Writeln('NHAP TAP TIN SO1'); Writeln('----------------'); Writeln; i := 0; Repeat i := i + 1; Write('-So thu: ',i:2,' = '); Readln(So1); Write(f1,so1); Write('-Nhap nua ? (c/k) '); Readln(Ch); Until Upcase(Ch) = 'K'; Close(f1); Assign(f2,'so2.dat'); Rewrite(f2); ClrScr; Writeln('NHAP TAP TIN SO2'); Writeln('----------------'); Writeln; i := 0; Repeat i := i + 1; Write('-So thu: ',i:2,' = '); Readln(So2); Write(f2,so2); Write('-Nhap nua ? (c/k) '); Readln(Ch); Until Upcase(Ch) = 'K'; Close(f2); Assign(f3,'so3.dat'); Rewrite(f3); Reset(f1); Reset(f2); ok1 := Layso1(So1); ok2 := Layso2(so2); While ok1 Or ok2 Do Begin If ok1 And ok2 Then {co ca 2 tap tin} Begin If So1 < So2 Then Begin Write(f3,so1); ok1 := layso1(so1); End Else Begin Write(f3,so2); ok2 := Layso2(so2); End; End Else If ok1 Then {chi con tap tin so1.dat} Begin Write(f3,so1); ok1 := layso1(so1); End Else If ok2 Then {chi con tap tin so2.dat} Begin Write(f3,so2); ok2 := Layso2(so2); End; End; Writeln; Reset(f3); While not EOF(f3) Do Begin Read(f3,i); Write(i:6); End; Close(f1); Close(f2); Close(f3); Writeln; Write('Da tron xong, bam <Enter>... '); Readln END.
116/Đội tuyển:
Code:
Program Doi_Tuyen; Uses Crt; Type HocSinh = RECORD HoTen : String[24]; Lop : String[4]; Dtb : Real; End; Fhs = File Of HocSinh; Var f : Fhs; Ch : Char; {----------------------------------} Procedure Nhap(Var f : Fhs); Var Tam : HocSinh; Begin Rewrite(f); Repeat Write('-Nhap ho ten (0 de thoat): '); Readln(Tam.Hoten); If Tam.HoTen <> '0' Then Begin Write('-Lop: '); Readln(Tam.Lop); Write('-Diem trung binh: '); Readln(Tam.Dtb); Write(f,Tam); End; Until tam.HoTen ='0'; Close(f); End; {----------------------------------} Procedure Lapds(Var f:Fhs); Var Tam : Hocsinh; a : Array[1..1000] Of HocSinh; TenLop : Array[1..100] Of String[4]; alop : Array[1..200] Of HocSinh; Sohs12,Solop12,Sohslop : Integer; Stt : Integer; i,j,k : Integer; Coroi : Boolean; Begin Reset(f); Sohs12 := 0; Solop12 := 0; While Not EOF(f) Do Begin Read(f,tam); If (Tam.Lop[1]='1') And (Tam.Lop[2]='2') Then Begin Sohs12 := Sohs12 + 1; a[Sohs12] := Tam; Coroi := False; For i := 1 To Solop12 Do If Tenlop[i] = Tam.Lop Then Coroi := True; If Not coroi Then Begin Solop12 :=Solop12+1; TenLop[Solop12] := Tam.Lop; End; End; End; Writeln('|','STT','|','HO VA TEN':24,'|',' LOP ','|',' HANG ','|'); Stt := 1; For i := 1 to Solop12 Do Begin Sohslop := 0; For j := 1 To Sohs12 Do If a[j].Lop = Tenlop[i] Then Begin Sohslop := Sohslop + 1; alop[sohslop]:=a[j]; End; For k := 1 To Sohslop - 1 Do For j := sohslop DownTo k + 1 Do If alop[j].Dtb > alop[j-1].Dtb Then Begin Tam := alop[j]; alop[j] := alop[j-1]; alop[j-1] := Tam; End; If Sohslop >=3 Then For k := 1 To 3 Do Begin With alop[k] Do Writeln('|',stt:3,' |',HoTen:24,' | ', Lop:5,' | ',k : 3,' |'); Stt := Stt + 1; End Else For k := 1 To Sohslop Do Begin With alop[k] Do Writeln('|',stt:3,' |',HoTen:24,' | ', Lop:5,' | ',k : 3,' |'); Stt := Stt + 1; End; End; Close(f); End; {----------------------------------} BEGIN Assign(f,'doituyen.dat'); Repeat Repeat Writeln('1-Nhap du lieu'); Writeln('2-Danh sach doi du tuyen'); Writeln('3-Ket thuc'); Ch := Readkey; Until ch in ['1'..'3']; Case Ch Of '1' : Nhap(f); '2' : Lapds(f); End; Until Ch = '3'; END.
117/Tạo tập tin có kiểu:
Code:
Program Tao_Tap_Tin_Co_Kieu; Type HocSinh = RECORD Ten : String[7]; Diem : 0..10; End; Var f : File Of Hocsinh; {-------------------------------} Procedure TaoTapTin; Var Tam : HocSinh; Filename : String; Begin Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,Filename); {$I-} Rewrite(f); {$I+} If IOResult <> 0 Then Begin Writeln('Khong mo duoc tap tin: ',Filename); Halt; End; Repeat Write('Ten (bam <Enter> de cham dut) : '); Readln(Tam.Ten); If Tam.Ten <> '' Then Begin Write('-Diem : '); Readln(Tam.Diem); Write(f,Tam); End; Until Tam.Ten = ''; Close(f); End; {-------------------------------} Procedure XemLaiBanGhi; Var RecNo : Word; Tam : HocSinh; Begin Write('-Xem lai ban ghi thu may: '); Readln(RecNo); Reset(f); Seek(f,RecNo-1); Read(f,Tam); Writeln('-Ten : ',Tam.Ten); Writeln('-Diem : ',Tam.Diem); End; {-------------------------------} BEGIN TaoTapTin; Writeln; XemLaiBanGhi; Writeln; Write(' Bam <Enter>... '); Readln; END.
118/Tạo danh sách:
Code:
Program Tao_Danh_Sach; Type HocSinh = RECORD Ten : String[7]; Diem : 0..10; End; T_pList = ^T_List; T_List = RECORD d : HocSinh; Next : T_pList; End; Var f : File Of Hocsinh; First : Pointer; Curr, News : T_pList; {-------------------------------} Procedure MoTapTin; Var Filename : String; Begin Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,Filename); {$I-} Reset(f); {$I+} If IOResult <> 0 Then Begin Writeln('Khong mo duoc tap tin: ',Filename); Halt; End; End; {-------------------------------} Procedure DocVaoList; Begin First := Nil; While NOt EOF(f) Do Begin New(News); News^.Next := Nil; Read(f,News^.d); If First = Nil Then First := News Else Curr^.Next := News; Curr := News; End; Close(f); End; {-------------------------------} Procedure Xem; Begin Curr :=First; While Curr <> Nil Do Begin Writeln('-Ten: ',Curr^.D.Ten : 6, #32:10, '-Diem : ',Curr^.D.Diem); Curr := Curr^.Next; End; End; {-------------------------------} BEGIN MoTapTin; Writeln; DocVaoList; Writeln; Xem; Writeln; Write(' Bam <Enter>... '); Readln; END.
119/Dự đoán bóng đá:
Code:
Program Du_Doan_Bong_Da; Type Doi = RECORD Diem,hlv,tm,hv,ct,sb : Real; Ten : String[24]; Hang : Integer; End; Filedb = file Of Doi; Mang = Array[1..40] Of Doi; Var f : Filedb; i,j,n : Integer; a : Mang; t : Doi; q : Boolean; Begin i := 1; q := True; While q Do With a[i] Do Begin Write('-Ten doi (bam <Enter> de ngung): '); Readln(Ten); If Ten = '' Then q := False Else Begin Repeat Write('=Diem huan luyen vien: '); Readln(hlv); Until hlv <=30; Repeat Write('=Diem thu mon: '); Readln(tm); Until tm <= 15; Repeat Write('=Diem hau ve: '); Readln(hv); Until hv <= 30; Repeat Write('=Diem cac cau thu khac: '); Readln(ct); Until ct <= 50; Repeat Write('=Diem thuan loi san bai: '); Readln(sb); Until sb <= 20; Diem := hlv + hv + tm + ct + sb; i := i + 1; End; End; n := i - 1; For i := 1 To N - 1 Do For j := 1 To N - i Do If a[j].Diem < a[j+1].Diem then Begin t :=a[j]; a[j] := a[j+1]; a[j+1] := t; End; Assign(f,'diemdb.dat'); Rewrite(f); For i := 1 to N Do Begin If (i > 1) And (a[i].Diem = a[i-1].Diem) Then a[i].Hang := a[i-1].Hang Else a[i].Hang := i; Write(f,a[i]); End; Close(f); End.
120/Cắt tập tin:
Code:
Program Cat_Tap_tin; Var f,g1,g2 : File; Buf : Array[1..63000] Of Byte; Trungdiem : LongInt; {-------------------------------------} Procedure BaoLoi; Begin Writeln('Khong mo duoc tap tin'); Halt; End; {-------------------------------------} Procedure MoTapTin; Var TenTT,TenTT1,TenTT2: String; Begin Write('-Ten tap tin nguon: '); Readln(TenTT); Write('-Ten tap tin dich 1: '); Readln(TenTT1); Write('-Ten tap tin dich 2: '); Readln(TenTT2); Assign(f,TenTT); Reset(f,1); Assign(g1,TenTT1); Rewrite(g1,1); Assign(g2,TenTT2); Rewrite(g2,1); If IOResult <> 0 Then BaoLoi; End; {-------------------------------------} Procedure TinhTrungDiem; Begin TrungDiem := (Filesize(f) Div 2); End; {-------------------------------------} Procedure ChepNuaDau; Var S : LongInt; Num,SoDoc,SoGhi : Word; Begin S :=TrungDiem; Repeat If Sizeof(Buf) <= S Then Num := Sizeof(Buf) Else Num := S; BlockRead(f,Buf, Num,SoDoc); If IOResult <> 0 Then BaoLoi; BlockWrite(g1,Buf,SoDoc,SoGhi); If IOResult <> 0 Then BaoLoi; Dec(S,Num); Until S = 0; Close(g1); End; {-------------------------------------} Procedure ChepNuaSau; Var SoDoc,SoGhi : Word; Begin Seek(f,TrungDiem); If IOResult <> 0 Then BaoLoi; Repeat BlockRead(f,Buf, Sizeof(Buf),SoDoc); If IOResult <> 0 Then BaoLoi; BlockWrite(g2,Buf,SoDoc,SoGhi); If IOResult <> 0 Then BaoLoi; Until (SoDoc = 0) Or (SoGhi <> SoDoc); Close(g2); Close(f); End; {-------------------------------------} BEGIN MoTapTin; TinhTrungDiem; ChepNuaDau; ChepNuaSau; Writeln; Write('Da thuc hien xong, bam <Enter>... '); Readln; END.
121/Tạo menu:
Code:
Program Menu; Uses Crt; Type St17 = String[17]; St7 = String[7]; HoSo = RECORD Holot : St17; Ten : St7; ns : Integer; Diem : Real End; Mang = Array[1..100] Of HoSo; fhs = File Of HoSo; Var Filename : String[11]; f : fhs; Tam : HoSo; Ch : Char; {----------------------------------} Procedure Nhap(Var f : fhs); Begin Rewrite(f); With Tam Do Repeat Write('-Ho lot (0 de ket thuc): '); Readln(Holot); If Holot <> '0' Then Begin Write('-Ten: '); Readln(Ten); Write('-Nam sinh: '); Readln(Ns); Write('-Diem: '); Readln(Diem); Write(f,tam); End; Until HoLot = '0'; Close(f); End; {----------------------------------} Procedure SapXep(Var f : Fhs); Var i,j,Spt : Integer; ds : Mang; Begin Reset(f); Spt := 0; While Not EOF(f) Do Begin Spt := Spt + 1; Read(f,ds[spt]); End; For i := 1 To spt - 1 Do For j := spt Downto i + 1 Do If ds[j].Ten[1] < ds[j-1].Ten Then Begin Tam := ds[j]; ds[j] := ds[j-1]; ds[j-1] := Tam; End; Rewrite(f); For i := 1 To spt Do Write(f,ds[i]); Close(f); Writeln; Write('Da sap xep xong, bam <Enter>... '); Readln; End; {----------------------------------} Procedure Xem(Var f : Fhs); Begin ClrScr; Writeln(' HO VA TEN DIEM'); Reset(f); While Not EOF(f) Do Begin Read(f,Tam); With Tam Do Writeln(Holot:17,' ',Ten:7,' ',Diem:6:1); End; Readln; End; {----------------------------------} Procedure CapNhat(Var f : Fhs); {--------------------} Procedure Sua(Var f:Fhs); Var Holot1 : St17; Ten1 : St7; TimThay : Boolean; Begin Repeat Write('-Holot: '); Readln(Holot1); Write('-Ten : '); Readln(Ten1); TimThay := False; Reset(f); While Not EOF(f) Do With Tam Do Begin Read(f,Tam); If (Holot = Holot1) And (Ten = Ten1) Then Begin Timthay := True; Writeln(Holot,' ',Ten,' Diem : ',Diem : 0:1); Repeat Writeln('Co sua khong ? (c/k) '); Ch := Readkey; Until Ch in['c','C','k','K']; If Upcase(Ch) = 'C' Then Begin Write('-Ho lot: '); Readln(Holot); Write('-Ten : '); Readln(Ten); Write('-Nam sinh : ',ns); Write('-Diem : '); Readln(Diem); Seek(f,filepos(f)-1); Write(f,Tam); End; End; End; If Not TimThay Then Writeln('Khong tim thay'); Repeat Writeln('Tim nu khong ? (c/k) '); Ch := Readkey; Until Ch in['c','C','k','K']; Until Upcase(Ch) = 'K' End; {--------------------} Procedure Them(Var f: Fhs); Begin Reset(f); Seek(f,Filesize(f)); With Tam Do Repeat Write('-Ho lot: '); Readln(Holot); Write('-Ten : '); Readln(Ten); Write('-Nam sinh : ',ns); Write('-Diem : '); Readln(Diem); Write(f,Tam); Repeat Writeln('Them nua khong ? (c/k) '); Ch := Readkey; Until Ch in['c','C','k','K']; Until Upcase(Ch) = 'K'; End; {-------------------} Procedure Xoa(Var f : Fhs); Var ds : Mang; Holot1 : St17; Ten1 : St7; i,spt,vitri : Integer; TimThay : Boolean; Begin Reset(f); spt := 0; While Not EOF(f) Do Begin Read(f,Tam); spt := spt + 1; ds[spt] := Tam; End; Repeat Write('-Ho lot : '); Readln(holot1); Write('-Ten : '); Readln(Ten1); TimThay := False; i := 0; Repeat i := i + 1; If (ds[i].Holot = Holot1) And (ds[i].Ten = Ten1) Then Begin TimThay := True; vitri := i; End; Until TimThay Or (i > spt); If TimThay Then Begin With ds[vitri] Do Writeln(Holot,' ',Ten,' Diem: ',Diem:0:1); Repeat Writeln('Co xoa khong ? (c/k) '); Ch := Readkey; Until Ch in['c','C','k','K']; If Upcase(Ch) = 'C' Then Begin spt := spt - 1; For i := vitri To spt Do ds[i] := ds[i+1]; End; End Else Writeln('Khong tim thay'); Repeat Writeln('Tim nua khong ? (c/k) '); Ch := Readkey; Until Ch in['c','C','k','K']; Until Upcase(Ch) = 'K'; Rewrite(f); For i := 1 To spt Do Write(f,ds[i]); Close(f); End; {-----Chuong trinh chiinh cua cap nhat-------} Begin Repeat Repeat ClrScr; Writeln(' MENU CAP NHAT '); Writeln('1-Sua'); Writeln('2-Them'); Writeln('3-Xoa'); Writeln('4-Thoat'); Ch := Readkey; Until Ch in['1'..'4']; Case Ch Of '1' : Sua(f); '2' : Them(f); '3' : Xoa(f); End; Until Ch = '4' End; {************ CHUONG TRINH CHINH ***********} BEGIN ClrScr; Write('-Ten tap tin : '); Readln(Filename); Assign(f,Filename); Repeat Repeat ClrScr; Writeln(' MENU CHINH'); Writeln(' 1-Nhap'); Writeln(' 2-Sap xep'); Writeln(' 3-Xem'); Writeln(' 4-Cap nhat'); Writeln(' 5-Ket thuc'); Writeln; Ch := Readkey; Until ch in['1'..'5']; Case Ch Of '1' : Nhap(f); '2' : SapXep(f); '3' : Xem(f); '4' : CapNhat(f); End; Until Ch = '5' END.
122/Độ dài của dòng:
Code:
Program D0_Dai_Cua_Dong; Var f : Text; Filename : String[12]; St : String; Max,Min: Integer; Sodong,Tong : Integer; Begin Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,Filename); Reset(f); Readln(f,St); Max := length(St); Min := Length(St); Sodong := 1; Tong := Length(St); While Not EOF(f) Do Begin Readln(f,St); If Max < Length(St) Then Max := Length(St); If Min > Length(St) Then Min := Length(St); Sodong := sodong + 1; Tong := Tong + Length(St); End; Writeln('-Dong dai nhat : ',Max); Writeln('-Dong ngan nhat : ',Min); Writeln('-Trung binh : ',Tong / Sodong : 6:1); Writeln; Write('Bam <Enter>... '); Readln End.
123/Điểm Sản phẩm:
Code:
Program Diem_San_Pham; Uses Crt; Var f : Text; Nhom : Char; d1,d2 : Real; TongA1,TongA2 : Real; TongB1,TongB2 : Real; TongC1,TongC2 : Real; SoA,SoB,SoC : Integer; i : Integer; Begin Assign(f,'sanpham.txt'); Rewrite(f); Writeln(f,'Nhom nguoi',' San pham 1 ',' San pham 2 '); Writeln(f); ClrScr; Repeat Write('Nhom nguoi ($ de thoat): '); Readln(Nhom); If Nhom <> '$' Then Begin Write('-Diem san pham 1 : '); Readln(d1); Write('-Diem san pham 2 : '); Readln(d2); Writeln(f,Upcase(Nhom):6,d1:16:1,d2:16:1); End; Until Nhom = '$'; Close(f); ClrScr; Reset(f); Readln(f); Readln(f); TongA1 := 0;TongA2 := 0;SoA := 0; TongB1 := 0;TongB2 := 0;SoB := 0; TongC1 := 0;TongC2 := 0;SoC := 0; While Not EOF(f) Do Begin For i := 1 To 6 Do {So vong lap bang vi tri cua nhom } Read(f,Nhom); Readln(f,d1,d2); Case Nhom Of 'A' : Begin TongA1 := TongA1 + d1; TongA2 := TongA2 + d2; SoA := SoA + 1; End; 'B' : Begin TongB1 := TongB1 + d1; TongB2 := TongB2 + d2; SoB := SoB + 1; End; 'C' : Begin TongC1 := TongC1 + d1; TongC2 := TongC2 + d2; SoC := SoC + 1; End; End; End; ClrScr; Writeln('NHOM NGUOI',' TB San pham 1',' TB San pham 2'); Writeln; If SoA <> 0 Then Writeln('A':6,TongA1/SoA:16:1,TongA2/SoA:16:1); If SoB <> 0 Then Writeln('B':6,TongB1/SoB:16:1,TongB2/SoB:16:1); If SoC <> 0 Then Writeln('C':6,TongC1/SoC:16:1,TongC2/SoC:16:1); Readln End.
124/Đếm chử:
Code:
Program DemChu; Uses Crt; Type MangChu = Array[Char] Of Integer; Var f : Text; Filename : String; Line : String[25]; Chu : Char; Letters,Lines,k : Integer; Dem : MangChu; Begin ClrScr; For Chu := Chr(0) To Chr(127) Do Dem[chu] := 0; Letters := 0; Write('-Cho biet ten tap tin: '); Readln(Filename); Assign(f,Filename); Reset(f); While Not EOF(f) Do Begin Readln(f,Line); For k := 1 To Length(line) Do Begin If Line[k] In ['a'..'z'] Then Letters := Letters + 1; Dem[Line[k]] := Dem[Line[k]] + 1; End; End; Lines := 1; Close(f); Writeln('Tap tin: ',Filename,' co tat ca: ',Letters,' chu khong viet hoa'); Writeln; Writeln('Phan phoi tan suat cua cac chu nhu sau:'); Writeln; For Chu :='a' To 'z' Do Begin Write('-Chu: ',Chu,' = '); Write((Dem[chu]/Letters * 100):6:2,' % '); If (Lines Mod 4) = 0 Then Writeln; Lines := Lines + 1; End; Readln End.
125/Tạo tập tin văn bản:
Code:
Program Tao_Tap_Tin_Van_Ban; Var f : Text; Filename : String; {---------------------------------} Procedure Timvb(Var f: text; n : Word); Var i : Word; Begin Reset(f); For i :=1 To n Do Readln(f); End; {---------------------------------} Procedure MoTapTin; Begin Write('-Cho biet ten tap tin van ban: '); Readln(Filename); {$I-} Assign(f,Filename); Rewrite(f); If IOResult <> 0 Then Begin Writeln('Khong the mo tap tin moi: '+Filename+' '); Halt; End; End; {---------------------------------} Procedure Nhap4dong; Var Tam : String; i : Byte; Begin Writeln; Writeln; For i := 1 to 4 Do Begin Write('-Nhap dong thu: ',i:2,' : '); Readln(Tam); Writeln(f,Tam); End; End; {---------------------------------} Procedure Xuatdong2; Var Tam : String; Begin Timvb(f,2); Readln(f,Tam); Writeln('Dong thu 3 cua tap tin co noi dung la: '); Writeln; Writeln(' ',Tam); End; {---------------------------------} BEGIN MoTapTin; Nhap4dong; Writeln; Xuatdong2; Writeln; Write(' Bam <Enter>... '); Readln; END.
126/Xóa dòng tập tin văn bản:
Code:
Program Xoa_Dong_Tap_Tin_Van_Ban; Var f : Text; Filename : String; {---------------------------------} Procedure MoTapTin; Var Tam : String; i : Byte; Begin Write('-Cho biet ten tap tin van ban: '); Readln(Filename); {$I-} Assign(f,Filename); Rewrite(f); {$I+} If IOResult <> 0 Then Begin Writeln('Khong the mo tap tin moi: '+Filename+' '); Halt; End; For i := 1 to 4 Do Begin Write('-Nhap dong thu: ',i:2,' : '); Readln(Tam); Writeln(f,Tam); End; Close(f); End; {---------------------------------} Procedure XemTapTin(Var f : Text); Var Tam : String; Begin Reset(f); While Not EOF(f) Do Begin Readln(f,Tam); Writeln(Tam); End; End; {---------------------------------} Procedure Xoadong(Var f : Text; n : Word); Var g : Text; Tam : String; i : Word; Begin Assign(g,Filename); Reset(g); Assign(f,'XOADONG.TXT'); Rewrite(f); i := 0; While Not EOF(g) Do Begin Readln(g,Tam); If i <> n Then Writeln(f,Tam); Inc(i); End; Close(f); End; {---------------------------------} BEGIN MoTapTin; Writeln; Writeln(' Noi dung tap tin da tao'); Writeln; XemTaptin(f); Writeln; Xoadong(f,2); Writeln(' Noi dung con lai sau khi xoa dong 3'); Writeln; XemTapTin(f); Writeln; Write(' Bam <Enter>... '); Readln; END.
127/Xóa chú thích:
Code:
Program Xoa_chu_thich; Var Filename : String; f,fn : Text; Ch : Char; Begin Write('-Ten tap tin Pascal: '); Readln(Filename); Assign(f,Filename); Assign(fn,'new.pas'); reset(f); Rewrite(fn); While not EOF(f) Do Begin Read(f,ch); If Ch <> '{' Then Write(fn,ch) Else Repeat Read(f,ch); Until (Ch = '}') Or EOF(f); End; Close(f); Close(fn); Writeln; Write('Da thuc hien xong, bam <Enter>... '); Readln; End.
128/Tìm chuỗi kí tự:
Code:
Program Tim_Chuoi_Ky_Tu; Var Filename : String[12]; f : Text; St : String; Ch : Char; Ok : Boolean; i,solan:Integer; Begin Write('-Ten tap tin: '); Readln(Filename); Write('-Nhap chuoi ky tu: '); Readln(St); Assign(f,Filename); Reset(f); Solan := 0; While NOt EOF(f) Do Begin Read(f,Ch); If ch = St[1] Then Begin Ok := True; i := 1; While Not OK And ( i < length(St)) Do Begin Read(f,Ch); If (Ch <> Chr(10)) And (Ch <> Chr(13)) Then If Ch = St[1] Then i := 1 Else Begin i := i + 1; If (Ch <> St[i]) Then Ok := False; End; End; If Ok Then Solan := Solan + 1; End; End; Write('-Chuoi: ',St,' xuat hien : ',solan,' lan trong tap tin'); Readln; Close(f); End.
129/Xử lí dòng:
Code:
Program Xu_ly_dong; Var f1,f2 : Text; Filename : String[12]; lmax : Integer; Tam,st,dong : String; {--------------------------------------} Procedure Catdong(Var st,dong:String;lmax :Integer); Var i : Integer; Begin i := lmax; While st[i] <> ' ' Do i:= i-1; Dong := copy(st,1,i-1); Delete(St,1,i); End; {--------------------------------------} Procedure Lamday(Var dong: String;lmax : Integer); Var i,j : Integer; Begin i := lmax - length(dong); While i <> 0 Do Begin j := Length(dong); While (j > 1) And (i <> 0) Do If (dong[j]=' ') And (dong[j-1] <> ' ') Then Begin Insert(' ',dong,j); j :=j-1; i := i-1; End Else j := j-1; End; End; {--------------------------------------} BEGIN Write('-Ten tap tin: '); Readln(Filename); Write('-Chieu dai cua dong: '); Readln(lmax); Assign(f1,filename); Reset(f1); Assign(f2,'new.txt'); Rewrite(f2); St:=' '; While NOt EOF(f1) Do Begin Readln(f1,tam); St := St + Tam + ' '; While length(St) >= lmax Do Begin Catdong(St,dong,lmax); Lamday(dong,lmax); Writeln(f2,dong); End; End; Writeln(f2,St); Writeln; Writeln('Da thuc hien xong, bam <Enter>... '); Readln; reset(f2); While Not EOF(f2) Do Begin Readln(f2,dong); Writeln(dong); End; Writeln; Write(' Xem xong bam <Enter>... '); Readln; Close(f1); Close(f2); END.
130/Chạy chử:
Code:
Program Chay_Chu; Uses Crt; Var St : String; n,i,j : Integer; Begin ClrScr; Write('Nhap mot chuoi ky tu: '); Readln(St); ClrScr; n := 40-(Length(St) Div 2); For j := 1 To Length(St) Do For i := 80 DownTo n+j Do Begin GotoXY(i,12); Write(St[j]); ClrEoL; Sound(400+j*200); Delay(30); Nosound; End; Readln; End.
131/Đường thẳng:
Code:
Program Duong_Thang; Uses Graph; Var Gd,Gm,k : Integer; Begin Gd :=Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOk Then Halt(1); SetBkColor(Blue); k := -300; Repeat SetColor(14); MoveTo(160,100); LineRel(k,100); LineRel(k,-100); MoveTo(160,100); LineRel(k,-100); LineRel(k,100); k := k+15; Until k = 0; Repeat Line(k,0,k,200); k := k-15; Until k = 0; Line(0,100,320,100); Readln; CloseGraph; End.
132/Chùm đường thẳng đồng quy:
Code:
Program Chum_duong_thang_dong_quy; Uses Crt,Graph; Var Palette : PaletteType; Gd,Gm,k,i : Integer; Color : Word; Tri : String[4]; Begin Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); Str(GetColor: 2,Tri); OutTextXY(10,10,Tri); With Palette Do Begin Size := 4; Colors[0] := White; Colors[1] := Red; Colors[2] := Blue; Colors[3] := Magenta; SetAllPalette(Palette); End; SetBkColor(LightBlue); Randomize; k := 1; Repeat Color := Succ(GetColor); If Color > Palette.Size Then Color := 2; SetColor(Color); i := k Mod 4; SetLineStyle(i,0,3); LineTo(Random(GetMaxX),Random(GetMaxY)); Delay(100); k := k+1; Until k =15; SetColor(1); OutTextXY(10,100,'Chao mung nam 2000'); Delay(2000); CloseGraph; End.
133/Đa giác:
Code:
Program Da_Giac; Uses Graph; Const M : Array[0..5] Of PointType = ((x:0;y:10),(x:53;y:29), (x:112;y:134),(x:65;y:100),(x:34;y:100),(x:0;y:10)); Var Gd,Gm : Integer; Begin Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); DrawPoly(7,M); Readln; CloseGraph; End.
134/Vòng Olympic:
Code:
Program Vong_Olympic; Uses Graph; Var Gd,Gm:Integer; MaxX,MaxY:Integer; R : Integer; Y1,Y2 : Integer; X1,X2,X3,X4,X5 : Integer; Kc : Integer; Begin Write('-Ban kinh = '); Readln(R); Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOK Then Halt(1); MaxX := GetMaxX; MaxY := GetMaxY; Y1 := (MaxY - 3*R) Div 2 + R; Y2 := Y1 + R; Kc := R Div 5; X1 := (MaxX - 6*R -2*Kc) Div 2 + R; X2 := X1 + Kc + 2*R; X3 := X2 + Kc + 2*R; X4 := X1 + R + (Kc Div 2); X5 := X2 + R + (Kc Div 2); SetColor(14); Circle(X1,Y1,R); Circle(X2,Y1,R); Circle(X3,Y1,R); Circle(X4,Y2,R); Circle(X5,Y2,R); Readln; CloseGraph; End.
135/Hình quạt:
Code:
Program Hinh_Quat; Uses Graph; Var Gd,Gm : Integer; CenterX,CenterY,Radius : Word; Begin Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOk Then Halt(1); SetGraphMode(0); SetBkColor(Blue); CenterX := GetMaxX Div 2; CenterY := GetMaxY Div 2; Radius := CenterY - 10; SetFillStyle(2,2); Pieslice(CenterX,CenterY,0,120,Radius); SetFillStyle(3,1); Pieslice(CenterX,CenterY,120,245,Radius); SetFillStyle(4,3); Pieslice(CenterX,CenterY,245,360,Radius); Readln; CloseGraph; End.
136/Biểu đồ cột:
Code:
Program Bieu_Do_Cot; Uses Graph; Const h = 60; Var Gd,Gm : Integer; Socot : Integer; a : Array[1..100] Of Integer; Max : Integer; i : Integer; Mx,My : Integer; Xstep,Ystep : Integer; x : Integer; Begin Write('-Tong so cot: '); Readln(Socot); For i := 1 To Socot Do Begin Write(' +Cot thu : ',i:2,' = '); Readln(a[i]); End; Max := a[1]; For i := 2 To Socot Do If a[i] > Max Then Max := a[i]; Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOk Then Halt(1); Mx := GetMaxX; My := GetMaxY; Rectangle(0,0,Mx,My); Line(h,h,h,My-h); Line(h,My-h,MX-h,My-h); Xstep := Round((Mx-3*h)/Socot); Ystep := Round((My-2*h)/Max); x := h; For i := 1 To Socot Do Begin SetFillStyle(i,i); Bar(x,(My-h)-a[i]*Ystep,x+Xstep,My-h); Rectangle(x,(My-h)-a[i]*Ystep,x+Xstep,My-h); x := x + Xstep; End; Readln; CloseGraph; End.
137/Biểu đồ PIE:
Code:
Program Bieu_Do_PIE; Uses Graph; Var Gd,Gm : Integer; Somuc : Integer; a : Array[1..100] Of Real; Tong,Goc : Real; r,i : Integer; Begin Write('-Tong so muc: '); Readln(Somuc); Tong := 0; For i := 1 To Somuc Do Begin Write(' +Muc thu : ',i:2,' = '); Readln(a[i]); Tong := Tong + a[i]; End; For i := 1 To Somuc Do a[i]:=(a[i]/Tong)*360; Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOk Then Halt(1); R := GetMaxY Div 3; Rectangle(0,0,GetMaxX,GetMaxY); Goc := 0; For i := 1 To Somuc Do Begin SetFillStyle(i,i); PieSlice(GetMaxX Div 2, GetMaxY Div 2,Round(Goc),Round(Goc+a[i]),R); Goc := Goc + a[i]; End; Readln; CloseGraph; End.
138/Đồ thị:
Code:
Program Do_Thi; Uses Graph; Var Gd,Gm,j,mx,my : Integer; i,x,y : Real; Xasp,Yasp,CenterX,CenterY : Word; Pattern : Word; Palette : PaletteType; {----------------------------------} Function Adjasp(Value: Integer) : Integer; Begin Adjasp := (LongInt(Value)*Xasp) Div Yasp; End; {----------------------------------} BEGIN Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); If GraphResult <> GrOk Then Halt; SetGraphMode(0); SetBkColor(Blue); GetPalette(Palette); SetAllPalette(Palette); GetAspectRatio(Xasp,Yasp); CenterX := GetMaxX Div 2; CenterY := GetMaxY Div 2; SetTextJustify(CenterText,CenterText); SetColor(2); Line(0,CenterY,GetMaxX-25,CenterY); Line(CenterX,20,CenterX,GetMaxY); OutTextXY(CenterX-10,CenterY+5,'0'); OutTextXY(GetMaxX-16,CenterY,'>X '); SetTextStyle(DefaultFont,VertDir,0); OutTextXY(CenterX,18,'>'); SetTextStyle(DefaultFont,HorizDir,0); OutTextXY(CenterX,8,'Y'); i := 0; SetColor(2); While i <= GetMaxX Do Begin x :=(i-160)/20; mx := Round(i); y := (sin(x))*(Sin(x))*(Sin(x)); my := CenterY - Adjasp(Round(y*20)); If abs(my) < 200 Then PutPixel(mx,my,14); i := i+(2/7); End; Rectangle(CenterX+10,CenterY+10,GetMaxX-10,GetMaxY-15); SetViewPort(CenterX+9,CenterY+9,GetMaxX-9,GetMaxY-16,ClipOn); SetTextStyle(2,0,4); OutTextXY(48,12,'He truc toa do'); SetTextStyle(1,0,3); OutTextXY(60,40,'DESCARTES'); Readln; CloseGraph; END.
139/Cá chép miệng:
Code:
Program Ca_Chep_Mieng; Uses Crt,Graph; Var Gd,Gm : Integer; Active,Visual,Temp:Word; Xcenter,YCenter,Radius,StAngle,EndAngle : Integer; {--------------------------------} Procedure Initialize; Begin Gd := Detect; InitGraph(Gd,Gm,'C:\BP\BGI'); SetColor(Red); SetFillStyle(SolidFill,Blue); Xcenter := GetMaxX Div 2; YCenter := GetMaxY Div 2; StAngle := 15; Radius := GetMaxY Div 8; Active := 0; Visual := 1; End; {--------------------------------} Procedure Veca; Begin if StAngle = 15 Then {ve bung ca} Begin StAngle := 30; EndAngle := 330; End Else Begin StAngle := 15; EndAngle := 345; End; PieSlice(Xcenter,YCenter,StAngle,EndAngle,Radius); {ve mat ca} Circle(Xcenter+Radius Div 2,YCenter - Radius Div 2,4); {ve duoi ca} Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter-Radius); Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter+Radius); End; {--------------------------------} BEGIN Initialize; While Not KeyPressed Do Begin SetActivePage(Active); SetvisualPage(Visual); Veca; Temp := Active; Active := Visual; Visual := Temp; End; END.
140/Âm thanh:
Code:
Program Am_thanh; Uses Crt; CONST Notdon=8*58; Notdoi=Notdon Div 2; TYPE Notnhac=(c,cf,d,df,e,f,ff,g,gf,a,af,b); Var Kyam:Notnhac; (*----------------------*) PROCEDURE Bannhac(Kyam:Notnhac;Caodo,Truongdo:Integer); Var Tanso:Real; i:Integer; Begin Tanso:=32.625; For i:=1 To Caodo Do Tanso:=Tanso * 2; For i:=1 To Ord(Kyam) Do Tanso:=Tanso * 1.05946; If Truongdo <> 0 Then Begin Sound(Round(Tanso)); Delay(Truongdo); NoSound End Else Sound(Round(Tanso)) End; (*----------------------*) BEGIN Bannhac(c,4,Notdon); Bannhac(f,4,Notdon); Bannhac(g,4,Notdon); Bannhac(a,4,Notdon); Bannhac(a,4,Notdon); END.
141/3 cạnh của tam giác:
Code:
Program Tam_giac; Var a,b,c:Integer; tamgiac,deu,can:Boolean; Begin Writeln('BA CANH CUA TAM GIAC ?'); Writeln('----------------------'); Write('-Nhap so thu nhat= '); Readln(a); Write('-Nhap so thu hai = '); Readln(b); Write('-Nhap so thu ba = '); Readln(c); tamgiac:=False; deu:=False; can:=False; If (a+b>c) And (b+c>a) And (c+a>b) Then Begin tamgiac:=True; If (a=b) And (b=c) Then deu:=True; If (a=b) Or (b=c) Or (c=a) Then can:=True; End; Writeln; Writeln(' 3 so vua nhap la:'); Writeln('+Tam giac: ',tamgiac); Writeln('+Tam giac deu: ',deu); Writeln('+Tam giac can: ',can); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
142/Bài toán cổ điển:
Code:
Program Tram_trau; Var dung,nam,gia,co,trau:Integer; Begin Writeln('BAI TOAN CO DIEN'); Writeln('Tram trau tram co'); Writeln('Trau dung an 5'); Writeln('Trau nam an 3'); Writeln('Ba trau gia an 1'); Writeln('----------------'); Writeln(' Bai toan nay co cac loi giai sau'); For dung:=0 To 20 Do For nam:=0 To 33-dung Do For gia:=0 To (100-(dung+nam)) Do Begin co:=5*dung+3*nam+(gia Div 3); trau:=dung+nam+gia; If (gia Mod 3 =0) And (trau=100) And ( co=100) Then Writeln('-Trau dung ',dung,' con, -Trau nam ',nam,' con, -Trau gia ',gia,' con'); End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
143/Các hàm lượng giác:
Code:
Program Cac_ham_luong_giac; CONST g='|'; ke='--------------------------------------------------'; Ten=' CAC HAM LUONG GIAC'; Tde='|DO | RADIAN | SIN | COSIN | TANG | COTANG |'; Var Doo:1..89; Rad,s,c,t,ct:Real; Begin Repeat Write('-Nhap do (tu 1 den 89, so 0 de ngung): '); Readln(Doo); If Doo= 0 Then Exit; Writeln(Ten); Writeln(ke); Writeln(Tde); Writeln(ke); Rad:=Doo*Pi/180; s:=Sin(rad); c:=Cos(Rad); t:=s/c; ct:=c/s; Writeln(g,Doo:2,#248,g,Rad:8:6,g,s:8:6,g, c:8:6,g,t:8:5,g,ct:8:5,g); Writeln(ke); Writeln; Until Doo=0; End.
144/Bài toán gà, chó:
Code:
Program ga_cho; Var x,y,n:Integer; Begin n:=1; Writeln('* CAC LOI GIAI BAI TOAN CO DIEN GA,CHO'); Writeln('----------------------------------'); For x:=1 To 36 Do For y:=1 To (36-x) Do If ((x*2)+(y*4) =100) then {and ((x+y) =36) Then} Begin Writeln(' * Loi giai thu : ',n:3); Write('- Ga = ',x:2,' con = ',(x*2):2,' chan '); Write('- Cho = ',y:2,' con = ',(y*4):2,' chan '); If x+y<36 Then Writeln('Ga+Cho= ',x+y:2,' con,khong dung') Else If x+y=36 Then Writeln('Ga+Cho= ',x+y:2,' con,loi giai dung'); n:=n+1; End; Writeln(' * Tong cong co: ',(n-1):3,' loi giai'); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
145/Các nguyên âm, phụ âm trong 1 chuỗi:
Code:
Program Nguyen_am_Phu_am; TYPE Kytu=Set of Char; Var a,b,Nguyen,Phu:Kytu; Chuoi:String; i:Integer; Ch:Char; Begin Writeln('CAC NGUYEN AM, PHU AM TRONG MOT CHUOI'); Writeln('-------------------------------------'); Write('-Nhap mot chuoi ky tu: '); Readln(Chuoi); a:=['a','e','i','o','u','A','E','I','O','U']; b:=['a'..'z','A'..'Z'] - a; Nguyen:=[]; Phu:=[]; For I:=1 To Length(Chuoi) Do Begin If Chuoi[i] In a Then Nguyen:=Nguyen + [Chuoi[i]]; If Chuoi[i] In b Then Phu:=Phu +[Chuoi[i]]; End; Writeln; Writeln('*Chuoi nay co cac nguyen am sau day:'); Write(' '); For Ch:='A' To 'z' Do If Ch In Nguyen Then Write(Upcase(ch),', '); Writeln; Writeln('*Chuoi nay co cac phu am sau day:'); Write(' '); For Ch:='A' To 'z' Do If Ch In Phu Then Write(Upcase(Ch),', '); Writeln; Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
146/Các phép toán trong tập hợp:
Code:
Program Cac_phep_Toan; TYPE KyTu=Set of Char; Var a,b,Cong,Nhan,tru1,tru2:KyTu; p:Array[1..100] Of Char; m,n,i:Byte; Begin Writeln('CAC PHEP TOAN TRONG TAP HOP'); Writeln('---------------------------'); a:=[]; b:=[]; Write('-So phan tu cua tap hop A= '); Readln(m); For i:=1 To M Do Begin Write(' -Phan tu A[',i,']= '); Readln(p[i]); a:=a + [p[i]]; End; Write('-So phan tu cua tap hop B= '); Readln(n); For i:=1 To N Do Begin Write(' -Phan tu B[',i,']= '); Readln(p[i]); b:=b + [p[i]]; End; Nhan:=a * b; Writeln('A * B gom cac phan tu: '); For i:=0 To 255 Do If Char(i) In Nhan Then Write(Char(i),#32); Writeln; Cong:=a + b; Writeln('A + B gom cac phan tu: '); For i:=0 To 255 Do If Char(i) In Cong Then Write(Char(i),#32); Writeln; Tru1:=a - b; Writeln('A - B gom cac phan tu: '); For i:=0 To 255 Do If Char(i) In Tru1 Then Write(Char(i),#32); Writeln; Tru2:=b - a; Writeln('B - A gom cac phan tu: '); For i:=0 To 255 Do If Char(i) In Tru2 Then Write(Char(i),#32); Writeln; If A <= B Then Writeln('-Tap hop A nho hon tap hop B'); If B <= A Then Writeln('-Tap hop B nho hon tap hop A'); Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
147/Các phép toán:
Code:
Program Cac_phep_toan; Var a,b,c,d,e,x,y,g,h,i:Integer; Begin Writeln('CAC PHEP TOAN'); Writeln('-------------'); Writeln; a:=124; b:=12; Writeln(a:3,' DIV ',b:2,' = ',a DIV b); Writeln(a:3,' MOD ',b:2,' = ',a MOD b); c:=12; d:=22; Writeln(c:2,' AND ',d:2,' = ',c AND d); Writeln(c:2,' OR ',d:2,' = ',c OR d); Writeln(c:2,' XOR ',d:2,' = ',c XOR d); x:=2; g:=x Shl 7; Writeln('g = ',x:2,' Shl 7 = ',g); x:=256; h:=x Shr 7; Writeln('h = ',x:2,' Shr 7 = ',h); i:=g+h; Writeln('i = g + h = ',i); Writeln('Lo(i) = ',Lo(i)); Writeln('Hi(i) = ',Hi(i)); Writeln('Swap(i) = ',Swap(i)); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
148/Các số nguyên tố:
Code:
Program So_nguyen_to; Var NguyenTo,Sang:Set of 1..100; so:1..100; i:Integer; Begin Writeln(' CAC SO NGUYEN TO TU 1 DEN 100'); Writeln(' -----------------------------'); Writeln; NguyenTo:=[]; Sang:=[2..100]; So:=2; Repeat While Not (So In Sang) Do So:=So+1; NguyenTo:=NguyenTo + [So]; Write(So,' '); I:=So; While I <= 100 Do Begin Sang:=Sang -[I]; I:=I + So; End; Until Sang=[]; Writeln; Writeln; Write(' Bam phim <Enter> de ket thuc '); Readln End.
149/Cho biết ngày hôm nay sẽ tính được ngày mai:
Code:
Program Ngay_mai_la_ngay_may; Var Nam:1900..2000; Thang:1..12; Ngay:1..31; Begin Writeln('CHO BIET NGAY HOM NAY SE TINH DUOC NGAY MAI'); Writeln('-------------------------------------------'); Repeat Write('-Cho biet ngay ( so 0 de ngung): '); Readln(Ngay); If Ngay = 0 Then Exit; Write('-Cho biet thang: '); Readln(Thang); Write('-Cho biet nam: '); Readln(Nam); Case Thang Of 1,3,5,7,8,10,12 : If Ngay < 31 Then Ngay:=Ngay+1 Else If Thang = 12 Then Begin Nam:=Nam+1; Thang:=1; End Else Begin Thang:=Thang+1; Ngay:=1; End; 4,6,9,11 : If Ngay < 30 Then Ngay:=Ngay+1 Else Begin Thang:=Thang+1; Ngay:=1; End; 2: If (Ngay < 28) Or ((Ngay=28) And (Nam Mod 4 = 0)) then Ngay:=Ngay+1 Else Begin Thang:=Thang+1; Ngay:=1; End; End; Writeln; Writeln('+Ngay mai la ngay: ',Ngay:2,' / ',Thang:2,' / ',Nam:4); Writeln; Until Ngay=0; End.
150/Chọn loại giải trí thích hợp:
Code:
Program Giai_Tri; Var t:Byte; Begin Writeln('CHON LOAI GIAI TRI THICH HOP'); Writeln('----------------------------'); Write('-Cho biet nhiet do ngay hom nay: '); Readln(t); If t < 20 Then Writeln('Troi lanh, ban nen o nha coi TV'); If ((t > 20) And (t < 25)) Then Writeln('Troi mat me, ban nen di cam trai'); If ((t > 25) And (t < 30)) Then Writeln('Troi hoi nong, ban nen di tam bien Vung Tau'); If t > 30 Then Writeln('Troi nong, ban nen di nghi mat o Da Lat'); Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln End.
|Ðiều Chỉnh |
|Xếp Bài |
| |![]()
Linear Mode
| |
You
may not post new threads
You
may not post replies
You
may not post attachments
You
may not edit your posts Mở Mở Mở
HTML đang
Tắt | |

Set-Cookie: bblastactivity=0; expires=Fri, 29-Jul-2016 00:04:09 GMT; path=/


markdown:
Vui lòng cho biết email của bạn để nhận Từ vựng của Urban mỗi sáng nhé!
Địa chỉ daily@urbandictionary.com sẽ gửi thư cho bạn. Chúng tôi cam kết sẽ không để xảy ra tình trạng gửi thư rác vào hộp mail của bạn.

WARC-Type: response

Content-Type: application/http; msgtype=response

Server: Cowboy

X-Frame-Options: SAMEORIGIN

X-Xss-Protection: 1; mode=block

X-Content-Type-Options: nosniff

Content-Type: text/html; charset=utf-8

Cache-Control: max-age=3600, public

Via: 1.1 varnish

Content-Encoding: gzip

Accept-Ranges: bytes

Connection: close

X-Cache: MISS

Vary: Accept-Encoding


markdown:
Top Definition
French surname meaning "of veel"... english translation means awesome family filled with beautiful girls and handsome men. Everyone in this family is hilarious, goodlooking, and all around great.
girl: Wow that family seemed so cool and fun!
boy:Yep, those were the Deveau's.
boy:Yep, those were the Deveau's.
viết bởi
[ladybug14](/author.php?author=ladybug14)25 Tháng bảy, 2009
1 more definition
2
a real f'in douchebag
damn it, your being a de veau right now
viết bởi


markdown:
Top Definition
the german word for "cleaning lady" or "cleaner"
my putzfrau came today so my room is all tidy
viết bởi
Vui lòng cho biết email của bạn để nhận
**Từ vựng của Urban** mỗi sáng nhé!
Địa chỉ daily@urbandictionary.com sẽ gửi thư cho bạn. Chúng tôi cam kết sẽ không để xảy ra tình trạng gửi thư rác vào hộp mail của bạn.


markdown:
Sign in to
**post new definitions, images, and sounds** and create lists of favorites.
Sign in to
**post new definitions, images, and sounds** and create lists of favorites.
Vui lòng cho biết email của bạn để nhận
**Từ vựng của Urban** mỗi sáng nhé!
Địa chỉ daily@urbandictionary.com sẽ gửi thư cho bạn. Chúng tôi cam kết sẽ không để xảy ra tình trạng gửi thư rác vào hộp mail của bạn.

WARC-Truncated: length

Cache-Control: max-age=0, private, must-revalidate


markdown:
Ngày 17/3, xác một cô gái được người dân phát hiện trong tình trạng lõa thể, dính máu tại khu vực nghĩa trang của xã Tam Dân (Phú Ninh, Quảng Nam).
Nạn nhân 15 tuổi, trú thôn Hòa Bình, xã Tam Dân, hiện đã nghỉ học vì mang thai 5 tháng.
| |![]()
|Cảnh sát lấy lời khai các nhân chứng. Ảnh: |T.H
Theo nhận định ban đầu của cơ quan điều tra, án mạng xảy ra vào tối 16/3. Trước đó nạn nhân có quan hệ tình dục và tử vong do vết cứa sâu tại cổ. Tại hiện trường chiếc xe đạp và áo khoác màu cam của nạn nhân vẫn còn nguyên.
Nhà chức trách đang điều tra làm rõ vụ án.
**Trung Hậu**
Ý kiến bạn đọc
Viết phản hồi

Cache-Control: max-age=280, public


markdown:
|
|
Bệnh nhân 32 tuổi, quê ở Ninh Bình. Khối u đã xuất hiện trên tay chị từ 20 năm nay. Khoảng 4 năm gần đây, 3 khối u trên tay trái phát triển rất nhanh tạo thành khối lớn từ trên vai xuống đến bàn tay, khiến tay chị biến dạng. Vùng da những nơi có khối u biến màu nâu sẫm. Các bác sĩ gọi triệu chứng này "bàn tay gấu".
Tiến sĩ Trần Thiết Sơn, Trưởng khoa Phẫu thuật tạo hình cho biết, đây thực chất là bệnh đa u xơ thần kinh. Ngoài mấy khối u khổng lồ ở tay, bệnh nhân còn có rất nhiều u khác ở khắp nơi trên cơ thể.
Các bác sĩ quyết định phẫu thuật cắt u để phục hồi chức năng và thẩm mỹ cho tay trái của chị. Trong ca mổ sáng nay, họ đã cắt phần u ở cánh tay cho bệnh nhân. Theo tiến sĩ Thiết Sơn, yêu cầu của ca mổ là phải lấy được triệt để khối u để tránh tái phát, nhưng không làm tổn thương các gân cơ, mạch máu, dây thần kinh. Đây là điều khó vì u xâm lấn nghiêm trọng tổ chức tay.
Khoảng vài tháng sau, bệnh nhân sẽ được mổ tiếp để giải quyết u vùng cẳng tay, bàn tay. Sở dĩ các bác sĩ không mổ cùng một lúc vì sợ mất quá nhiều máu, gây nguy hiểm cho bệnh nhân.
Tiến sĩ Sơn cho biết, ngay cả sau khi cắt bỏ triệt để, các khối u xơ thần kinh này vẫn có thể phát triển trở lại.
|
|
00:00 / --:--
|
|
|
|
TIN
![]()
Bạn có thể gửi nhận xét, góp ý hay liên hệ về bài viết
** bằng cách gửi thư điện tử tới Phẫu thuật cho người có "bàn tay gấu"**
Hà Nội bắn 21 phát đại bác dịp Quốc khánh; 15 người chết trong lũ, Quảng Ninh xin ứng cứu; Ngưỡng xét tuyển đại học là 15 điểm; Người phụ nữ Indonesia kêu cứu vì chồng cũ "lừa" bắt con ở VN;
Quảng Ninh ngập nặng sau trận mưa lịch sử; Biểu tượng sexy nhất của điện ảnh Việt thập niên 90; Vì sao hàng xóm không mua 'bức tường 1 tỷ'?; Hà Nội: Cảnh nhấc bổng xe tải mắc kẹt trên cầu vượt; Hàng chục cán bộ ngân hàng tại phiên xử đại gia nợ 1.600 tỷ...là những thông tin thời sự nổi bật ngày 27/7.
Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Thí sinh chật vật tra cứu điểm thi; Nữ đại gia bị thợ làm tóc lừa 288 tỷ đồng; Cán bộ Thanh tra Chính phủ bị bắt vì nghi vấn nhận 100 triệu đồng; Du khách Việt ăn cắp hàng hiệu ở Thụy Sĩ; Vụ giết 4 người ở Nghệ An: Bất ngờ về nghi phạm...là những thông tin thời sự nổi bật tuần qua.
Đại tướng Phùng Quang Thanh về đến Hà Nội; Triệt phá đường dây cực lớn, thu 5,5 tấn ma túy; LS nói về những 'bất thường' sau phiên xử Lý Nguyễn Chung; gần 40.000 điểm liệt môn Toán: ‘Tôi thấy choáng!’; nhiều người chết và bị thương vì tai nạn giao thông;... là những thông tin thời sự đáng chú ý ngày 25/7.
Khi lương chủ tịch tập đoàn nhà nước "bất ngờ" bị lộ; Giọng đọc huyền thoại của VTV giờ ra sao?; Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Trẻ sơ sinh chết bất thường: Bộ Y tế vào cuộc
Chưa tìm được cách ngăn ngừa người ra nước ngoài buôn lậu, trộm cắp hoặc vi phạm thuần phong mỹ tục nước sở tại nên chúng ta sẽ còn xấu mặt dài dài
Cựu Chủ tịch Tập đoàn Dầu khí quốc gia Việt Nam (PetroVietnam - PVN) Nguyễn Xuân Sơn bị khởi tố để điều tra hành vi "thiếu trách nhiệm gây hậu quả nghiêm trọng" - tội danh được quy định tại điều 285 Bộ luật Hình sự. Báo điểm.. ------------ Xem thêm: Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN, http://vietbao.vn/tp/Bat-nguyen-Chu-tich-Tap-doan-Dau-khi-VN/12123701/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Nhiều người tỏ ra không hài lòng với cách ứng xử của Tuấn Hưng, trong đó có diva Mỹ Linh. ------------ Xem thêm: Tuấn Hưng "văng bậy", nổi nóng với Bài hát yêu thích1, http://vietbao.vn/The-gioi-giai-tri/Tuan-Hung-vang-bay-noi-nong-voi-Bai-hat-yeu-thich1/350613756/235/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Dự án giúp Lào có vốn nhưng cũng giúp chính TQ nhằm đạt được 3 mục đích lớn: Xuất khẩu vốn; xuất khẩu công nghệ và xuất khẩu con người.
Hot girl thổ dân xinh đẹp ngực trần đang trở thành từ khóa hot được cư dân mạng tìm kiếm, thông tin về cô gái này cũng nhanh chóng được tìm thấy.
Từ vỏ chai, gốm hỏng, đất cát ven sông… đều được chàng trai trẻ thu gom để bán nhằm gây quỹ từ thiện ủng hộ người dân vùng cao.
Cùng dõi theo những hình ảnh ngày làm việc của các nữ chiến sĩ CSGT vừa được Giám đốc Công an TP Hà Nội tặng bằng khen vì có thành tích xuất sắc.
Những ngày qua, cộng đồng mạng liên tục chia sẻ câu chuyện về đôi vợ chồng già bán xăng chịu cho người qua đường khi khách chẳng may "cháy túi" khiến nhiều người cảm động.
Trong khi chúng ta đang có một mùa đông ấm áp cùng gia đình, bạn bè thì ở ngoài kia biết bao em thơ và cụ già đang phải chống chọi với cái lạnh cắt da cắt thịt của tiết trời miền Bắc.
Đừng bao giờ nói câu "Năm sau con sẽ về" vì biết đâu đó là cái Tết cuối cùng ta còn được ở bên cha mẹ.
Thỏa thuận hạt nhân Iran gặp trở ngại tại Quốc hội Mỹ; Hải quân Trung Quốc tập trận lớn trên Biển Đông; Sách trắng Nhật tố cáo trực tiếp Trung Quốc gây hấn ở Biển Đông; Tin chấn động: NASA công bố tìm thấy Trái đất thứ 2 là những tin chính trong tuần qua.
Fan thu thập 2.000 bằng chứng nói xấu Taeyeon (SNSD), Vụ "Lệ Quyên cho con đi tiểu trên máy bay": hết "sốt" báo Mỹ, lại lên báo Anh, Sơn Tùng MTP bị nghi ngờ về giới tính, Sau tin đồn chia tay Kim Lý, Trương Ngọc Ánh tình tứ bên trai lạ, "Trò cưng Mỹ Tâm hát hit Sơn Tùng M-TP vượt trội bản gốc".... là những tin chính nổi bật trong tuần.
Vụ chặt cây xanh: Hàng loạt cán bộ bị giáng chức, chuyển công tác; Du khách Việt ăn cắp ở Thụy Sĩ; Tranh cãi về màu sơn mới Nhà hát lớn Hà Nội; Bức tường 1 tỉ đồng sẽ bị thu hồi? ....là những tin tức nổi bật được dư luận quan tâm trong tuần qua. ------------ Xem thêm: Nghìn lẻ chuyện tuần qua (19/07 - 25/07), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-1907-2507/2147580278/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Ông Nguyễn Xuân Sơn - nguyên Chủ tịch HĐTV Tập đoàn Dầu khí Quốc gia Việt Nam bị cho thôi chức và bắt tạm giam để điều tra về nguồn vốn 800 tỉ do PVN đầu tư vào Ocean Bank có nguy cơ bị mất trắng; giá xăng giảm "nhỏ giọt"260 đồng/lít, trong khi DN xăng dầu vẫn đang lãi 1.105 đồng/lít xăng còn người tiêu dùng thì vẫn mua xăng đắt và tiếp tục phải đóng vào quỹ Bình ổn giá; WB vừa công bố thông tin về nợ công khiến dư luận xã hội giật mình với con số nợ lên tới 110 tỷ USD, cao hơn nhiều so với các nguồn số liệu từng được công bố... Cùng với đó, những thông tin về BĐS, tài chinh- ngân hàng, thị trường tiêu dùng... tiếp tục là những tin tức, sự kiện kinh tế nóng hổi trong tuần vừa qua. ------------ Xem thêm: Toàn cảnh kinh tế tuần 19/07 - 25/07/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-1907-25072015/2147580269/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN; Lý Nguyễn Chung bị tuyên án 12 năm tù; Cảnh báo tội phạm mới: ‘thôi miên, bỏ thuốc mê’ để gây án; Đánh sập đường dây mua bán, vận chuyển hơn 1.200 bánh heroin; Giáo viên cấu kết với người tình giết chồng; Nạn ném đá xe khách, vì sao dây dưa?;.....là những tin đáng chú ý trong tuần.
Ý kiến bạn đọc
Viết phản hồi


markdown:
Tin nổi bật cùng chuyên mục
[xã hội](http://vietbao.vn/Xa-hoi/)
Sau khi lừa được cô cháu ruột đang nuôi con nhỏ từ Cần Thơ ra Quảng Ninh vào động massage bán dâm. Ở quê nhà, người “chồng” đã chỉ cách cho “vợ” bỏ trốn, về quê tố giác tội ác của 2 bà dì.Lừa cháu vào "động"
Đứa con là kết quả của mối tình “ăn cơm trước kẻng” của đôi bạn trẻ. Chị H. đã đủ tuổi lấy chồng, riêng H.A. năm nay vẫn chưa đủ tuổi để cưới vợ.
Tuy nhiên, cả hai gia đình nội và ngoại đều đồng ý cho 2 bạn trẻ về chung sống với nhau ở nhà “bố mẹ chồng”, tại phường Hưng Lợi, (quận Ninh Kiều, TP. Cần Thơ).
| |![]()
| |
Chị H.Đ.H và anh H.A. ngồi kể lại câu chuyện bị lừa vào động massage bán dâm. Ảnh: Q.Huy
Như TS đã đưa tin, 2 người bị chị H. tố cáo là bà Trương Thị Phượng, trú tại phường Hưng Lợi, (Q.Ninh Kiều, TP. Cần Thơ) và bà Trịnh Thị Út Tiền, trú tại huyện Vị Thủy, tỉnh Hậu Giang. Bà Phượng và Tiền móc nối với đối tượng Nguyễn Thị Huyền Trâm (con gái bà Tiền mới 16 tuổi - PV) đang “hành nghề” tại động massage, xung quanh khu vực cửa khẩu Móng Cái (Quảng Ninh).
Ngày 4/7, sau nhiều lần 2 bà dì tìm cách dụ giỗ chị H. bỏ gia đình bất thành. Đêm đó, bà Tiền đã bảo H. về quê ở Hậu Giang vì bà ngoại ốm nặng, H. bảo không có tiền thì bà Tiền bảo cứ về rồi sẽ cho.
Tuy nhiên, khi về đến quê thì bà ngoại vẫn khỏe mạnh, H. biết mình bị lừa, muốn chạy về nhà nhưng lại bị bà Tiền nhốt lại trong phòng. Ngay ngày hôm sau, bà Tiền bán ngay 2 chỉ vàng của chị H. để mua đồ và vé máy bay ra Hà Nội.
Chị H. nhớ lại: “
*Khi đó em cứ nghĩ là dì Tiền đưa về gia đình ở Cần Thơ, nhưng không ngờ là đưa thẳng ra sân bay. Dì Phượng ở nhà gọi điện bảo: “Mày bỏ chồng con đi cả đêm, về H.A. mà gặp nó giết chết*”. *Chồng em nói cái gì là làm thật, khi đó em sợ quá đành nghe theo lời ép buộc của 2 dì*”.
Xuống sân bay Hà Nội rồi bắt xe xuống TP.Móng Cái, Quảng Ninh. Con gái bà Tiền là Nguyễn Thị Huyền Trâm (16 tuổi), mới ra “hành nghề” tại động massage Trường Giang từ tháng 2, đã chỉ cho H. đường đến.
Tại đây, chị H. đã có 23 ngày sống trong lo lắng, hoảng sợ vì phải ép buộc học nghề massage và “đi khách”.
Ngày trở về chị H. với thân hình gầy hốc hác, đôi mắt sâu hoắm và liên tục những tiếng ho sặc sụa. Chị H. và anh H.A. ngồi kể lại câu chuyện nhẫn tâm của 2 bà dì cùng nhau cấu kết đưa cháu ruột vào động massage trá hình.
**Cuộc trốn thoát lúc rạng sáng**
Theo lời kể của chị H., động bán dâm mà chị bị lừa vào để làm việc có tên là massage Trường Giang, cách chợ cổ TP. Móng Cái khoảng 3km. Hoạt động tại đây có rất nhiều nữ làm nghề massage nhưng thực chất đều bị ép buộc “đi khách”.
Chị H. đã phản đối việc “hành nghề” trên thì bị Nguyễn Thị Huyền Trâm liên tục dọa nạt, nếu không chịu học nghề sẽ bị bán sang Đài Loan. Cũng ở động massage bán dâm này, chị H. bị đứa em mới 16 tuổi tịch thu điện thoại và tiền trong những ngày mới ra “lập nghiệp”.
| |![]()
|Đơn tố cáo 2 bà dì ép buộc vào động bán dâm. Ảnh: Q.Huy|
Đến đêm 28 và rạng ngày 29/7, cả động massage thức rất muộn, chị H. nhớ lại: “
*Muốn có tiền để bỏ trốn em đã 2 ngày làm nghề massage, có được 550 ngàn đồng. Đêm đó mọi người thức rất khuya, đến gần 2h sáng mà vẫn có khách.* *Gần 3h thì mọi người đi ngủ, em nằm mà không ngủ được, rồi lấy cái balô bỏ mấy bộ quần áo mở cửa nhìn ngó xung quanh. May cho em là cổng chính hôm đó không khóa mà chỉ khép hờ. Em chạy bộ ra được một đoạn thì gọi taxi và ra bến xe Móng Cái*”.
Ra khỏi động massage Trường Giang, chị H. đã gọi cho “chồng” và H.A. đã chỉ đường cho “vợ” chạy trốn. Ở quê nhà, H.A. đã mua vé máy bay để chị H. bay về Cần Thơ ngay ngày hôm sau.
Sau hơn 1 tháng trở về Cần Thơ, sáng 4/9, 2 bà dì là Trương Thị Phượng và Trịnh Thị Út Tiền kéo chị H. sang nhà và đánh đập tới tấp.
“
*Vừa cầm tóc đấm đá vào đầu, bả vai 2 bà dì gằn giọng tao đánh cho mày chết và sau này gặp mày ở đâu thì tao sẽ giết. Hết tuần này giám định sức khỏe sẽ được bệnh viện cung cấp*” - bị đánh quá đau chị H. và gia đình đã làm đơn tố cáo.
Còn bà T.T.N.A (mẹ chồng của chị H.) cho biết: “
*Ban đầu cứ nghĩ là con H. nó bỏ con nhỏ đi làm, cháu ở nhà nó khóc liên tục. Ai ngờ sự việc lại xảy ra như thế…*”.
Trong 2 ngày liên tiếp khi nhận được đơn tố cáo, Công an TP. Cần Thơ đã mời H.A và chị H. lên lấy lời khai chi tiết.
Vụ việc vẫn đang được tiếp tục điều tra, làm rõ.
|
|
00:00 / --:--
|
|
|
|
TIN
![]()
Bạn có thể gửi nhận xét, góp ý hay liên hệ về bài viết
** bằng cách gửi thư điện tử tới Hành trình dì lừa cháu vào "động massage"**
Hà Nội bắn 21 phát đại bác dịp Quốc khánh; 15 người chết trong lũ, Quảng Ninh xin ứng cứu; Ngưỡng xét tuyển đại học là 15 điểm; Người phụ nữ Indonesia kêu cứu vì chồng cũ "lừa" bắt con ở VN;
Quảng Ninh ngập nặng sau trận mưa lịch sử; Biểu tượng sexy nhất của điện ảnh Việt thập niên 90; Vì sao hàng xóm không mua 'bức tường 1 tỷ'?; Hà Nội: Cảnh nhấc bổng xe tải mắc kẹt trên cầu vượt; Hàng chục cán bộ ngân hàng tại phiên xử đại gia nợ 1.600 tỷ...là những thông tin thời sự nổi bật ngày 27/7.
Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Thí sinh chật vật tra cứu điểm thi; Nữ đại gia bị thợ làm tóc lừa 288 tỷ đồng; Cán bộ Thanh tra Chính phủ bị bắt vì nghi vấn nhận 100 triệu đồng; Du khách Việt ăn cắp hàng hiệu ở Thụy Sĩ; Vụ giết 4 người ở Nghệ An: Bất ngờ về nghi phạm...là những thông tin thời sự nổi bật tuần qua.
Đại tướng Phùng Quang Thanh về đến Hà Nội; Triệt phá đường dây cực lớn, thu 5,5 tấn ma túy; LS nói về những 'bất thường' sau phiên xử Lý Nguyễn Chung; gần 40.000 điểm liệt môn Toán: ‘Tôi thấy choáng!’; nhiều người chết và bị thương vì tai nạn giao thông;... là những thông tin thời sự đáng chú ý ngày 25/7.
Khi lương chủ tịch tập đoàn nhà nước "bất ngờ" bị lộ; Giọng đọc huyền thoại của VTV giờ ra sao?; Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Trẻ sơ sinh chết bất thường: Bộ Y tế vào cuộc
Chưa tìm được cách ngăn ngừa người ra nước ngoài buôn lậu, trộm cắp hoặc vi phạm thuần phong mỹ tục nước sở tại nên chúng ta sẽ còn xấu mặt dài dài
Cựu Chủ tịch Tập đoàn Dầu khí quốc gia Việt Nam (PetroVietnam - PVN) Nguyễn Xuân Sơn bị khởi tố để điều tra hành vi "thiếu trách nhiệm gây hậu quả nghiêm trọng" - tội danh được quy định tại điều 285 Bộ luật Hình sự. Báo điểm.. ------------ Xem thêm: Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN, http://vietbao.vn/tp/Bat-nguyen-Chu-tich-Tap-doan-Dau-khi-VN/12123701/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Nhiều người tỏ ra không hài lòng với cách ứng xử của Tuấn Hưng, trong đó có diva Mỹ Linh. ------------ Xem thêm: Tuấn Hưng "văng bậy", nổi nóng với Bài hát yêu thích1, http://vietbao.vn/The-gioi-giai-tri/Tuan-Hung-vang-bay-noi-nong-voi-Bai-hat-yeu-thich1/350613756/235/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Dự án giúp Lào có vốn nhưng cũng giúp chính TQ nhằm đạt được 3 mục đích lớn: Xuất khẩu vốn; xuất khẩu công nghệ và xuất khẩu con người.
Hot girl thổ dân xinh đẹp ngực trần đang trở thành từ khóa hot được cư dân mạng tìm kiếm, thông tin về cô gái này cũng nhanh chóng được tìm thấy.
Từ vỏ chai, gốm hỏng, đất cát ven sông… đều được chàng trai trẻ thu gom để bán nhằm gây quỹ từ thiện ủng hộ người dân vùng cao.
Cùng dõi theo những hình ảnh ngày làm việc của các nữ chiến sĩ CSGT vừa được Giám đốc Công an TP Hà Nội tặng bằng khen vì có thành tích xuất sắc.
Những ngày qua, cộng đồng mạng liên tục chia sẻ câu chuyện về đôi vợ chồng già bán xăng chịu cho người qua đường khi khách chẳng may "cháy túi" khiến nhiều người cảm động.
Trong khi chúng ta đang có một mùa đông ấm áp cùng gia đình, bạn bè thì ở ngoài kia biết bao em thơ và cụ già đang phải chống chọi với cái lạnh cắt da cắt thịt của tiết trời miền Bắc.
Đừng bao giờ nói câu "Năm sau con sẽ về" vì biết đâu đó là cái Tết cuối cùng ta còn được ở bên cha mẹ.
Thỏa thuận hạt nhân Iran gặp trở ngại tại Quốc hội Mỹ; Hải quân Trung Quốc tập trận lớn trên Biển Đông; Sách trắng Nhật tố cáo trực tiếp Trung Quốc gây hấn ở Biển Đông; Tin chấn động: NASA công bố tìm thấy Trái đất thứ 2 là những tin chính trong tuần qua.
Fan thu thập 2.000 bằng chứng nói xấu Taeyeon (SNSD), Vụ "Lệ Quyên cho con đi tiểu trên máy bay": hết "sốt" báo Mỹ, lại lên báo Anh, Sơn Tùng MTP bị nghi ngờ về giới tính, Sau tin đồn chia tay Kim Lý, Trương Ngọc Ánh tình tứ bên trai lạ, "Trò cưng Mỹ Tâm hát hit Sơn Tùng M-TP vượt trội bản gốc".... là những tin chính nổi bật trong tuần.
Vụ chặt cây xanh: Hàng loạt cán bộ bị giáng chức, chuyển công tác; Du khách Việt ăn cắp ở Thụy Sĩ; Tranh cãi về màu sơn mới Nhà hát lớn Hà Nội; Bức tường 1 tỉ đồng sẽ bị thu hồi? ....là những tin tức nổi bật được dư luận quan tâm trong tuần qua. ------------ Xem thêm: Nghìn lẻ chuyện tuần qua (19/07 - 25/07), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-1907-2507/2147580278/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Ông Nguyễn Xuân Sơn - nguyên Chủ tịch HĐTV Tập đoàn Dầu khí Quốc gia Việt Nam bị cho thôi chức và bắt tạm giam để điều tra về nguồn vốn 800 tỉ do PVN đầu tư vào Ocean Bank có nguy cơ bị mất trắng; giá xăng giảm "nhỏ giọt"260 đồng/lít, trong khi DN xăng dầu vẫn đang lãi 1.105 đồng/lít xăng còn người tiêu dùng thì vẫn mua xăng đắt và tiếp tục phải đóng vào quỹ Bình ổn giá; WB vừa công bố thông tin về nợ công khiến dư luận xã hội giật mình với con số nợ lên tới 110 tỷ USD, cao hơn nhiều so với các nguồn số liệu từng được công bố... Cùng với đó, những thông tin về BĐS, tài chinh- ngân hàng, thị trường tiêu dùng... tiếp tục là những tin tức, sự kiện kinh tế nóng hổi trong tuần vừa qua. ------------ Xem thêm: Toàn cảnh kinh tế tuần 19/07 - 25/07/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-1907-25072015/2147580269/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN; Lý Nguyễn Chung bị tuyên án 12 năm tù; Cảnh báo tội phạm mới: ‘thôi miên, bỏ thuốc mê’ để gây án; Đánh sập đường dây mua bán, vận chuyển hơn 1.200 bánh heroin; Giáo viên cấu kết với người tình giết chồng; Nạn ném đá xe khách, vì sao dây dưa?;.....là những tin đáng chú ý trong tuần.
Ý kiến bạn đọc
Viết phản hồi


markdown:
|Ngày 15/1, ông Phùng Văn Tiến - Trưởng phòng Nội vụ - LĐTB&XH huyện Điện Bàn cho biết, sau khi có
|
Ông Phùng Văn Tiến khẳng định, đoàn thanh tra bước đầu kết luận những vấn đề báo Thanh Niên nêu về việc cấp phát tiền cứu trợ "ký 1 triệu, nhưng chỉ nhận 500 ngàn đồng" tại thôn Nhị Dinh 3 là hoàn toàn chính xác. Một số hộ dân trong thôn Nhị Dinh 3 đã bị lãnh đạo thôn ép buộc trích tiền cứu trợ để sửa chữa nhà văn hóa thôn là sai quy định. Cũng theo ông Phùng Văn Tiến, đoàn thanh tra quyết định thu hồi toàn bộ số tiền đã cấp phát tại thôn Nhị Dinh 3; tổ chức họp dân để xét duyệt công khai đối tượng cần được hỗ trợ. Ngoài ra, đoàn thanh tra cũng đã kiểm điểm Ban chi ủy và trưởng thôn Nhị Dinh 3 do sai phạm các quy định của Nhà nước trong việc cấp phát tiền cứu trợ và sẽ có hình thức kỷ luật cao hơn khi có kết luận cuối cùng.
|
|
00:00 / --:--
|
|
|
|
TIN
![]()
Bạn có thể gửi nhận xét, góp ý hay liên hệ về bài viết
** bằng cách gửi thư điện tử tới Kiểm điểm Chi ủy và trưởng thôn Nhị Dinh 3 (Điện Bàn, Quảng Nam)**
Hà Nội bắn 21 phát đại bác dịp Quốc khánh; 15 người chết trong lũ, Quảng Ninh xin ứng cứu; Ngưỡng xét tuyển đại học là 15 điểm; Người phụ nữ Indonesia kêu cứu vì chồng cũ "lừa" bắt con ở VN;
Quảng Ninh ngập nặng sau trận mưa lịch sử; Biểu tượng sexy nhất của điện ảnh Việt thập niên 90; Vì sao hàng xóm không mua 'bức tường 1 tỷ'?; Hà Nội: Cảnh nhấc bổng xe tải mắc kẹt trên cầu vượt; Hàng chục cán bộ ngân hàng tại phiên xử đại gia nợ 1.600 tỷ...là những thông tin thời sự nổi bật ngày 27/7.
Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Thí sinh chật vật tra cứu điểm thi; Nữ đại gia bị thợ làm tóc lừa 288 tỷ đồng; Cán bộ Thanh tra Chính phủ bị bắt vì nghi vấn nhận 100 triệu đồng; Du khách Việt ăn cắp hàng hiệu ở Thụy Sĩ; Vụ giết 4 người ở Nghệ An: Bất ngờ về nghi phạm...là những thông tin thời sự nổi bật tuần qua.
Đại tướng Phùng Quang Thanh về đến Hà Nội; Triệt phá đường dây cực lớn, thu 5,5 tấn ma túy; LS nói về những 'bất thường' sau phiên xử Lý Nguyễn Chung; gần 40.000 điểm liệt môn Toán: ‘Tôi thấy choáng!’; nhiều người chết và bị thương vì tai nạn giao thông;... là những thông tin thời sự đáng chú ý ngày 25/7.
Khi lương chủ tịch tập đoàn nhà nước "bất ngờ" bị lộ; Giọng đọc huyền thoại của VTV giờ ra sao?; Khách bị trói vì cố tình hút thuốc trên máy bay Vietnam Airlines; Trẻ sơ sinh chết bất thường: Bộ Y tế vào cuộc
Chưa tìm được cách ngăn ngừa người ra nước ngoài buôn lậu, trộm cắp hoặc vi phạm thuần phong mỹ tục nước sở tại nên chúng ta sẽ còn xấu mặt dài dài
Cựu Chủ tịch Tập đoàn Dầu khí quốc gia Việt Nam (PetroVietnam - PVN) Nguyễn Xuân Sơn bị khởi tố để điều tra hành vi "thiếu trách nhiệm gây hậu quả nghiêm trọng" - tội danh được quy định tại điều 285 Bộ luật Hình sự. Báo điểm.. ------------ Xem thêm: Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN, http://vietbao.vn/tp/Bat-nguyen-Chu-tich-Tap-doan-Dau-khi-VN/12123701/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Nhiều người tỏ ra không hài lòng với cách ứng xử của Tuấn Hưng, trong đó có diva Mỹ Linh. ------------ Xem thêm: Tuấn Hưng "văng bậy", nổi nóng với Bài hát yêu thích1, http://vietbao.vn/The-gioi-giai-tri/Tuan-Hung-vang-bay-noi-nong-voi-Bai-hat-yeu-thich1/350613756/235/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Dự án giúp Lào có vốn nhưng cũng giúp chính TQ nhằm đạt được 3 mục đích lớn: Xuất khẩu vốn; xuất khẩu công nghệ và xuất khẩu con người.
Hot girl thổ dân xinh đẹp ngực trần đang trở thành từ khóa hot được cư dân mạng tìm kiếm, thông tin về cô gái này cũng nhanh chóng được tìm thấy.
Từ vỏ chai, gốm hỏng, đất cát ven sông… đều được chàng trai trẻ thu gom để bán nhằm gây quỹ từ thiện ủng hộ người dân vùng cao.
Cùng dõi theo những hình ảnh ngày làm việc của các nữ chiến sĩ CSGT vừa được Giám đốc Công an TP Hà Nội tặng bằng khen vì có thành tích xuất sắc.
Những ngày qua, cộng đồng mạng liên tục chia sẻ câu chuyện về đôi vợ chồng già bán xăng chịu cho người qua đường khi khách chẳng may "cháy túi" khiến nhiều người cảm động.
Trong khi chúng ta đang có một mùa đông ấm áp cùng gia đình, bạn bè thì ở ngoài kia biết bao em thơ và cụ già đang phải chống chọi với cái lạnh cắt da cắt thịt của tiết trời miền Bắc.
Đừng bao giờ nói câu "Năm sau con sẽ về" vì biết đâu đó là cái Tết cuối cùng ta còn được ở bên cha mẹ.
Thỏa thuận hạt nhân Iran gặp trở ngại tại Quốc hội Mỹ; Hải quân Trung Quốc tập trận lớn trên Biển Đông; Sách trắng Nhật tố cáo trực tiếp Trung Quốc gây hấn ở Biển Đông; Tin chấn động: NASA công bố tìm thấy Trái đất thứ 2 là những tin chính trong tuần qua.
Fan thu thập 2.000 bằng chứng nói xấu Taeyeon (SNSD), Vụ "Lệ Quyên cho con đi tiểu trên máy bay": hết "sốt" báo Mỹ, lại lên báo Anh, Sơn Tùng MTP bị nghi ngờ về giới tính, Sau tin đồn chia tay Kim Lý, Trương Ngọc Ánh tình tứ bên trai lạ, "Trò cưng Mỹ Tâm hát hit Sơn Tùng M-TP vượt trội bản gốc".... là những tin chính nổi bật trong tuần.
Vụ chặt cây xanh: Hàng loạt cán bộ bị giáng chức, chuyển công tác; Du khách Việt ăn cắp ở Thụy Sĩ; Tranh cãi về màu sơn mới Nhà hát lớn Hà Nội; Bức tường 1 tỉ đồng sẽ bị thu hồi? ....là những tin tức nổi bật được dư luận quan tâm trong tuần qua. ------------ Xem thêm: Nghìn lẻ chuyện tuần qua (19/07 - 25/07), http://vietbao.vn/Xa-hoi/Nghin-le-chuyen-tuan-qua-1907-2507/2147580278/157/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Ông Nguyễn Xuân Sơn - nguyên Chủ tịch HĐTV Tập đoàn Dầu khí Quốc gia Việt Nam bị cho thôi chức và bắt tạm giam để điều tra về nguồn vốn 800 tỉ do PVN đầu tư vào Ocean Bank có nguy cơ bị mất trắng; giá xăng giảm "nhỏ giọt"260 đồng/lít, trong khi DN xăng dầu vẫn đang lãi 1.105 đồng/lít xăng còn người tiêu dùng thì vẫn mua xăng đắt và tiếp tục phải đóng vào quỹ Bình ổn giá; WB vừa công bố thông tin về nợ công khiến dư luận xã hội giật mình với con số nợ lên tới 110 tỷ USD, cao hơn nhiều so với các nguồn số liệu từng được công bố... Cùng với đó, những thông tin về BĐS, tài chinh- ngân hàng, thị trường tiêu dùng... tiếp tục là những tin tức, sự kiện kinh tế nóng hổi trong tuần vừa qua. ------------ Xem thêm: Toàn cảnh kinh tế tuần 19/07 - 25/07/2015, http://vietbao.vn/Kinh-te/Toan-canh-kinh-te-tuan-1907-25072015/2147580269/47/ Tin nhanh Việt Nam ra thế giới vietbao.vn
Bắt nguyên Chủ tịch Tập đoàn Dầu khí VN; Lý Nguyễn Chung bị tuyên án 12 năm tù; Cảnh báo tội phạm mới: ‘thôi miên, bỏ thuốc mê’ để gây án; Đánh sập đường dây mua bán, vận chuyển hơn 1.200 bánh heroin; Giáo viên cấu kết với người tình giết chồng; Nạn ném đá xe khách, vì sao dây dưa?;.....là những tin đáng chú ý trong tuần.
Ý kiến bạn đọc
Viết phản hồi


markdown:
|
|
Voi vai anh Gu trong "Ao lua Ha Dong", Quoc Khanh da them mot lan nua khang dinh su da dang trong dien xuat cua minh. Thoat khoi nhung vai hai huoc, Quoc Khanh da lot ta mot cach chan that su cuc kho den tan cung trong cuoc doi con nguoi.
- Cach day khoang 5 nam, khi dao dien Luu Huynh co y dinh lam bo phim nay da ra Ha Noi de tim tu lieu va gap toi. Anh da ngay lap tuc "cham" toi vao vai anh Gu va khong co su lua chon nao khac.
Khi doc kich ban phim nay, toi thay thich ngay nhan vat anh Gu, mot nhan vat co tam ly cung nhu doi song phuc tap, nhieu dat dien va cung da nhan loi voi anh Huynh luon. Tu do den nay, bo phim hoan di hoan lai den 3 - 4 lan moi hoan tat duoc.
- Trong suot may nam troi chuan bi cho phim nay, toi co hoan vai dien lai thi van di lam duoc nhung viec khac nhung Luu Huynh thi da bo dung tung ay nam de dau tu va cham chut cho bo phim.
Anh vua viet kich ban, vua la dao dien cua phim, bao nhieu tam huyet, Luu Huynh don het vao bo phim nay. Chung toi cung da co nhieu lan di choi, tam su voi nhau nen toi cung hieu duoc phan nao nhung gi ma anh muon gui gam vao
Co the noi, bo phim da ra mat khan gia va tao duoc an tuong tot la phan den bu xung dang cho dao dien Luu Huynh.
- Lam phim thi co muon van kho khan chu khong chi o mat dien xuat. Ban than viec dong hai cung chang he don gian chut nao, nhan vat bi kich co chieu sau tam ly va hoan canh, neu minh chiu kho tap trung lam tham chi con cam thay de hon la dong hai.
Cai hai ma de cho nguoi xem cuoi day, vui day nhung van thay tham thia. Con ban than toi, da lam nghe thi vai nao cung rat yeu, da nhan kich ban thi luon tap trung nghien cuu de lam, cho du no o dang nao.
- Dong cung nguoi dep, toi cung dong nhieu roi ma (cuoi) nen toi cung khong co gi ngo ngang hay luong cuong ca. Toi chi nghi la minh dong voi nhan vat ay thoi.
Tuy nhien, co mot dieu toi muon noi, nguoi ta thuong quan niem nguoi dep nguoi mau chi biet tan dung loi the ve dep be ngoai, nhung toi thay Anh la mot dien vien co nhung cam xuc ve vai dien tot. Do la dieu co ban quan trong can phai co voi moi dien vien. Nguoi dien vien dien voi cam xuc chan that la quan trong nhat ke ca co nhung sai sot cung de duoc bo qua.
- Toi nho nhat la luc dang quay o Hoi An thi me toi o Ha Noi bi benh phai mo, ma dung ngay day toi co canh phai quay, ca 500-700 dien vien quan chung deu dang cho toi. Toi da phai goi dien ra Ha Noi de xin bac si mo lui lai 1 ngay. Hom sau toi bay ra roi lai bay vao quay tiep.
Trong phim cung co nhieu canh dong rat vat va, leo nui, da nhon, Truong Ngoc Anh bi rop het ca nhan vi di chan khong. Khi hai dua dat nhau loi xuong bien thi bi manh sanh cam vao chan... Dung la de hoan tat mot bo phim, nguoi dien vien phai do ca mau.
- Toi chi biet lam, con cai gi den se den. Tat ca nhung cai do voi toi khong quan trong, toi chi biet song het minh voi vai dien. Toi lam viec voi suy nghi, voi tam huyet cua toi, chu de duoc cai gi thi toi khong de y.
Ma that ra, khong tam dac, khong tam huyet voi anh Gu thi toi da khong lam. Toi va dao dien Luu Huynh da nhieu lan cung di chon canh, chon dien vien cho phim, cung nhau tro chuyen ve phim nhieu lan nen giua chung toi co su dong cam rat lon, tro thanh nhung nguoi ban cua nhau. Do la cai ma toi thay minh "duoc" nhat trong bo phim nay.
Theo
|
|
Viet Bao
|
|
00:00 / --:--
|
|
|
|
TIN
![]()
Ban co the doc ban tieng Viet co dau cua bai viet
*Quốc Khánh: "Chỉ biết sống hết mình với vai diễn"* bang cach nhan chuot vao duong dan tren.
Nhan xet, hay lien he ve tin
** co the gui bang duong dan o duoi. Ban nen gui kem tieu de bai viet Quoc Khanh Chi biet song het minh voi vai dien**


markdown:
VOV.VN - Các chuyên gia kinh tế cho rằng, khi TPP ký kết Việt Nam sẽ có thêm nhiều cơ hội để thâm nhập vào thị trường quốc tế.
Hiệp định Đối tác xuyên Thái Bình Dương (TPP) với các cam kết tương thích với yêu cầu cải cách, tái cấu trúc nền kinh tế và thay đổi mô hình tăng trưởng của Việt Nam. Khi được ký kết sẽ tác động không nhỏ đến đời sống kinh tế, xã hội, hỗ trợ doanh nghiệp cập nhật thông tin, nắm bắt thời cơ mới. Đi cùng với các cơ hội là những thách thức mà doanh nghiệp Việt Nam sẽ phải đối mặt.
Đến thời điểm này, Hiệp định đối tác xuyên Thái Bình Dương đã hoàn tất 19 vòng đàm phán chính thức và đang bước vào giai đoạn quyết định với các lĩnh vực đàm phán là: Mở cửa thị trường hàng hóa, quy tắc xuất xứ, mua sắm chính phủ, doanh nghiệp nhà nước, thương mại điện tử…
Dự kiến, cuối năm nay, việc đàm phán sẽ hoàn tất. Các chuyên gia kinh tế cho rằng, khi Hiệp định được ký kết Việt Nam sẽ có thêm nhiều cơ hội để thâm nhập vào thị trường quốc tế, thúc đẩy xuất khẩu hàng hóa, đặc biệt là những sản phẩm có thế mạnh như dệt may, thủy sản, giày dép, sản phẩm gỗ...
Đồng thời, thúc đẩy đầu tư của Hoa Kỳ vào Việt Nam, tận dụng tốt hơn cơ hội do quá trình tái cấu trúc cũng như xu thế liên kết kinh tế khu vực, góp phần nâng cao vị thế của Việt Nam trên trường quốc tế.
Ông Trần Quốc Khánh, Thứ trưởng Bộ Công Thương, Trưởng đoàn đàm phán Chính phủ về kinh tế và thương mại quốc tế cho biết: Cơ hội lớn nhất là chúng ta sẽ có điều kiện cải thiện cơ cấu thị trường xuất nhập khẩu, cơ hội thứ 2 là mở thêm thị trường cho hàng hóa của Việt Nam nếu như thuế được xóa bỏ trở về 0%. Đây sẽ là cú hích rất lớn cho xuất khẩu của Việt Nam trên một số thị trường và một số mặt hàng sẽ được hưởng lợi từ cú hích này. Nếu hiệp định này thành công, chúng ta sẽ có cơ hội tham gia vào chuỗi sản xuất của khu vực và quốc tế. Quá trình này được tham gia vào TPP cũng sẽ tạo thuận lợi cho việc tái cơ cấu nền kinh tế với mô hình tăng trưởng của chúng ta.
Với ngành dệt may, một trong những ngành hàng xuất khẩu chủ lực của Việt Nam, vốn đã nhiều lần gặp khó khăn trước rào cản thuế quan và hạn ngạch của các nước, Hiệp định đối tác xuyên Thái Bình Dương sẽ là cơ hội quan trọng để mở rộng thị phần sang các thị trường lớn, nhiều tiềm năng, trong đó có Hoa Kỳ.
Theo tính toán, nếu đàm phán thành công, 95 chủng loại sản phẩm dệt may của Việt Nam đang xuất khẩu vào Hoa Kỳ sẽ được hưởng thuế suất 0%, trong khi thuế suất hiện nay là 17,5%. Xuất khẩu dệt may của Việt Nam sang thị trường này có thể tăng từ 13% đến 20%/năm trong giai đoạn 2013 – 2017 và có thể đạt từ 25 – 30 tỷ USD vào năm 2025. Cùng với đó, giá trị gia tăng và tỷ lệ nội địa hóa của ngành sẽ được nâng cao. Dự kiến ngành sẽ đạt mục tiêu nội địa hóa 60% vào năm 2015 và 70% vào năm 2020.
Ông Lê Tiến Trường, Phó Tổng Giám đốc Tập đoàn Dệt may Việt Nam cho biết: Hiệp hội dệt may Việt Nam rất quan tâm đến nội dung đàm phán dệt may trong quy tắc xuất xứ và trong bảng chào thuế, tất cả những điều này nhằm góp phần thực hiện một chiến lược xuyên suốt của ngành dệt may đó là đẩy mạnh tăng trưởng quy mô xuất khẩu, từ đó có một chuỗi cung ứng hoàn thiện và ngành dệt may có thể phát triển bền vững. Thứ hai, do đặc thù của dệt may thế giới là một ngành cung ứng theo chuỗi, nếu như có quy mô xuất khẩu lớn và có lợi ích thuế quan tốt, quy mô xuất xứ từ Việt Nam được hưởng lợi thế trên thị trường thế giới, việc thúc đẩy lựa chọn Việt Nam trở thành thành viên chính thức của các chuỗi cung ứng sẽ được tiến hành nhanh hơn.
Hiệp định đối tác xuyên Thái Bình Dương được kỳ vọng có tác động tích cực đến nền kinh tế Việt Nam, giúp tăng thêm 68 tỷ USD kim ngạch xuất khẩu và 36 tỷ USD cho tổng thu nhập quốc dân vào năm 2005. Tuy vậy, thách thức mà Việt Nam phải đối mặt khi tham gia “sân chơi” này là sức ép cạnh tranh rất lớn. Hơn nữa, nhiều doanh nghiệp còn bị động và chưa có ý thức tham gia cũng như tham vấn đàm phán nên không nắm rõ những điều khoản đàm phán dẫn đến khả năng thiệt thòi rất cao.
Chuyên gia kinh tế Võ Trí Thành cho rằng: Việc học, đọc các cam kết đối với TPP có hai điều, một là cam kết mở cửa, hai là hiệp hội, chính phủ mời luật gia nghiên cứu để nói vấn đề pháp lý và xử lý tranh chấp trong TPP rất cao. Bởi TPP bản chất là chính sách sau đường biên giới, cho nên đây chính là chính sách và cải cách của Việt Nam, không chỉ là TPP đòi hòi điều gì mà cách thức nghiên cứu, cách thức nhìn nhận, tầm nhìn, truyền tải thông tin phải phối hợp nhiều yếu tố, bao gồm pháp lý, cam kết, cam kết, cải cách chính sách trong nước đối với doanh nghiệp.
Các chuyên gia kinh tế cho rằng, Việt Nam vẫn là một nền kinh tế chuyển đổi, trình độ phát triển thấp, khoảng cách giữa đòi hỏi của Hiệp định đối tác xuyên Thái Bình Dương và năng lực thực tế của Việt Nam là không nhỏ. Vì vậy, Việt Nam cần nỗ lực hoàn thiện thể chế kinh tế, khuôn khổ pháp lý, chế tài thực thi, để có thể đáp những ứng cam kết trong Hiệp định./.
Đang tải dữ liệu..

Set-Cookie: .ASPXANONYMOUS=HoaTyEtfrqsYbDaHCnRzdypU10sEFp2kodENTXAxLKckBYpTQzJCCz_cuLsv7FyCbIAnivtqhrf1LuG3pnIlyMCaqgqoy-h_ET1DWPKRXdLhMJgb-jfGnhHXkL4No4KSkqmQRhkbkvBErveKpDXMbg2; domain=kienthuc.net.vn; expires=Wed, 07-Oct-2015 10:44:42 GMT; path=/; HttpOnly


markdown:
Chúng tôi không có bất kỳ chủ đề nào dành cho thiết bị này. Hãy kiểm tra những giải pháp hàng đầu cho các dịch vụ sau đây hoặc chọn phiên bản Windows mà bạn quan tâm.
Nâng cấp lên Windows 10: Câu hỏi Thường Gặp
Can I keep my settings when I upgrade to Windows 10?
Tại sao tôi không thể kích hoạt Windows 10?
Báo cáo về tính tương thích dành cho Windows 10: Câu hỏi thường gặp
Tài khoản Microsoft
Truy nhập trực tuyến
Tìm kiếm mọi thứ, mọi nơi
Hành động nhanh
Tìm tệp của bạn
OneDrive trên PC của bạn
Làm quen với ứng dụng Xbox
Bảo vệ PC của bạn
Tìm hiểu cách đặt trước bản nâng cấp miễn phí lên
Windows 10
Gỡ lỗi các sự cố khi cài đặt các bản cập nhật
Cập nhật lên Windows 8.1: Câu hỏi thường gặp
Tại sao tôi không thể tìm thấy cập nhật trong Store?
Tại sao tôi không thể kích hoạt Windows?
Làm cách nào để tôi ngăn chặn vi-rút khỏi PC của mình?
Các sự cố mạng có dây và không dây
Không có âm thanh trong Windows
Bắt đầu với Internet Explorer 11
Mẹo Outlook.com
Thiết lập email
Khi bạn không thể đăng nhập vào tài khoản Microsoft của mình
Windows RT 8.1: Các câu hỏi thường gặp
Mẹo để giải phóng dung lượng ổ trên PC của bạn
Tìm hiểu cách đặt trước bản nâng cấp miễn phí lên
Windows 10
Learn how to install Windows 7 Service Pack 1 (SP1)
Tài khoản tạm thời bị chặn
Windows 32-bit và 64-bit: các câu hỏi thường gặp
Tại sao tôi không thể chuyển lại về Hotmail?
Đặt Internet Explorer làm trình duyệt mặc định của bạn
How do I install or uninstall Internet Explorer 9?
Nâng cấp lên Windows 8.1 từ Windows Vista hoặc Windows XP
Learn how to install Windows Vista Service Pack 2 (SP2)
Xử lý sự cố máy in
Block or allow cookies
Check your hard disk for errors
Tài khoản & thanh toán
Mobile apps: FAQ
Trợ giúp ứng dụng Máy tính Từ xa
Trợ giúp ứng dụng Khoảnh khắc Phim
Tìm hiểu thêm về Windows Phone
Sẽ thế nào nếu phiên bản Windows không được hỗ trợ?
Khoá sản phẩm, kích hoạt, cài đặt, nâng cấp, thêm tính năng ...
Thư, danh bạ, lịch, mọi người, Skype, Outlook.com …
Tìm kiếm, trượt nhanh, chạm, nút, chuột & bàn phím, bàn làm việc ...
Truyền phương tiện, âm thanh, chỉnh sửa ảnh, máy ảnh, ghi CD ...
Màn hình Bắt đầu, nền, cài đặt ngôn ngữ, Tường thuật viên, Kính lúp ...
OneDrive, gói lưu trữ, chia sẻ tệp và thư mục, Thùng Rác …
Tài khoản, mật khẩu, vi-rút, An toàn Gia đình ... của Microsoft
Đặt lại hoặc làm mới máy tính, Lịch sử Tệp, Phục hồi Hệ thống, chế độ an toàn ...
Cài đặt ứng dụng, thanh toán, sử dụng ứng dụng trên nhiều máy tính, gỡ rối ứng dụng ...
In, Bluetooth, USB, màn hình, phát trực tuyến ..
Wi‑Fi, duyệt web, Internet Explorer, Nhóm Nhà, băng rộng, chia sẻ …
Cập nhật, Trung tâm hành động, Trình quản lý Tác vụ, kế hoạch nguồn điện ... của Windows
Hãy tham gia Cộng đồng Microsoft để hỏi và giải đáp câu hỏi về các sản phẩm của Microsoft.
Nếu PC của bạn đã bao gồm Windows khi mua, nhà sản xuất PC cũng có thể trợ giúp về Windows.
Nếu bạn có câu hỏi hoặc muốn tìm hiểu thêm, Answer Tech của chúng tôi sẵn sàng trợ giúp.

Cache-Control: private


markdown:
Ở các nước phương Tây có nền công nghiệp phát triển, hiện đại, con người đứng trước những áp lực nặng nề, mô hình cà phê sách ra đời và đã được đón nhận nồng nhiệt. Dù xuất hiện ở nước ta khá muộn, nhưng cà phê sách như những nét chấm phá riêng giữa các loại hình ẩm thực xô bồ. Và đến nay, ở hầu hết các thành phố lớn trên cả nước đều có loại hình này. Tại Hà Nội, mô hình uống cà phê kết hợp với đọc sách đang xuất hiện ngày càng nhiều và thu hút đông đảo các tầng lớp, đặc biệt là các bạn trẻ. Đây đó có thể coi là mô hình tôn vinh văn hóa đọc trong xã hội hiện đại.
Đặt chân vào không gian của cà phê sách, bạn sẽ thấy một thế giới khác biệt với những ồn ào, khói bụi, xô bồ của phố phường. Nơi không đơn thuần bạn được đọc sách mà còn được tận hưởng khoảng không gian hiếm hoi không lẫn vào đâu được.
Khách đến với cà phê sách thường là doanh nhân, trí thức… những người sành cà phê và thèm có những giây phút yên tĩnh trước bộn bề công việc. Hình như đến nơi này, viện cái cớ nhờ sách, nhờ tri thức để ai cũng biết tôn trọng khoảng không gian chung, tranh thủ những khoảnh khắc hiếm hoi trong ngày, ngồi thưởng thức tách cà phê ngon, nghe bản nhạc dịu êm mở nhỏ đến độ không thể nhỏ hơn được dưới ánh nến chập chờn.
Giới sinh viên vẫn là đông đảo nhất. Các bạn đến với cà phê sách với hy vọng không bị ai quấy rầy, có không gian riêng tư, yên tĩnh để nghiền ngẫm những kiến thức bổ ích qua các trang sách, báo. Nếu như cách đây vài năm, giới trẻ chạy theo sự sôi động của những quán cà phê thời thượng thì nay chính họ lại tìm đến cà phê sách. Bạn Nguyễn Thanh Tâm, sinh viên Đại học Ngoại thương chia sẻ: “Sau những giờ học căng thẳng, hay có thời gian rảnh rỗi, mình thường đến với cà phê sách, bởi nơi này không bị quấy rầy, lại có cà phê ngon, có nhiều sách hay, có không gian riêng biệt, thoáng đãng, thư giãn, ấm cúng, riêng tư, đáp ứng được nhu cầu của dân “ghiền” như mình”. Còn bạn Minh Đăng (Học viện cảnh sát) thì: “Bọn em gần như ngán vũ trường và những nơi sôi động khi nhận ra sự vô bổ, mất thời gian, tiền bạc, sức khỏe nên tìm đến đây thấy rất lý thú và có một không gian lạ”.
Thông thường, chỉ khi đến trường hoặc thư viện bạn mới có thể đọc được sách trong khi nhu cầu đọc sách của mọi người có ở khắp nơi. Khi đọc sách ở những nơi như thư viện, nhà sách bạn thực sự bị gò bó do bàn ghế chật chội, người đọc lại quá đông, điều này ít nhiều sẽ ảnh hưởng đến việc tiếp thu kiến thức đồng thời làm mất dần mong muốn được đọc sách của bạn đọc. Bạn Thanh Huyền (Đại học Kỹ thuật công nghiệp) nói: “Nhiều lúc tìm ra cho mình một nơi để đọc sách không phải là dễ. Đến thư viện làm thẻ, mượn sách, tìm ra một cuốn sách đã mất khối thời gian, mà thời gian rảnh của mình không nhiều. Và cà phê sách là giải pháp tối ưu, không chỉ của Huyền mà còn là lựa chọn của nhiều bạn khác”.
Hầu hết các quán cà phê sách có không gian rộng, yên tĩnh, chỗ ngồi được sắp đặt riêng tư, tiện lợi. Không gian ấm cúng bởi cách cách bài trí sáng tạo, bởi những bản nhạc hay, du dương, bởi đồ uống ngon và thế giới sách phong phú. Nhưng cũng có quán rất “độc”, dù không gian nhỏ nhưng nhờ óc sáng tạo và ý tưởng độc đáo của chủ quán mà nơi này trở thành ngôi nhà thứ hai của nhiều bạn sinh viên. Đến với cà phê sách, dù bất kỳ nơi đâu bạn cũng tìm được không gian cho riêng mình như: Quán Cà phê sách của ông Thành 440 Đường Âu Cơ, cà phê sách Văn Việt 27A Trần Bình Trọng, cà phê Đông Tây trên phố Trần Phú Kiên, Trung Nguyên 52 Hai Bà Trưng, 36 Điện Biên Phủ, cà phê 32 Lê Ngọc Hân…
Bạn Quang Minh tại cà phê sách Intello Book trên phố Văn Miếu bày tỏ: “Khi du học ở Mỹ, tôi rất thích mô hình cà phê sách mà bất cứ trên đường phố nào của Mỹ cũng có. Tại đó, mọi người có thể học, ăn, nghỉ ngơi thoải mái như đang ở trong chính ngôi nhà của mình. Tại đây cũng vậy, Intello Book có ba tầng, tầng dưới cùng là nơi trưng bày và giới thiệu sách. Sách ở quán được bố trí tại các kệ trên tường giúp bạn dễ dàng lựa chọn. Tầng hai là nơi đọc sách, cách bài trí tạo cảm giác thoáng đãng với những chiếc sa-lông được kê gọn gàng. Có khoảng 600 đầu sách thuộc nhiều lĩnh vực khác nhau như kinh tế, chính trị, văn hoá, xã hội được trưng ở đây… Không giới hạn về mặt thời gian, bạn có thể ngồi ở đây từ sáng đến tối, vừa ăn uống, vừa học tập. Các bữa ăn trong ngày được phục vụ tại bàn với nhiều món ăn và không thể thiếu cà phê cùng các loại nước uống hảo hạng khác. Tầng ba là nơi cho bạn những phút nghỉ ngơi thư giãn…”.
Không chỉ hút khách bằng việc thoả mãn nhu cầu đọc của mọi người, nhiều quán cà phê còn tung ra các “chiêu” khá dễ thương như: khách đến uống cà phê sẽ thu thập điểm, cứ 10.000đ được 1 điểm, khi đủ 10 điểm, có thể chọn những phần quà như sách, đĩa CD, vé xem phim… Hay một “chiêu độc” khác: nếu khách trả lời được một trong hàng trăm câu hỏi ở các lĩnh vực thể thao, ca nhạc, điện ảnh, khoa học, văn học… sẽ được giảm giá 10 – 20% hoặc một phần quà trị giá tương đương. Những câu hỏi lý thú mà chủ quán và khách đọc cất công sưu tầm, vừa góp phần làm phong phú kiến thức cho các bạn trẻ, vừa tạo ra một sân chơi thú vị cho các bạn.
Cà phê sách cao hơn mục đích kinh doanh, những quán cà phê này cho người yêu sách một không gian đọc, kích thích việc tiếp thu kiến thức, cho họ cơ hội để trao đổi những hiểu biết của mình về các lĩnh vực của đời sống.

Content-Type: text/html


markdown:
All Android applications categories
All Android games categories
by:
[UNGDUNGVIET](/android_developer/ungdungviet_cqajb.html)
|
20
Có cần lấy chồng không?
Tác giả: Ức Cẩm
Giới thiệu:
Trong vòng một ngày, cô từ một phóng viên thành phố có công việc, có bạn trai, có thẻ tín dụng trở thành một kẻ thất nghiệp ba không: không bạn trai, không công việc, không tiền bạc. Tất cả chỉ vì một cái tên mà đọc lên có thể khiến người đối diện đỏ mặt, tía tai theo lời bạn trai cô và có thể khiến chiều hướng tích cực của tòa soạn nơi cô làm việc tiệm cận đến không, đồng thời bất lợi cho sự hài hòa của xã hội theo lời của vị sếp mới lên chức. Có lẽ nếu Trung Quốc không có kiểu phiên âm mọi tiếng nước ngoài ra tiếng Hán như thế thì cái tên Đỗ Lôi Ty của cô sẽ hoàn toàn được yên ổn, không đến mức phải tự động thay hình đổi dạng thế này khi gặp người ta.
Người ta nói “Tái ông mất ngựa, chưa chắc đã là điều dở”. Câu này đem áp dụng với Đỗ Lôi Ty trăm phần trăm là không sai vào đâu được. Xã hội không hài hòa với tên của cô thì đã làm sao, chẳng phải chính cái tên ai nghe cũng phải bật cười này đã đưa cô đến với anh đấy ư? Còn nếu tặng cho Liêm Tuấn câu này thì anh cũng sẽ chẳng chối từ, dù trong trường hợp của anh thì nên đổi thành Giả vờ làm tái ông mất ngựa, cũng chưa chắc đã là điều dở mới chính xác. Tại sao ấy à? Tất nhiên là vì chiếc nhẫn cương “tạm thời không thấy” thì đã sao, không thấy mà có được người con gái cùng nắm tay cả đời thì cũng đáng giá.
Cô gặp anh trong tình huống mà có lẽ tưởng chỉ xảy ra trong những chương trình truyền hình thực tế đang muốn tạo những cú sốc giật gân thu hút khán giả, trò đùa của số phận đưa cả hai cứ thế bước vào cuộc sống hôn nhân. Thật mà như đùa, giả mà thành thật. Hạt giống tình yêu cứ bắt đầu đâm chồi nảy lộc nhẹ nhàng như thế, hài hước mà cũng không hề thiếu sự lãng mạn, ngọt ngào.
Tiểu thuyết tình yêu “Có cần lấy chồng không?” của Ức Cẩm hứa hẹn sẽ mang đến những chuỗi cười không dứt với diễn biến tình yêu của cặp đôi lắm tài nhiều tật Liêm Tuấn-Đỗ Lôi Ny. Các bạn hãy đọc rồi tự mình tìm lấy câu trả lời thỏa đáng nhất xem có cần lấy chồng không nhé?
Từ khóa: co can lay chong khong, uc cam, truyen hay, ungdungviet
Tags: đọc truyện có cần lấy chồng không ức cẩm full , s có cần lấy chồng không tác giả ức cẩm , có cần lấy chồng không full , truyện có cần lấy chồng không ức cẩm , dowload có cần lấy chồng không ? full ức cẩm
from 20 reviews
Sorry ...
This app is no longer available.

Server: nginx

Content-Type: text/html; charset=UTF-8

Cache-Control: private, must-revalidate

pragma: no-cache

Set-Cookie: az_backend=azong-4; path=/


markdown:
-
[Sẽ Chỉ Là Mơ](/song/se-chi-la-mo,vxCd9.html?src=SONG_HOT) *HQ*137 lượt nghe05:191747644
-
[Hai Chúng Ta](/song/hai-chung-ta,vI6IK.html?src=SONG_HOT) *HQ*731 lượt nghe05:011141930
-
3322 lượt nghe04:411184378
-
191 lượt nghe05:201745478
-
89 lượt nghe33:411747454
-
598 lượt nghe03:421742286
-
1083 lượt nghe04:571736878
-
65 lượt nghe05:151744196
-
40 lượt nghe08:181744314
-
[Hai Lối Mộng](/song/hai-loi-mong,vx7jC.html?src=SONG_HOT) *HQ*7979 lượt nghe04:151717730
-
2488 lượt nghe03:441735910
-
30 lượt nghe05:351745336
-
470 lượt nghe03:471734592
-
244 lượt nghe48:391741918
-
1059 lượt nghe04:381732784
-
[Memories](/song/memories,vxfAW.html?src=SONG_HOT) *HQ*407 lượt nghe04:401735246
-
[Buông](/song/buong,vxNCS.html?src=SONG_HOT) *HQ*1632 lượt nghe03:511731078
-
[Cô Dâu](/song/co-dau,vxNPB.html?src=SONG_HOT) *HQ*1623 lượt nghe03:211731500
-
[Màu Của Mưa](/song/mau-cua-mua,vxKFu.html?src=SONG_HOT) *HQ*6876 lượt nghe04:301724180
-
946 lượt nghe03:271730632

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Vary: Accept-Encoding,User-Agent


markdown:
Đây sẽ là nơi Vy mang đến cho mọi người những chiếc bánh có "thương hiệu" là Vy's Cupcake
Những nguyên vật liệu đảm bảo chất lượng, hợp vệ sinh, giá thành tương đối rẻ và cách trang trí đơn giản, Vy mong mọi người sẽ thích và ủng hộ những chiếc bánh này cũng như ủng hộ Vy's Cupcake.
Vy's cupcake giá bán chỉ có 6k/cái gồm 2 loại bánh: bơ sữa và socola. Vy's cupcake sẽ chỉ nhận những đơn đặt hàng từ 10 cái trở lên. Bên cạnh đó, khi các bạn mua hộp 12 cái, giá sẽ là 70k/hộp.
Đặc biệt Vy's Cupcake rất thích hợp các tiệc Sinh nhật, Liên hoan, Họp mặt bạn bè v.v...
Các bạn có thể liên hệ đặt mua trực tiếp qua sđt: 01639697409 (Ms. Vy) – 01685217081 (Ms. Hòa).
Vy’s Cupcake sẽ free ship cho những đơn đặt hàng ở quận Tân Bình và quận 11. Còn lại sẽ tính ship từ 10k – 25k.
Mọi người muốn xem thử bánh có thể vào album Vy’s Cupcake http://www.facebook.com/VysCupcake
Vy làm bánh tại nhà và làm theo đơn đặt hàng của mọi người nên mọi người đừng lo bánh cũ.
Mọi người cũng có thể đưa ra những ý kiến đóng góp trên page này để những chiếc bánh của Vy’s Cupcake ngon hơn, hoàn thiện hơn ♥
Thân ♥
## Bookmarks

Server: Apache/2.2.27 (CentOS)

Set-Cookie: vbseo_loggedin=deleted; expires=Wed, 30-Jul-2014 00:00:22 GMT; path=/

Pragma: private