text:
ĐỀ CƯƠNG MÔN PASCAL
Câu 1: Viết chương trình nhập vào một số nguyên dương từ bàn phím (khi nhập có kiểm tra tính hợp lệ, nếu chưa thỏa mãn yêu cầu nhập lại) a, Hãy cho biết số đó có là số nguyên tố không. b, Lập chương trình tính tổng: S=1/1!+1/2!+....+1/n! TL: uses crt; var i,n :integer; s,p:real; begin { Nhap du lieu } clrscr; { lenh xoa man hinh } write('Nhap so n = '); readln(n); if n<=0 then writeln('Yeu cau nhap lai') else { Kiem tra so nguyen to} If (n=1)or(n=2)then writeln(' So vua nhap la so nguyen to ') else begin i:=2; while (i<=n) and (n mod i<> 0 )do i:=i+1; if i=n then writeln('So vua nhap la so nguyen to') else writeln('So vua nhap khong la so nguyen to'); end; { Tinh tong day } s:=0; p:=1; for i:=1 to n do begin p:=p*(1/i); s:=s+p; end; writeln('Tong s=',s:5:2); readln; end. Câu 2: Bạn có 100000đ đem gửi ngân hàng với lãi xuất 11%/tháng. Sau mỗi tháng tiền lại được nhập vào để tính lãi xuất tháng sau. Bạn muốn số tiền tăng lên thành x (x nhập từ bàn phím). Vậy phải gửi trong bao lâu. Hãy đưa kết quả lên màn hình theo số năm, số tháng cần gửi (Ví dụ: Bạn phải gửi 5 năm 7 tháng, nếu chưa đủ năm chỉ in đưa lên số tháng đã gửi). TL: uses crt ; varthang : Byte ; tien , lai , x : Real ; BEGIN clrscr ; writeln (' Chuong trinh tinh thoi gian rut tien lai ') ; write (' So tien lai muon rut ra : ') ; readln(x) ; tien := 1000 ; thang :=1 ; repeat lai := tien * 11 / 100 ; tien := tien + lai ; thang := thang + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ',thang mod 12,'thang .') ; writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong .') ; readln ; END . Câu 3: Viết chương trình bằng ngôn ngữ pascal để: - Nhập từ bàn phím 3 số thực dương tùy ý. - Kiểm tra xem chúng có là số đo 3 cạnh tam giác không, nếu không đúng yêu cầu nhập lại. - Tính diện tích, đường cao ứng với cạnh a của tam giác đó. - In kết quả ra màn hình. TL: program_tamgiac; var a,b,c:integer; s,p,h:real; BEGIN write(' nhap canh a='); readln(a); write(' nhap canh b='); readln(b); write(' nhap canh c='); readln(c); writeln; { Kiem tra lap thanh ba canh cua tam giac} if(a<=0) or(b<=0)or(c<0) then writeln('yeu cau nhap lai') else Begin if(a+b>c)and(b+c>a)and(c+a>b) then begin writeln('Ban da nhap vao la mot tam giac'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); h:=(2*s)/a; writeln; writeln('dien tich tam giac s=',s:5:2); writeln; writeln('duong cao tinh theo canh a la h=',h:5:2); end else writeln(' Ban da nhap vao khong la mot tam giac'); end; Readln; END. Câu 4: Viết chương trình nhập vào một số nguyên dương >=10 a, Hãy cho biết số đó có là số chính phương không. b, Thông báo lên màn hình số đó có bao nhiêu chữ số, tổng của các chữ số đó. TL: uses crt; var n,s,i,dem:integer; begin {Nhap du lieu} write('Nhap gia tri n='); readln(n); writeln; if n<=10 then writeln('Yeu cau nhap lai') else {Kiem tra so chinh phuong } begin i:=1; while(i<=n) and (sqrt(n) <> i) do i:= i+1; if i=n then writeln(n,'Khong la so chinh phuong ') else writeln(n,'laso chinh phuong'); end; writeln; {Dem tong so cac chu so co trong so nhap va dem so co trong so vua nhap} begin s:=0; dem:=0; while(n<>0 )do begin s:=s +n mod 10; n:=n div 10; dem:=dem+1; end; writeln('Tong cac so=',s); writeln; writeln('Tong cac chu so co trong so=', dem); end; readln; end. Câu 5: Nhập một mảng A các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau: a, Sắp xếp mảng đó theo thứ tự giảm dần. b, Chèn số nguyên x vào mảng sao cho mảng đó không mất đi tính sắp thứ tự. TL: uses crt; var n,x,i,j,tg,k:integer; A:array[1..5]of integer; begin {Nhap gia tri cho mang} clrscr; writeln(' Nhap gia tri cac phan tu mang'); Begin for i:=1 to 5 do begin write('A[',i,']='); readln(A[i]); end; writeln; {In mang vua nhap } writeln('Mang vua nhap'); for i:=1 to 5 do writeln(A[i]); writeln; end; {Sap xep mang giam dan} writeln('Mang sap xep giam dan'); begin for i:=1 to 4 do for j:=i+1 to 5 do if A[i]<=A[i,j] then max:= A[i,j]; s:=s+max; writeln('Max tren dong',i,'la',max); end; writeln; writeln('Tong phan tu lon nhat cua moi dong:',s); readln; end. Câu 7: Viết chương trình nhập vào mảng số nguyên A (không thể có 2 phần tử trùng nhau trong mảng). Trong quả trình nhập phải kiểm tra: Nếu phần tử vừa nhập vào đã có trong mảng thi không bổ sung vào mảng. In ra màn hình các phần tử của A đã được sắp xếp tăng dần. TL: Uses Crt; Type Mang=ARRAY[1..50] Of Integer; Var A,B:Mang; n,m:Byte; Function KiemTra(x:Integer; n:Byte; A:Mang):Boolean; Var i:Byte; Found: Boolean; Begin Found:=False; i:=1; While (i<=n) AND (not Found) Do If x=A[i] Then Found:=True Else i:=i+1; KiemTra:=Found; End; Procedure NhapMang(Var n:Byte; Var A:Mang); Var ch:Char; x:Integer; Begin n:=0; Repeat Write('x='); Readln(x); If not KiemTra(x,n,A) Then Begin n:=n+1; A[n]:=x; End; Writeln('An ESC de ket thuc nhap!'); ch:=Readkey; Until ch=#27; End; Procedure GiaoAB(n:Byte; A:Mang;m:Byte; B:Mang); Var i:Byte; Begin For i:=1 To n Do If KiemTra(A[i],m,B) Then Write(A[i]:4) End; Begin Clrscr; Writeln('Nhap mang A: '); NhapMang(n,A); Writeln('Nhap mang B: '); NhapMang(m,B); Writeln('Giao cua 2 mang A&B la: '); GiaoAB(n,A,m,B); Readln; End. Câu 8: Số Hoàn Hảo: là số có tổng các ước của nó (trừ nó) bằng chính nó, ví dụ: 6=1+2+3. Viết chương trình kiểm tra xem 1 số nguyên dương nhập từ bàn phím có là số hoàn hảo không. Có bao nhiêu số hoàn hảo từ 1 đến 2000, in ra các số đó. TL: uses crt; var n,i,j,s,k,dem:integer; Begin { Nhap dulieu} clrscr; write('Nhap so n='); readln(n); writeln; if n<1 then writeln('Yeu cau nhap lai') else begin {Kiem tra so hoan hao} s:=0; for i:=1 to n-1 do begin if n mod i=0 then s:=s+1; end; if s=n then writeln('n,La so hoan hao ') else writeln(n,'Khong la so hoan hao '); end; { Dem so hoan hao va in ra man hinh nhung so do} writeln; writeln('Cac so hoan hao tu 1 den 2000 la:'); begin dem:=0; for i:= 1 to 2000 do begin s:=0; for j:= 1 to i-1 do if ( i mod j = 0) then s:= s+ j; if(s=i) then begin writeln(i); end; end; writeln('Tong so hoan hao la :', dem); end; readln; end. Câu 9: Cho một mảng số nguyên gồm n phần tử, tìm dãy con có m phần tử (ma[i,j] then min:=a[i,j]; end; write('la so nho nha:',min); readln; end. Câu 12: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có M dòng, N cột (M>5, N>6) các phần tử là các số nguyên lớn hơn 2 và nhỏ hơn 100 được nhập từ bàn phím. b, Đếm số các phần tử chẵn của mảng. c, In ra màn hình giá trị dương lớn nhất của mảng. TL: uses crt; var i,j,s,max,dem,m,n:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap gia tri cua mang} writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if (m<5) or (n<6) then begin writeln('yeu cau nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:= 1 to m do for j:= 1 to n do begin write('A[',i,',',j,']='); readln( A[i,j]); if( A[i,j] <2 ) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh} clrscr; writeln('Mang vua nhap:'); for i:= 1 to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; {Dem cac so chan } writeln; dem:=0; for i:= 1 to m do for j:= 1 to n do if A[i,j]mod 2= 0 then dem:= dem +1; writeln('Tong cac so chia het cho 2 =',dem); writeln; {Hien thi cac phan tu lon nhat cua mang} max:=A[i,j]; for i:= 1 to m do for j:= 1 to n do if (A[i,j]>0) and (max<=A[i,j]) then max:=A[i,j]; writeln('So nguyen duong lon nhat cua mang la:', max); readln; end. Câu 13: Viết chương trình tạo mảng 5 dòng, 5 cột với các phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phím: a, Cho biết mảng có bao nhiêu số lẻ không chia hết cho 5 b, Tính tổng các phần tử nằm hình vuông ngoài cùng của mảng. TL: uses crt; var i,j,s,s1,s2,s3,s4,max,dem:integer; A:array[1..5,1..5] of integer; begin clrscr; {Nhap gia tri cho mang} writeln('Nhap cac phantu mang:'); for i:=1 to 5 do for j:=1 to 5 do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j]<5) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh } clrscr; writeln('Mang vua nhap:'); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j],','); writeln; end; {Dem cac so le khong chia het cho 5} writeln; dem:=0; for i:= 1 to 5 do for j := 1 to 5 do if (A[i,j] mod 2 <> 0 ) and (A[i,j] mod 5 <> 0) then dem := dem+1; writeln('Tong cac so le khong chia het cho 5 = ',dem); writeln; {Tinh tong cac so tren hinh vuong ngoai cung cua mang} s1:=0; for i:= 1 to 1 do for j := 1 to 5 do s1:= s1+A[i,j]; s2:=0 ; for i := 5 to 5 do for j:=1 to 5do s1 :=s1+ A[i,j]; s3:=0 ; for i := 1 to 5 do for j:=1 to 1 do s1 :=s1+ A[i,j]; s4:=0 ; for i := 1 to 5 do for j:=5 to 5 do s1 :=s1+ A[i,j]; s:=s1+s2+s3+s4; writeln('Tong cac so tren hinh vuong ngoai cung =',s); readln; end. Câu 14: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có N (N>10) phần tử là số tự nhiên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phí. b, Tìm và đưa ra phần tử chẵn lớn nhất của mảng, vị trí của chúng. c, So số phần tử chắn với số phần tử lẻ. TL: uses crt; var maxc,n,chan,le,i:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap cac kich thuoc mang:'); write('n='); readln(n); if n<10 then begin writeln('Yeu cau nhaplai'); readln; exit; end; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:= 1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]<5 ) or ( A[i]>100 ) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; {Tim phan tu chan lon nhat} writeln; maxc:= A[1]; for i:= 1 to n do if A[i]> maxc then writeln('Phan tu chan lon nhat la ',maxc,' va o vi tri',i); { So sanh chan -le} writeln; chan := 0 ; for i:=1 to n do if A[ i] mod 2 = 0 then chan:=chan+1; le:= n- chan; if le< chan then writeln('So chan nhieu hon so le'); if le> chan then writeln('So le nhieu hon so chan'); if le = chan then writeln('So chan bang so le'); readln; end. Câu 15: Viết chương trình cho máy tính làm những công việc sau: a, Nhập vào mảng A có n phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 (n>12). b, Có bao nhiêu phần tử của mảng A là số nguyên tố ? TL: uses crt; var i,j,n,dem,d:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap kich thuoc mang'); writeln('n='); readln(n); if n<12 then begin writeln('Yeu cau nhap lai'); readln; exit; end; writeln; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:=1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]< 5)or (A[i]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; { Dem so nguyen } dem := 0; for i:= 1 to n do begin d:=0 ; for j:= 2 to A[i]-1 do if A[i] mod j=0 then d:=d+1; if d=0 then dem:=dem+1; end; if dem=0 then writeln('Khong co so nguyen to') else writeln('Tong so cac so nguyen to=',dem); readln; end. Câu 16: Viết chương trình cho máy làm những công việc sau: a, Nhận vào mảng A có M dòng, N cột (M>3, N>4) các phần tử là những số thực lớn hơn 1 và nhỏ hơn 100 được nhập từ bàn phím. b, Tìm và đưa ra phần tử nhỏ nhất của mảng, chúng ở dòng nào, cột nào ? TL: uses crt; var i,j,m,n,min:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap cac gia tri cho mang} writeln; writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if(m<3) or (n<4) then begin writeln('Yeu cap nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:=1to m do for j:= 1to n do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j] <1 ) or (A[i,j]>100)then begin writeln('Yeu cau nhaplai'); readln; exit; end; end; writeln; {Inra man hinh} clrscr; writeln('Mang vua nhap:'); writeln; for i:= 1to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; { TIm phan tu nho nhat cua mang} min:=A[1,1]; for i:= 1 to m do for j:= 1 to n do if A[i,j]<=min then min:=A[i,j]; writeln('So nho nhat cua mang la:',min); writeln; for i:= 1 to m do for j:= 1 to n do if A[i,j]= min then writeln('O dong ', i, ' cot ', j); writeln; readln; end. Câu 17: Viết chương nhận vào cho mảng A có m dòng, n cột (m>3, n>4) các phần tử là những số nguyên lớn hơn 3 và nhỏ hơn 150. TÌm tất cả các phần tử là số nguyên tố của mảng A và đưa chúng vào mảng 1 chiều B, in ra các phần tử của mảng B. TL: program tinh; uses crt; type mang=array[1..50]of integer; var a,b:mang; var n,m:byte; function kt(x:integer;n:byte;a:mang):boolean; var i:byte; t:boolean; begin t:=false; i:=1; while (i<=n)and (not t) do if x=a[i] then t:=true else i:=i+1; kt:=t; end; procedure nm(var n:byte;var a:mang); var ch:char; x:integer; begin n:=0; repeat write('x=');readln(x); if not kt(x,n,a) then begin n:=n+1; a[n]:=x; end; writeln('an esc de ket thuc'); ch:=readkey; until ch=#27; end; procedure giaoab(n:byte;a:mang;m:byte;b:mang); var i:byte; begin for i:=1 to n do if kt(a[i],m,b)then write(a[i]:4); end; begin clrscr; writeln('nhap mang a'); nm(n,a); writeln('nhap mang b'); nm(m,b); writeln('giao cua 2 mang A vaf b la'); giaoab(n,a,m,b); readln; end. Câu 18: Nhập vào một số n (5<=n<=10) và n phần tử của dãy A là các số tự nhiên lớn hơn 5 và nhỏ hơn 100. - In ra các phần tử là số chính phương. - Tính ước chung lớn nhất của tất cả các phần tử của dãy. TL: uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; function chinhphuong(n : integer): boolean; {hàm ki?m tra nguyên t?, xem gi?i thích ? ph?n trên} var i : integer; begin i:=1; while (i<>i) do i:=i+1; if i=n then writeln(n,'khong la so chinh phuong') else writeln(n,'la so chinh phuog') end; writeln; end; procedure inchinhphuong; var i :integer; begin writeln('CAC PHAN TU CHINH PHUONG TRONG DAY:'); for i := 1 to n do {duy?t qua m?i ph?n t? t? 1 d?n n} if chinhphuong(a[i]) then writeln(a[i]); {n?u ai là nguyên t? thì in ra} end; function UCLN(a,b: integer): integer; var r : integer; begin while b<>0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure TinhUC; var i,u : integer begin u := a[1]; {u là UCLN c?a các ph?n t? t? 1 d?n i} for i := 2 to n do u := UCLN(u,a[i]); writeln('UCLN cua ca day la:',u); end; function hammu(a : real; n : integer): real; {hàm mu tính an} var s : real; i : integer; begin s := 1; for i := 1 to n do s := s * a; hammu := s; end; BEGIN nhap; inngto; tinhuc; END. Câu 19: Nhập vào một số n (5<=n<=10) và n phần tử của dãy a là các số tự nhiên lớn hơn 1 và nhỏ hơn 100. - Tính biểu thức sau: S = a2¬¬¬1+a22+...+a2n - Sắp xếp dãy tăng dần và in ra dãy sau sắp xếp. TL: {//Khai báo d? li?u:} uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} {//Th? t?c nh?p d? li?u, có ki?m tra khi nh?p.} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; {//Th? t?c tính t?ng các ph?n t? có l?y mu:} procedure tong; var s : real; i : integer; {s ph?i khai báo là s? th?c d? tránh tràn s?} begin s := 0; for i := 1 to n do s := s + hammu(a[i],i); {s := s + (ai)i} writeln('Tong can tinh:',s:10:0); end; {//Th? t?c s?p x?p tang d?n các ph?n t? c?a m?t m?ng:} procedure sxep; var i,j,tg : integer; begin for i := 1 to n-1 do for j := i + 1 to n do if a[i] > a[j] then begin tg := a[i]; a[i] := a[j]; a[j] := tg; end; writeln('DAY SAU KHI SAP XEP TANG DAN:'); for i := 1 to n do writeln(a[i]); end; {//Chuong trình chính: l?n lu?t g?i t?ng th? t?c} BEGIN nhap; tong; sxep; END. Câu 20: Viết chương trình nhập một sau kí tự, sau đó chỉ ra xem xâu đó có những loại kí tự nào, xâu đó có phải là xâu đối xứng không (xâu đối xứng có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu, ví dụ: ‘ABBA’ hoặc ‘ABCBA’) TL: Uses Crt; Var St : string; dx : Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:= True; i:=1; len:= Length(St); While dx and (i<=(len div 2)) do Begin dx:=(St[i] = St[len - i+1]); inc(i); End; If dx then Write(' St la xau doi xung ') Else Write(' St khong phai la xau doi xung ') ; Readln; END . Câu 21: Nhập vào một xâu s khác rỗng và thực hiện chuẩn hóa xâu, tức là: a, Xóa các dấu cách thừa. b, Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường. (ví dụ nhập: “ nguyen van hanh” kết quả: “Nguyen Van Hanh”) TL: Uses Crt; Var St:String; Procedure XoaTrangThua(Var St:String); Begin {Xóa các ký t? tr?ng ? d?u xâu} While St[1]=#32 Do Delete(St,1,1); {Xóa các ký t? tr?ng ? cu?i xâu} While St[Length(St)]=#32 Do Delete(St,Length(St),1); {Xóa các ký t? tr?ng ? gi?a xâu} While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1); End; Begin Write(‘Nhap xau St: ‘); Readln(St); XoaTrangThua(St); Write(‘Xau sau khi xoa cac ky tu trang thua: ‘, St); Readln; procedure ChuyenKiTu(Var St:String); Begin i:=1->length(s) If s[i-1]=' ' then s[i]=UpCase(s[i]) Else s[i]=LowCase(s[i]). For i:=2 to length(S) do If (S[i-1]=" ") and (S[i]<>" ") then If (S[i-1]<>" ") and (S[i]<>" ") then End; End. Câu 22: Viết chương trình tạo một danh sách gồm 10 người với tên người được nhập vào từ bàn phím. Sau đó nhập một tên người tùy ý, tìm xem người đó có trong danh sách không và in ra thông báo cần thiết. TL: program tinh; uses crt; type ng=record ten:string; end; var a:array [1..10] of ng; i:integer; tenn:string; begin clrscr; for i:=1 to 10 do begin write('a[',i,']=');readln(a[i].ten); end; write('nhap mot ten nguoi bat ki:'); readln(tenn); for i:=1 to 10 do if tenn=a[i].ten then begin write('da tim thay:'); write('ten:',a[i].ten); break; end else if (i=10) then write('khong tim thay'); readln; end. Câu 23: Sử dụng dữ liệu kiểu mảng của các bản ghi. Viết chương trình cho phep nhập vào các thẻ theo dõi sách trong thư viện quản lý các mục: mã số, tên sách, tên tác giả. In ra nội dung một thẻ nếu mã số được nhập từ bàn phím. TL: program tinh; uses crt; type the=record ms:integer; ts:string; ttg:string; end; var a:array[1..100] of the; i,n,m:integer; begin clrscr; write('nhap n=');readln(n); for i:=1 to n do begin write('ma so:');readln(a[i].ms); write('ten sach:');readln(a[i].ts); write('ten tac gia:');readln(a[i].ttg); end; write('nhap vao ma so the'); readln(m); for i:=1 to n do if m=a[i].ms then begin writeln('ma so la:',a[i].ms); writeln('ten sach la:',a[i].ts); writeln('ten tac gia la :',a[i].ttg); break; end else if i=n then write('khong co'); readln; end. Câu 24: Viết chương trình quản lý học sinh chuyên tin. Mỗi học sinh được đặc trưng bởi: số báo danh, họ tên, ngày sinh, điểm toán, điểm văn, điểm tin, điểm trung bình các môn (điểm tin có hệ số 2). In ra những học sinh có điểm trung bình lớn hơn bằng 7. TL: program danhsach; uses crt; type nhansu=record; sbd: integer; ht:string; ns:string; dt,dv,dti:real; dtb:real; end; var a:array [1..100]of nhansu; i,n:integer; begin clrscr; write('nhap so hoc sinh can quan ly n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('ngay sinh:');readln(a[i].ns); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem tin:');readln(a[i].dti); a[i].dtb:=(a[i].dt+a[i].dv+a[i].dti*2)/4; writeln('diem trung binh la',a[i].dtb:10:2); end; writeln('danh sach sinh vien co diem trung binh >=7'); for i:=1 to n do if a[i].dtb>=7 then begin writeln('ho ten sinh vien:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('ngay sinh:',a[i].ns); writeln('diem toan:',a[i].dt:10:2); writeln('diem van:',a[i].dv:10:2); writeln('diem tin:',a[i].dti:10:2); writeln('diem trung binh:',a[i].dtb:10:2); break; end else if (i=n) then write('khong co'); readln; end. Câu 25: Nhập một danh sách gồm n thí sinh được quản lý bới số báo danh, họ và tên, điểm toán, điểm văn, điểm ngoại ngữ, điểm tổng cộng. In ra màn hình những thí sinh trúng tuyển (những thí sinh có tổng điểm 3 môn lớn hơn hoặc bằng n là số dương nhập từ bàn phím) TL: program danhsach; uses crt; type nhansu=record ht:string[30]; sbd:integer; dt:integer; dv:integer; dnn:integer; td:real; end; var a:array [1..100] of nhansu; i,n,m:integer; begin clrscr; write('nhap danh sach cac thi sinh n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem ngoai ngu:');readln(a[i].dnn); a[i].td:=(a[i].dt+a[i].dv+a[i].dnn); writeln('tong diem la :',a[i].td:10:2); end; write('nhap m=');readln(m); for i:=1 to n do if (a[i].td>=m) then begin writeln('danh sach thi sinh trung tuyen la: '); writeln('ho ten:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('diem toan:',a[i].dt); writeln('diem van:',a[i].dv); writeln('diem ngoai ngu:',a[i].dnn); end; readln; end.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.

markdown:
**ĐỀ CƯƠNG MÔN PASCAL**
Câu 1: Viết chương trình nhập vào một số nguyên dương từ bàn phím (khi nhập có kiểm tra tính hợp lệ, nếu chưa thỏa mãn yêu cầu nhập lại) a, Hãy cho biết số đó có là số nguyên tố không. b, Lập chương trình tính tổng: S=1/1!+1/2!+....+1/n! TL: uses crt; var i,n :integer; s,p:real; begin { Nhap du lieu } clrscr; { lenh xoa man hinh } write('Nhap so n = '); readln(n); if n<=0 then writeln('Yeu cau nhap lai') else { Kiem tra so nguyen to} If (n=1)or(n=2)then writeln(' So vua nhap la so nguyen to ') else begin i:=2; while (i<=n) and (n mod i<> 0 )do i:=i+1; if i=n then writeln('So vua nhap la so nguyen to') else writeln('So vua nhap khong la so nguyen to'); end; { Tinh tong day } s:=0; p:=1; for i:=1 to n do begin p:=p*(1/i); s:=s+p; end; writeln('Tong s=',s:5:2); readln; end. Câu 2: Bạn có 100000đ đem gửi ngân hàng với lãi xuất 11%/tháng. Sau mỗi tháng tiền lại được nhập vào để tính lãi xuất tháng sau. Bạn muốn số tiền tăng lên thành x (x nhập từ bàn phím). Vậy phải gửi trong bao lâu. Hãy đưa kết quả lên màn hình theo số năm, số tháng cần gửi (Ví dụ: Bạn phải gửi 5 năm 7 tháng, nếu chưa đủ năm chỉ in đưa lên số tháng đã gửi). TL: uses crt ; varthang : Byte ; tien , lai , x : Real ; BEGIN clrscr ; writeln (' Chuong trinh tinh thoi gian rut tien lai ') ; write (' So tien lai muon rut ra : ') ; readln(x) ; tien := 1000 ; thang :=1 ; repeat lai := tien * 11 / 100 ; tien := tien + lai ; thang := thang + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ',thang mod 12,'thang .') ; writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong .') ; readln ; END . Câu 3: Viết chương trình bằng ngôn ngữ pascal để: - Nhập từ bàn phím 3 số thực dương tùy ý. - Kiểm tra xem chúng có là số đo 3 cạnh tam giác không, nếu không đúng yêu cầu nhập lại. - Tính diện tích, đường cao ứng với cạnh a của tam giác đó. - In kết quả ra màn hình. TL: program_tamgiac; var a,b,c:integer; s,p,h:real; BEGIN write(' nhap canh a='); readln(a); write(' nhap canh b='); readln(b); write(' nhap canh c='); readln(c); writeln; { Kiem tra lap thanh ba canh cua tam giac} if(a<=0) or(b<=0)or(c<0) then writeln('yeu cau nhap lai') else Begin if(a+b>c)and(b+c>a)and(c+a>b) then begin writeln('Ban da nhap vao la mot tam giac'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); h:=(2*s)/a; writeln; writeln('dien tich tam giac s=',s:5:2); writeln; writeln('duong cao tinh theo canh a la h=',h:5:2); end else writeln(' Ban da nhap vao khong la mot tam giac'); end; Readln; END. Câu 4: Viết chương trình nhập vào một số nguyên dương >=10 a, Hãy cho biết số đó có là số chính phương không. b, Thông báo lên màn hình số đó có bao nhiêu chữ số, tổng của các chữ số đó. TL: uses crt; var n,s,i,dem:integer; begin {Nhap du lieu} write('Nhap gia tri n='); readln(n); writeln; if n<=10 then writeln('Yeu cau nhap lai') else {Kiem tra so chinh phuong } begin i:=1; while(i<=n) and (sqrt(n) <> i) do i:= i+1; if i=n then writeln(n,'Khong la so chinh phuong ') else writeln(n,'laso chinh phuong'); end; writeln; {Dem tong so cac chu so co trong so nhap va dem so co trong so vua nhap} begin s:=0; dem:=0; while(n<>0 )do begin s:=s +n mod 10; n:=n div 10; dem:=dem+1; end; writeln('Tong cac so=',s); writeln; writeln('Tong cac chu so co trong so=', dem); end; readln; end. Câu 5: Nhập một mảng A các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau: a, Sắp xếp mảng đó theo thứ tự giảm dần. b, Chèn số nguyên x vào mảng sao cho mảng đó không mất đi tính sắp thứ tự. TL: uses crt; var n,x,i,j,tg,k:integer; A:array[1..5]of integer; begin {Nhap gia tri cho mang} clrscr; writeln(' Nhap gia tri cac phan tu mang'); Begin for i:=1 to 5 do begin write('A[',i,']='); readln(A[i]); end; writeln; {In mang vua nhap } writeln('Mang vua nhap'); for i:=1 to 5 do writeln(A[i]); writeln; end; {Sap xep mang giam dan} writeln('Mang sap xep giam dan'); begin for i:=1 to 4 do for j:=i+1 to 5 do if A[i]<=A[i,j] then max:= A[i,j]; s:=s+max; writeln('Max tren dong',i,'la',max); end; writeln; writeln('Tong phan tu lon nhat cua moi dong:',s); readln; end. Câu 7: Viết chương trình nhập vào mảng số nguyên A (không thể có 2 phần tử trùng nhau trong mảng). Trong quả trình nhập phải kiểm tra: Nếu phần tử vừa nhập vào đã có trong mảng thi không bổ sung vào mảng. In ra màn hình các phần tử của A đã được sắp xếp tăng dần. TL: Uses Crt; Type Mang=ARRAY[1..50] Of Integer; Var A,B:Mang; n,m:Byte; Function KiemTra(x:Integer; n:Byte; A:Mang):Boolean; Var i:Byte; Found: Boolean; Begin Found:=False; i:=1; While (i<=n) AND (not Found) Do If x=A[i] Then Found:=True Else i:=i+1; KiemTra:=Found; End; Procedure NhapMang(Var n:Byte; Var A:Mang); Var ch:Char; x:Integer; Begin n:=0; Repeat Write('x='); Readln(x); If not KiemTra(x,n,A) Then Begin n:=n+1; A[n]:=x; End; Writeln('An ESC de ket thuc nhap!'); ch:=Readkey; Until ch=#27; End; Procedure GiaoAB(n:Byte; A:Mang;m:Byte; B:Mang); Var i:Byte; Begin For i:=1 To n Do If KiemTra(A[i],m,B) Then Write(A[i]:4) End; Begin Clrscr; Writeln('Nhap mang A: '); NhapMang(n,A); Writeln('Nhap mang B: '); NhapMang(m,B); Writeln('Giao cua 2 mang A&B la: '); GiaoAB(n,A,m,B); Readln; End. Câu 8: Số Hoàn Hảo: là số có tổng các ước của nó (trừ nó) bằng chính nó, ví dụ: 6=1+2+3. Viết chương trình kiểm tra xem 1 số nguyên dương nhập từ bàn phím có là số hoàn hảo không. Có bao nhiêu số hoàn hảo từ 1 đến 2000, in ra các số đó. TL: uses crt; var n,i,j,s,k,dem:integer; Begin { Nhap dulieu} clrscr; write('Nhap so n='); readln(n); writeln; if n<1 then writeln('Yeu cau nhap lai') else begin {Kiem tra so hoan hao} s:=0; for i:=1 to n-1 do begin if n mod i=0 then s:=s+1; end; if s=n then writeln('n,La so hoan hao ') else writeln(n,'Khong la so hoan hao '); end; { Dem so hoan hao va in ra man hinh nhung so do} writeln; writeln('Cac so hoan hao tu 1 den 2000 la:'); begin dem:=0; for i:= 1 to 2000 do begin s:=0; for j:= 1 to i-1 do if ( i mod j = 0) then s:= s+ j; if(s=i) then begin writeln(i); end; end; writeln('Tong so hoan hao la :', dem); end; readln; end. Câu 9: Cho một mảng số nguyên gồm n phần tử, tìm dãy con có m phần tử (ma[i,j] then min:=a[i,j]; end; write('la so nho nha:',min); readln; end. Câu 12: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có M dòng, N cột (M>5, N>6) các phần tử là các số nguyên lớn hơn 2 và nhỏ hơn 100 được nhập từ bàn phím. b, Đếm số các phần tử chẵn của mảng. c, In ra màn hình giá trị dương lớn nhất của mảng. TL: uses crt; var i,j,s,max,dem,m,n:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap gia tri cua mang} writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if (m<5) or (n<6) then begin writeln('yeu cau nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:= 1 to m do for j:= 1 to n do begin write('A[',i,',',j,']='); readln( A[i,j]); if( A[i,j] <2 ) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh} clrscr; writeln('Mang vua nhap:'); for i:= 1 to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; {Dem cac so chan } writeln; dem:=0; for i:= 1 to m do for j:= 1 to n do if A[i,j]mod 2= 0 then dem:= dem +1; writeln('Tong cac so chia het cho 2 =',dem); writeln; {Hien thi cac phan tu lon nhat cua mang} max:=A[i,j]; for i:= 1 to m do for j:= 1 to n do if (A[i,j]>0) and (max<=A[i,j]) then max:=A[i,j]; writeln('So nguyen duong lon nhat cua mang la:', max); readln; end. Câu 13: Viết chương trình tạo mảng 5 dòng, 5 cột với các phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phím: a, Cho biết mảng có bao nhiêu số lẻ không chia hết cho 5 b, Tính tổng các phần tử nằm hình vuông ngoài cùng của mảng. TL: uses crt; var i,j,s,s1,s2,s3,s4,max,dem:integer; A:array[1..5,1..5] of integer; begin clrscr; {Nhap gia tri cho mang} writeln('Nhap cac phantu mang:'); for i:=1 to 5 do for j:=1 to 5 do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j]<5) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh } clrscr; writeln('Mang vua nhap:'); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j],','); writeln; end; {Dem cac so le khong chia het cho 5} writeln; dem:=0; for i:= 1 to 5 do for j := 1 to 5 do if (A[i,j] mod 2 <> 0 ) and (A[i,j] mod 5 <> 0) then dem := dem+1; writeln('Tong cac so le khong chia het cho 5 = ',dem); writeln; {Tinh tong cac so tren hinh vuong ngoai cung cua mang} s1:=0; for i:= 1 to 1 do for j := 1 to 5 do s1:= s1+A[i,j]; s2:=0 ; for i := 5 to 5 do for j:=1 to 5do s1 :=s1+ A[i,j]; s3:=0 ; for i := 1 to 5 do for j:=1 to 1 do s1 :=s1+ A[i,j]; s4:=0 ; for i := 1 to 5 do for j:=5 to 5 do s1 :=s1+ A[i,j]; s:=s1+s2+s3+s4; writeln('Tong cac so tren hinh vuong ngoai cung =',s); readln; end. Câu 14: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có N (N>10) phần tử là số tự nhiên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phí. b, Tìm và đưa ra phần tử chẵn lớn nhất của mảng, vị trí của chúng. c, So số phần tử chắn với số phần tử lẻ. TL: uses crt; var maxc,n,chan,le,i:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap cac kich thuoc mang:'); write('n='); readln(n); if n<10 then begin writeln('Yeu cau nhaplai'); readln; exit; end; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:= 1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]<5 ) or ( A[i]>100 ) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; {Tim phan tu chan lon nhat} writeln; maxc:= A[1]; for i:= 1 to n do if A[i]> maxc then writeln('Phan tu chan lon nhat la ',maxc,' va o vi tri',i); { So sanh chan -le} writeln; chan := 0 ; for i:=1 to n do if A[ i] mod 2 = 0 then chan:=chan+1; le:= n- chan; if le< chan then writeln('So chan nhieu hon so le'); if le> chan then writeln('So le nhieu hon so chan'); if le = chan then writeln('So chan bang so le'); readln; end. Câu 15: Viết chương trình cho máy tính làm những công việc sau: a, Nhập vào mảng A có n phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 (n>12). b, Có bao nhiêu phần tử của mảng A là số nguyên tố ? TL: uses crt; var i,j,n,dem,d:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap kich thuoc mang'); writeln('n='); readln(n); if n<12 then begin writeln('Yeu cau nhap lai'); readln; exit; end; writeln; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:=1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]< 5)or (A[i]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; { Dem so nguyen } dem := 0; for i:= 1 to n do begin d:=0 ; for j:= 2 to A[i]-1 do if A[i] mod j=0 then d:=d+1; if d=0 then dem:=dem+1; end; if dem=0 then writeln('Khong co so nguyen to') else writeln('Tong so cac so nguyen to=',dem); readln; end. Câu 16: Viết chương trình cho máy làm những công việc sau: a, Nhận vào mảng A có M dòng, N cột (M>3, N>4) các phần tử là những số thực lớn hơn 1 và nhỏ hơn 100 được nhập từ bàn phím. b, Tìm và đưa ra phần tử nhỏ nhất của mảng, chúng ở dòng nào, cột nào ? TL: uses crt; var i,j,m,n,min:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap cac gia tri cho mang} writeln; writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if(m<3) or (n<4) then begin writeln('Yeu cap nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:=1to m do for j:= 1to n do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j] <1 ) or (A[i,j]>100)then begin writeln('Yeu cau nhaplai'); readln; exit; end; end; writeln; {Inra man hinh} clrscr; writeln('Mang vua nhap:'); writeln; for i:= 1to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; { TIm phan tu nho nhat cua mang} min:=A[1,1]; for i:= 1 to m do for j:= 1 to n do if A[i,j]<=min then min:=A[i,j]; writeln('So nho nhat cua mang la:',min); writeln; for i:= 1 to m do for j:= 1 to n do if A[i,j]= min then writeln('O dong ', i, ' cot ', j); writeln; readln; end. Câu 17: Viết chương nhận vào cho mảng A có m dòng, n cột (m>3, n>4) các phần tử là những số nguyên lớn hơn 3 và nhỏ hơn 150. TÌm tất cả các phần tử là số nguyên tố của mảng A và đưa chúng vào mảng 1 chiều B, in ra các phần tử của mảng B. TL: program tinh; uses crt; type mang=array[1..50]of integer; var a,b:mang; var n,m:byte; function kt(x:integer;n:byte;a:mang):boolean; var i:byte; t:boolean; begin t:=false; i:=1; while (i<=n)and (not t) do if x=a[i] then t:=true else i:=i+1; kt:=t; end; procedure nm(var n:byte;var a:mang); var ch:char; x:integer; begin n:=0; repeat write('x=');readln(x); if not kt(x,n,a) then begin n:=n+1; a[n]:=x; end; writeln('an esc de ket thuc'); ch:=readkey; until ch=#27; end; procedure giaoab(n:byte;a:mang;m:byte;b:mang); var i:byte; begin for i:=1 to n do if kt(a[i],m,b)then write(a[i]:4); end; begin clrscr; writeln('nhap mang a'); nm(n,a); writeln('nhap mang b'); nm(m,b); writeln('giao cua 2 mang A vaf b la'); giaoab(n,a,m,b); readln; end. Câu 18: Nhập vào một số n (5<=n<=10) và n phần tử của dãy A là các số tự nhiên lớn hơn 5 và nhỏ hơn 100. - In ra các phần tử là số chính phương. - Tính ước chung lớn nhất của tất cả các phần tử của dãy. TL: uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; function chinhphuong(n : integer): boolean; {hàm ki?m tra nguyên t?, xem gi?i thích ? ph?n trên} var i : integer; begin i:=1; while (i<>i) do i:=i+1; if i=n then writeln(n,'khong la so chinh phuong') else writeln(n,'la so chinh phuog') end; writeln; end; procedure inchinhphuong; var i :integer; begin writeln('CAC PHAN TU CHINH PHUONG TRONG DAY:'); for i := 1 to n do {duy?t qua m?i ph?n t? t? 1 d?n n} if chinhphuong(a[i]) then writeln(a[i]); {n?u ai là nguyên t? thì in ra} end; function UCLN(a,b: integer): integer; var r : integer; begin while b<>0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure TinhUC; var i,u : integer begin u := a[1]; {u là UCLN c?a các ph?n t? t? 1 d?n i} for i := 2 to n do u := UCLN(u,a[i]); writeln('UCLN cua ca day la:',u); end; function hammu(a : real; n : integer): real; {hàm mu tính an} var s : real; i : integer; begin s := 1; for i := 1 to n do s := s * a; hammu := s; end; BEGIN nhap; inngto; tinhuc; END. Câu 19: Nhập vào một số n (5<=n<=10) và n phần tử của dãy a là các số tự nhiên lớn hơn 1 và nhỏ hơn 100. - Tính biểu thức sau: S = a2¬¬¬1+a22+...+a2n - Sắp xếp dãy tăng dần và in ra dãy sau sắp xếp. TL: {//Khai báo d? li?u:} uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} {//Th? t?c nh?p d? li?u, có ki?m tra khi nh?p.} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; {//Th? t?c tính t?ng các ph?n t? có l?y mu:} procedure tong; var s : real; i : integer; {s ph?i khai báo là s? th?c d? tránh tràn s?} begin s := 0; for i := 1 to n do s := s + hammu(a[i],i); {s := s + (ai)i} writeln('Tong can tinh:',s:10:0); end; {//Th? t?c s?p x?p tang d?n các ph?n t? c?a m?t m?ng:} procedure sxep; var i,j,tg : integer; begin for i := 1 to n-1 do for j := i + 1 to n do if a[i] > a[j] then begin tg := a[i]; a[i] := a[j]; a[j] := tg; end; writeln('DAY SAU KHI SAP XEP TANG DAN:'); for i := 1 to n do writeln(a[i]); end; {//Chuong trình chính: l?n lu?t g?i t?ng th? t?c} BEGIN nhap; tong; sxep; END. Câu 20: Viết chương trình nhập một sau kí tự, sau đó chỉ ra xem xâu đó có những loại kí tự nào, xâu đó có phải là xâu đối xứng không (xâu đối xứng có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu, ví dụ: ‘ABBA’ hoặc ‘ABCBA’) TL: Uses Crt; Var St : string; dx : Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:= True; i:=1; len:= Length(St); While dx and (i<=(len div 2)) do Begin dx:=(St[i] = St[len - i+1]); inc(i); End; If dx then Write(' St la xau doi xung ') Else Write(' St khong phai la xau doi xung ') ; Readln; END . Câu 21: Nhập vào một xâu s khác rỗng và thực hiện chuẩn hóa xâu, tức là: a, Xóa các dấu cách thừa. b, Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường. (ví dụ nhập: “ nguyen van hanh” kết quả: “Nguyen Van Hanh”) TL: Uses Crt; Var St:String; Procedure XoaTrangThua(Var St:String); Begin {Xóa các ký t? tr?ng ? d?u xâu} While St[1]=#32 Do Delete(St,1,1); {Xóa các ký t? tr?ng ? cu?i xâu} While St[Length(St)]=#32 Do Delete(St,Length(St),1); {Xóa các ký t? tr?ng ? gi?a xâu} While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1); End; Begin Write(‘Nhap xau St: ‘); Readln(St); XoaTrangThua(St); Write(‘Xau sau khi xoa cac ky tu trang thua: ‘, St); Readln; procedure ChuyenKiTu(Var St:String); Begin i:=1->length(s) If s[i-1]=' ' then s[i]=UpCase(s[i]) Else s[i]=LowCase(s[i]). For i:=2 to length(S) do If (S[i-1]=" ") and (S[i]<>" ") then If (S[i-1]<>" ") and (S[i]<>" ") then End; End. Câu 22: Viết chương trình tạo một danh sách gồm 10 người với tên người được nhập vào từ bàn phím. Sau đó nhập một tên người tùy ý, tìm xem người đó có trong danh sách không và in ra thông báo cần thiết. TL: program tinh; uses crt; type ng=record ten:string; end; var a:array [1..10] of ng; i:integer; tenn:string; begin clrscr; for i:=1 to 10 do begin write('a[',i,']=');readln(a[i].ten); end; write('nhap mot ten nguoi bat ki:'); readln(tenn); for i:=1 to 10 do if tenn=a[i].ten then begin write('da tim thay:'); write('ten:',a[i].ten); break; end else if (i=10) then write('khong tim thay'); readln; end. Câu 23: Sử dụng dữ liệu kiểu mảng của các bản ghi. Viết chương trình cho phep nhập vào các thẻ theo dõi sách trong thư viện quản lý các mục: mã số, tên sách, tên tác giả. In ra nội dung một thẻ nếu mã số được nhập từ bàn phím. TL: program tinh; uses crt; type the=record ms:integer; ts:string; ttg:string; end; var a:array[1..100] of the; i,n,m:integer; begin clrscr; write('nhap n=');readln(n); for i:=1 to n do begin write('ma so:');readln(a[i].ms); write('ten sach:');readln(a[i].ts); write('ten tac gia:');readln(a[i].ttg); end; write('nhap vao ma so the'); readln(m); for i:=1 to n do if m=a[i].ms then begin writeln('ma so la:',a[i].ms); writeln('ten sach la:',a[i].ts); writeln('ten tac gia la :',a[i].ttg); break; end else if i=n then write('khong co'); readln; end. Câu 24: Viết chương trình quản lý học sinh chuyên tin. Mỗi học sinh được đặc trưng bởi: số báo danh, họ tên, ngày sinh, điểm toán, điểm văn, điểm tin, điểm trung bình các môn (điểm tin có hệ số 2). In ra những học sinh có điểm trung bình lớn hơn bằng 7. TL: program danhsach; uses crt; type nhansu=record; sbd: integer; ht:string; ns:string; dt,dv,dti:real; dtb:real; end; var a:array [1..100]of nhansu; i,n:integer; begin clrscr; write('nhap so hoc sinh can quan ly n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('ngay sinh:');readln(a[i].ns); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem tin:');readln(a[i].dti); a[i].dtb:=(a[i].dt+a[i].dv+a[i].dti*2)/4; writeln('diem trung binh la',a[i].dtb:10:2); end; writeln('danh sach sinh vien co diem trung binh >=7'); for i:=1 to n do if a[i].dtb>=7 then begin writeln('ho ten sinh vien:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('ngay sinh:',a[i].ns); writeln('diem toan:',a[i].dt:10:2); writeln('diem van:',a[i].dv:10:2); writeln('diem tin:',a[i].dti:10:2); writeln('diem trung binh:',a[i].dtb:10:2); break; end else if (i=n) then write('khong co'); readln; end. Câu 25: Nhập một danh sách gồm n thí sinh được quản lý bới số báo danh, họ và tên, điểm toán, điểm văn, điểm ngoại ngữ, điểm tổng cộng. In ra màn hình những thí sinh trúng tuyển (những thí sinh có tổng điểm 3 môn lớn hơn hoặc bằng n là số dương nhập từ bàn phím) TL: program danhsach; uses crt; type nhansu=record ht:string[30]; sbd:integer; dt:integer; dv:integer; dnn:integer; td:real; end; var a:array [1..100] of nhansu; i,n,m:integer; begin clrscr; write('nhap danh sach cac thi sinh n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem ngoai ngu:');readln(a[i].dnn); a[i].td:=(a[i].dt+a[i].dv+a[i].dnn); writeln('tong diem la :',a[i].td:10:2); end; write('nhap m=');readln(m); for i:=1 to n do if (a[i].td>=m) then begin writeln('danh sach thi sinh trung tuyen la: '); writeln('ho ten:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('diem toan:',a[i].dt); writeln('diem van:',a[i].dv); writeln('diem ngoai ngu:',a[i].dnn); end; readln; end.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.


text:
Bí ẩn về thuật khinh công
Hiện tượng “ban ngày sáng tỏ người kia bay lên” (Bạch nhât phi thăng) đã được ghi chép trong nhiều sách tu luyện của Trung Quốc cổ đại. Một người ở Ấn Độ có khả năng bay lơ lửng trên không. Người ta cũng đã nhìn thấy những người tu luyện trong núi bay lơ lửng trên không. Bản thân tôi đã trực tiếp kinh nghiệm được sự bay lên trong hai lần. Làm thế nào mà một người có thể bay lơ lửng trên không? Sự thật là một người tu luyện sẽ có thể bay lên một khi mà “Đại Chu Thiên” của người ấy được khai mở hoàn toàn. Nó đơn giản chỉ có vậy thôi. Tại sao việc khai mở hoàn toàn “Đại Chu Thiên” lại khiến một người bay lên? Nó liên quan đến cấu trúc của thân thể người, các kinh mạch, và những thân thể khác của con người trong các chiều không gian khác.
Thân thể này của con người có một thân thể đối ứng trong mỗi không gian trong số nhiều chiều không gian. Tất cả các thân thể này đều được kết nối với nhau theo một cách nhất định. Cá nhân tôi nghĩ rằng các huyệt đạo là nơi mà tất cả các thân thể này được kết nối lại với nhau. Liệu pháp châm cứu Trung Hoa đã chứng minh rằng việc dùng một cây kim để kích thích những huyệt vị nào đó có thể chữa được bệnh. Nó hoạt động như thế nào? Có những huyệt vị đối ứng nhau trong mỗi thân thể của con người. Nguyên nhân thực sự của căn bệnh nằm ở một hoặc các thân thể ở chiều không gian khác. Những triệu chứng chỉ đơn giản là được phản ánh trên thân thể của chúng ta ở không gian này. Phương pháp châm cứu được dùng để chữa bệnh cho thân thể ở các không gian khác. Khi đó, những biểu hiện của bệnh tật trên thân thể ở không gian này sẽ biến mất. Đây là điều mà khoa học hiện đại không thể giải thích nổi.
Theo quan điểm của tôi, các thân thể của con người trong tất cả các chiều không gian đều có những đường kinh mạch. Những đường kinh mạch này là cửa ngõ kết nối tất cả các thân thể lại với nhau. Đối với một người không tu luyện, kinh mạch của người ấy bị tắc nghẽn, và do đó các thân thể ở các không gian khác không được kết nối với nhau. Khi “Đại Chu Thiên” của chúng ta khai mở, các thân thể ở không gian này trở nên được liên kết với các thân thể ở những chiều không gian khác thông qua các đường kinh mạch. Khi tất cả các kinh mạch đều được khai thông, sự chuyển động của “Đại Chu Thiên” cấu tạo nên một dòng năng lượng mạnh mẽ. Dòng năng lượng này được tạo thành bởi những lạp tử cao năng lượng gom chọn từ các không gian khác. Khi dòng năng lượng này luân chuyển, những vật chất bên trong cơ thể người có thể thay đổi vị trí cùng với nó. Những lạp tử được gom chọn từ các chiều không gian khác có thể thay thế những lạp tử bên trong cơ thể chúng ta ở không gian này, vốn mang rất ít năng lượng. Một khi mà vật chất cao năng lượng đã thay thế vật chất có năng lượng thấp, cấu tạo vật lý của thân thể người được thay đổi từ tầng thứ căn bản.
Tất nhiên, có sự khác nhau tại các tầng thứ khác nhau. Tại một tầng thấp, dòng năng lượng của “Đại Chu Thiên” được cấu thành bởi các lạp tử trong chiều không gian năng lượng thấp. Thân thể người ở không gian này chỉ có thể kết nối với những thân thể của họ ở tầng thứ thấp. Kích thước hạt lạp tử tương đối to. Khi tầng thứ của người ta tăng lên, dòng năng lượng đó được cấu thành từ những lạp tử có kích thước vi tế hơn và có mật độ cũng như năng lượng cao hơn. Những lạp tử này là từ các chiều không gian cao hơn. Do đó, thân thể ở không gian này được kết nối đến các thân thể ở những chiều không gian cao hơn.
Khi vật chất ở những không gian cao hơn thay thế vật chất ở không gian này, một người có “Đại Chu Thiên” khai mở sẽ khác biệt với một người bình thường ở phương diện là thân thể của người ấy trong không gian này được cấu thành từ vật chất khác. Tuy rằng người ấy vẫn trông giống như trước, nhưng từ cơ bản người ấy đã khác trước rồi. Họ không còn bị kiểm soát và giới hạn bởi những đặc tính của không gian này bởi vì họ đã đồng hóa với những đặc tính ở các chiều không gian khác. Tầng thứ càng cao, thì họ càng đồng hóa với không gian cao hơn. Vì vậy người ấy cắt đứt mối liên kết với vật chất ở các không gian thấp hơn. Giờ đây, họ có thể đi qua các không gian khác, và thân thể của họ ở không gian này có thể bay lên. Đó là lý do tại sao người ta có thể “bạch nhật phi thăng.” Sự lý giải thực ra rất đơn giản.
Trên đây chỉ là sự quan sát và thể ngộ cá nhân của tôi. Kính mong sự góp ý và chỉ ra sai sót
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công vì nó đi ngược lại hoàn toàn định luật vạn vật hấp dẫn.
Nhiều tài liệu cổ của phương Đông và phương Tây ghi chép khá tỉ mỉ về khả năng con người tự bay lên mà không cần bất kỳ sự trợ giúp nào. Tuyệt kỹ khinh công đó là sự thực hay chỉ là trò ảo thuật?
Khinh công (Levitation) là kỹ thuật tự bay trong không khí mà không cần trợ giúp, trái ngược hoàn toàn với định luật vạn vật hấp dẫn của Newton. Sách tôn giáo ghi nhận 300 vị thánh có thể tự bay lên.
Pha khinh công đầu tiên được ghi lại là do Simon Magus thực hiện vào thế kỷ 1. Ông ta là một giáo sĩ theo dòng dị giáo, tham gia tập luyện nhiều “tà thuật” như phép tàng hình, khinh công. Người thực hiện pha bay lượn trong thời gian lâu nhất là Joseph Capertino thế kỷ 17. Giáo sĩ đạo Tin Lành này đã lơ lửng trong không khí khoảng 2 tiếng đồng hồ.
Những đạo giáo khác như Hindu, Bà la môn và Phật giáo cũng ghi nhận nhiều trường hợp khinh công. Trong cuốn sách “Khoa học huyền bí ở Ấn Độ thời cổ đại”, tác giả Louis Jacollios (Pháp) đã ghi lại khá chi tiết các pha khinh công.
Nổi tiếng nhất là tu sĩ Milarepa, một nhà yoga hàng đầu ở Tây Tạng thuộc thế kỷ 19. Ông này được mệnh danh là người nắm giữ nhiều sức mạnh huyền bí đến nỗi có thể đi lại, ăn, ngủ trong khi khinh công lơ lửng giữa không khí. Không chỉ các thày tu khổ hạnh tại Ấn Độ có thể thực hiện tuyệt kỹ này, mà các môn đệ của phái Ninja ở Nhật Bản cũng có khả năng tương tự.
Một kỹ thuật thấp hơn của khinh công là khinh hành (đi bộ cực nhanh), khá phổ biến tại các khu vực có địa hình phức tạp ở Trung Hoa, Nhật Bản. Các môn đồ của khinh hành có thể đi lại rất nhanh và an toàn ở những nơi núi non hiểm trở, bằng kỹ thuật phi thân (nhảy), thần hành (chạy hàng trăm dặm mà chân không chạm đất), bích hổ du tường (thằn lằn leo tường), thủy thượng phiêu (chạy trên nước).
Những tuyệt kỹ khinh công dù thực hiện ở đâu đều có một điểm giống nhau, đó là sử dụng một kỹ thuật nào đó để giảm hoặc mất hẳn tác động của lực hút trọng trường. Nói về điều này, cần nhắc đến một khái niệm vật lý là trọng lượng biểu kiến. Nó đặc trưng cho lực nén của vật lên mặt sàn hoặc sức căng của lò xo thể hiện sức nặng của một vật nào đó. Chính trọng lượng biểu kiến tạo cảm giác về sức nặng nhẹ của cơ thể. Khi không có cảm giác về trọng lượng biểu kiến (rơi từ trên cao xuống mà không có sàn đỡ), chúng ta sẽ rơi vào trạng thái không trọng lượng.
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công (nếu như nó tồn tại) vì nó đi ngược lại hoàn toàn định luật vạn vật hấp dẫn. Người ta không thể chứng minh, ít nhất là về mặt lý thuyết, làm thế nào mà một người có thể thoát ra khỏi tác động của lực hút của trái đất trong điều kiện thông thường chỉ bằng cách hít thở, thôi miên để huy động năng lượng siêu nhiên. Những người phản bác cho rằng từ xưa đến nay, đó chỉ là trò ảo thuật đánh lừa thị giác của người xem.
Một số thử nghiệm khoa học gần đây cho thấy nhiều chiều hướng tích cực hơn. Ví dụ, các nhà khoa học Nga đã thử nghiệm trong môi trường đặc biệt (âm hơn 160 độ C), một chiếc đĩa khi quay tốc độ cao, khoảng 3.000 vòng/phút trong tác động của một điện trường thì sẽ giảm trọng lượng. Các nhà khoa học Mỹ làm thử nghiệm khác: Khi đặt chất siêu dẫn lơ lửng trong từ trường, họ phát hiện ra nếu đặt một vật thể lên trên bề mặt của chất siêu dẫn, trọng lượng của nó sẽ giảm đi 5%.
Như vậy, vẫn còn hy vọng le lói cho những người muốn tin vào những điều đặc biệt, đồng thời những kẻ lừa bịp vẫn còn đất để dụng võ. Và khinh công là khả năng đặc biệt hay chỉ là một khát vọng ảo ảnh của loài người? Đây vẫn là một bí mật.
(Theo Sức Khỏe & Đời Sống(
(Vnexress(
Nhân Trắc Học
29-06-2007, 04:14 PM
Nhiều tài liệu cổ của phương Đông và phương Tây ghi chép khá tỉ mỉ về khả năng con người tự bay lên mà không cần bất kỳ sự trợ giúp nào. Tuyệt kỹ khinh công đó là sự thực hay chỉ là trò ảo thuật?
Tuyệt kỹ của tôn giáo?
http://www.suckhoedoisong.vn/Editor/assets/So%20150/9225.JPGLevitation hay còn gọi là khinh công là kỹ thuật tự bay trong không khí (của người, động vật, đồ vật) mà không cần trợ giúp (trái ngược hoàn toàn với định luật vạn vật hấp dẫn của Newton).
Sách tôn giáo ghi nhận có tới 300 vị thánh có thể tự bay lên.
Pha khinh công đầu tiên được ghi lại là do Simon Magus thực hiện vào thế kỷ thứ I. Ông ta là một giáo sĩ theo dòng dị giáo, tham gia tập luyện nhiều tà thuật như phép tàng hình, khinh công. Người thực hiện pha bay lượn trong thời gian lâu nhất là Joseph Capertino (1603-1663), giáo sĩ đạo Tin Lành này đã lơ lửng trong không khí khoảng 2 tiếng đồng hồ.
Những đạo giáo khác như Hindu, Bà la môn và Phật giáo cũng ghi nhận nhiều trường hợp khinh công. Trong cuốn sách “Khoa học huyền bí ở Ấn Độ thời cổ đại”, tác giả Louis Jacollios (Pháp) đã ghi lại khá chi tiết các pha khinh công.
Nổi tiếng nhất là tu sĩ Milarepa, một nhà yoga hàng đầu ở Tây Tạng thuộc thế kỷ 19. Ông này được mệnh danh là người nắm giữ nhiều sức mạnh huyền bí đến nỗi có thể đi lại, ăn, ngủ trong khi khinh công lơ lửng giữa không khí. Không chỉ những thầy tu khổ hạnh tại Ấn Độ có thể thực hiện tuyệt kỹ này, mà các môn đệ của phái Ninja ở Nhật Bản cũng có khả năng tương tự.
Một kỹ thuật thấp hơn của khinh công là khinh hành (đi bộ cực nhanh) khá phổ biến tại các khu vực có địa hình phức tạp ở Trung Hoa, Nhật Bản. Các môn đồ của khinh hành có thể đi lại rất nhanh và an toàn ở những nơi núi non hiểm trở. Các kỹ thuật đó được mô tả như phi thân (nhảy), thần hành (chạy hàng trăm dặm mà chân không chạm đất), bích hổ du tường (thằn lằn leo tường), thủy thượng phiêu (chạy trên nước).
Ảo thuật hay siêu nhiên?
Những tuyệt kỹ khinh công dù thực hiện ở đâu đều có một điểm giống nhau đó là dựa vào nguyên tắc sử dụng một kỹ thuật nào đó để giảm hoặc mất hẳn tác động của lực hút trọng trường. Nói về điều này cần nhắc đến khái niệm vật lý là trọng lượng biểu kiến. Nó đặc trưng cho lực nén của vật lên mặt sàn hoặc sức căng của lò xo thể hiện sức nặng của một vật nào đó. Chính trọng lượng biểu kiến tạo cảm giác về sức nặng nhẹ của cơ thể. Khi không có cảm giác về trọng lượng biểu kiến (rơi từ trên cao xuống mà không có sàn đỡ), chúng ta sẽ rơi vào trạng thái không trọng lượng.
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công (nếu như nó tồn tại) vì nó đi ngược lại hoàn toàn định luật Vạn vật hấp dẫn. Người ta không thể chứng minh (ít nhất là về mặt lý thuyết) làm thế nào mà một người có thể thoát ra khỏi tác động của lực hút của trái đất (trong điều kiện thông thường) chỉ bằng cách hít thở, thôi miên để huy động năng lượng siêu nhiên.
Những người phản bác cho rằng từ xưa đến nay, đó chỉ là trò ảo thuật đánh lừa thị giác của người xem.
Một số thử nghiệm khoa học gần đây cho thấy nhiều chiều hướng tích cực hơn. Ví dụ, các nhà khoa học Nga đã thử nghiệm trong môi trường đặc biệt (âm hơn 160oC), một chiếc đĩa khi quay tốc độ cao (khoảng 3.000 vòng/phút) khi có một điện trường tác dụng sẽ giảm trọng lượng. Hoặc như “hiệu ứng Meisener” của các nhà khoa học Mỹ. Khi đặt một chất siêu dẫn lơ lửng trong một từ trường, họ phát hiện ra nếu đặt một vật thể lên trên bề mặt của chất siêu dẫn, trọng lượng của nó sẽ giảm đi 5%.
Như vậy, vẫn còn hy vọng le lói cho những người muốn tin vào những điều đặc biệt, đồng thời những kẻ lừa bịp vẫn còn đất để dụng võ. Khinh công, khả năng đặc biệt hay chỉ là một khát vọng ảo ảnh của loài người vẫn là một bí mật.
( SKDS)
số phận
26-09-2007, 11:47 PM
Chào bạn,
Cách nay hơn 1 năm khi coi trên VTV3 một huấn luyện viên võ thuật ở Cao lảnh ? tôi không nhớ rỏ . Vị nầy biểu diển đứng trên một khung giấy mòng gác ngang qua 2 cái ghế trong khoảng 5 phút thì tớ giấy mới rách vì trọng lượng của anh công với bộ vỏ phục trên người.Rất tiếc lúc đó vì coi nửa chừng nên không biết danh tánh và địa chỉ của anh để liên lạc. Nhưng trong lúc anh biểu diển tôi thấy có 2 hiện tượng.
1) trong lúc biểu diển anh không đứng yên mà luôn khoa hai tay như đang vận khí.Tại sao với dáng người to lớn của một vỉ sư thêm vào sự khoa 2 tay mà lực quán tính sinh ra trong lúc anh múa không làm rách tờ giấy ?
2) Trong lúc anh biều diển thì tóc ,dây đai của anh vẩn rủ xuống chứ không dựng lên hay lơ lửng gì cả ,điều đó chứng tỏ rằng trọng lực vẩn không chừa anh ra vẩn tác dụng lên toàn bộ cơ thể anh và những gỉ anh khoác lên người.
Nếu ta tưởng tượng rằng dưới khung giấy, có một trái bóng vô hình đở anh sau một khỏng thởi gian trái bóng đó bị xì hơi không đở được anh nên trọng lượng của anh tác động vào khung giấy và làm rách nó .
Khi tập NLSH chúng ta ưa thử đưa 2 bàn tay lại gần nhau thì thấy như có một khối mềm ở giữa 2 bàn tay cản lại với người tập chuyên cần và lâu năm khí khối đó càng ngày càng cứng hơn .
Khi ta tập NLSH mà ngồi lưng sát tường khi nghỉ phóng NL ra toàn thân thi giữa lưng của ta và vách tường như có một tấm nệm chèn vào ,nếu lúc đó ta thử lắc nhẹ lưng vào tường thì cảm giác như bị cản lại và đẩy ra.
Tôi không hiểu cảm giác của vị huấn luyện viên đó như thế nào lúc anh biểu diển,nhưng tôi nghỉ lúc đó “khối vật chất bao quanh cơ thể anh trở nên “đậm đặc” hơn nên đủ sức đở cơ thể anh trong khoảng thời gian đó.Nếu sức anh mạnh hơn để duy trì trạng thái đó thì có lẻ anh sẻ đứng lâu hơn.
Như vậy với những người chuyên nghiệp họ có thể xữ dụng và duy trì “vùng vật chất” bao quanh thân thể thậm chí có thể phát triển vùng này lớn nhỏ theo ý mình để đở thân thể lên.Hiện tượng đó có thể gọi là kinh công.
Tôi nghỉ nếu có thể liên hệ được với anh và mời anh lên diển đàn để kể lại các hiện tượng xảy ra khi anh biểu diển có lẻ ta sẻ có một cái nhìn rỏ hơn về thuật kinh công.Còn những gì tôi nói chỉ là phỏng đoán qua kinh nghiệm bản thân mình nó có thể đúng và có thể sai.
Chào anh

markdown:
[Bí ẩn về thuật khinh công](https://anhsangtamlinh.wordpress.com/2013/04/10/bi-an-ve-thuat-khinh-cong/)
Hiện tượng “ban ngày sáng tỏ người kia bay lên” (Bạch nhât phi thăng) đã được ghi chép trong nhiều sách tu luyện của Trung Quốc cổ đại. Một người ở Ấn Độ có khả năng bay lơ lửng trên không. Người ta cũng đã nhìn thấy những người tu luyện trong núi bay lơ lửng trên không. Bản thân tôi đã trực tiếp kinh nghiệm được sự bay lên trong hai lần. Làm thế nào mà một người có thể bay lơ lửng trên không? Sự thật là một người tu luyện sẽ có thể bay lên một khi mà “Đại Chu Thiên” của người ấy được khai mở hoàn toàn. Nó đơn giản chỉ có vậy thôi. Tại sao việc khai mở hoàn toàn “Đại Chu Thiên” lại khiến một người bay lên? Nó liên quan đến cấu trúc của thân thể người, các kinh mạch, và những thân thể khác của con người trong các chiều không gian khác.
Thân thể này của con người có một thân thể đối ứng trong mỗi không gian trong số nhiều chiều không gian. Tất cả các thân thể này đều được kết nối với nhau theo một cách nhất định. Cá nhân tôi nghĩ rằng các huyệt đạo là nơi mà tất cả các thân thể này được kết nối lại với nhau. Liệu pháp châm cứu Trung Hoa đã chứng minh rằng việc dùng một cây kim để kích thích những huyệt vị nào đó có thể chữa được bệnh. Nó hoạt động như thế nào? Có những huyệt vị đối ứng nhau trong mỗi thân thể của con người. Nguyên nhân thực sự của căn bệnh nằm ở một hoặc các thân thể ở chiều không gian khác. Những triệu chứng chỉ đơn giản là được phản ánh trên thân thể của chúng ta ở không gian này. Phương pháp châm cứu được dùng để chữa bệnh cho thân thể ở các không gian khác. Khi đó, những biểu hiện của bệnh tật trên thân thể ở không gian này sẽ biến mất. Đây là điều mà khoa học hiện đại không thể giải thích nổi.
Theo quan điểm của tôi, các thân thể của con người trong tất cả các chiều không gian đều có những đường kinh mạch. Những đường kinh mạch này là cửa ngõ kết nối tất cả các thân thể lại với nhau. Đối với một người không tu luyện, kinh mạch của người ấy bị tắc nghẽn, và do đó các thân thể ở các không gian khác không được kết nối với nhau. Khi “Đại Chu Thiên” của chúng ta khai mở, các thân thể ở không gian này trở nên được liên kết với các thân thể ở những chiều không gian khác thông qua các đường kinh mạch. Khi tất cả các kinh mạch đều được khai thông, sự chuyển động của “Đại Chu Thiên” cấu tạo nên một dòng năng lượng mạnh mẽ. Dòng năng lượng này được tạo thành bởi những lạp tử cao năng lượng gom chọn từ các không gian khác. Khi dòng năng lượng này luân chuyển, những vật chất bên trong cơ thể người có thể thay đổi vị trí cùng với nó. Những lạp tử được gom chọn từ các chiều không gian khác có thể thay thế những lạp tử bên trong cơ thể chúng ta ở không gian này, vốn mang rất ít năng lượng. Một khi mà vật chất cao năng lượng đã thay thế vật chất có năng lượng thấp, cấu tạo vật lý của thân thể người được thay đổi từ tầng thứ căn bản.
Tất nhiên, có sự khác nhau tại các tầng thứ khác nhau. Tại một tầng thấp, dòng năng lượng của “Đại Chu Thiên” được cấu thành bởi các lạp tử trong chiều không gian năng lượng thấp. Thân thể người ở không gian này chỉ có thể kết nối với những thân thể của họ ở tầng thứ thấp. Kích thước hạt lạp tử tương đối to. Khi tầng thứ của người ta tăng lên, dòng năng lượng đó được cấu thành từ những lạp tử có kích thước vi tế hơn và có mật độ cũng như năng lượng cao hơn. Những lạp tử này là từ các chiều không gian cao hơn. Do đó, thân thể ở không gian này được kết nối đến các thân thể ở những chiều không gian cao hơn.
Khi vật chất ở những không gian cao hơn thay thế vật chất ở không gian này, một người có “Đại Chu Thiên” khai mở sẽ khác biệt với một người bình thường ở phương diện là thân thể của người ấy trong không gian này được cấu thành từ vật chất khác. Tuy rằng người ấy vẫn trông giống như trước, nhưng từ cơ bản người ấy đã khác trước rồi. Họ không còn bị kiểm soát và giới hạn bởi những đặc tính của không gian này bởi vì họ đã đồng hóa với những đặc tính ở các chiều không gian khác. Tầng thứ càng cao, thì họ càng đồng hóa với không gian cao hơn. Vì vậy người ấy cắt đứt mối liên kết với vật chất ở các không gian thấp hơn. Giờ đây, họ có thể đi qua các không gian khác, và thân thể của họ ở không gian này có thể bay lên. Đó là lý do tại sao người ta có thể “bạch nhật phi thăng.” Sự lý giải thực ra rất đơn giản.
Trên đây chỉ là sự quan sát và thể ngộ cá nhân của tôi. Kính mong sự góp ý và chỉ ra sai sót
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công vì nó đi ngược lại hoàn toàn định luật vạn vật hấp dẫn.
Nhiều tài liệu cổ của phương Đông và phương Tây ghi chép khá tỉ mỉ về khả năng con người tự bay lên mà không cần bất kỳ sự trợ giúp nào. Tuyệt kỹ khinh công đó là sự thực hay chỉ là trò ảo thuật?
Khinh công (Levitation) là kỹ thuật tự bay trong không khí mà không cần trợ giúp, trái ngược hoàn toàn với định luật vạn vật hấp dẫn của Newton. Sách tôn giáo ghi nhận 300 vị thánh có thể tự bay lên.
Pha khinh công đầu tiên được ghi lại là do Simon Magus thực hiện vào thế kỷ 1. Ông ta là một giáo sĩ theo dòng dị giáo, tham gia tập luyện nhiều “tà thuật” như phép tàng hình, khinh công. Người thực hiện pha bay lượn trong thời gian lâu nhất là Joseph Capertino thế kỷ 17. Giáo sĩ đạo Tin Lành này đã lơ lửng trong không khí khoảng 2 tiếng đồng hồ.
Những đạo giáo khác như Hindu, Bà la môn và Phật giáo cũng ghi nhận nhiều trường hợp khinh công. Trong cuốn sách “Khoa học huyền bí ở Ấn Độ thời cổ đại”, tác giả Louis Jacollios (Pháp) đã ghi lại khá chi tiết các pha khinh công.
Nổi tiếng nhất là tu sĩ Milarepa, một nhà yoga hàng đầu ở Tây Tạng thuộc thế kỷ 19. Ông này được mệnh danh là người nắm giữ nhiều sức mạnh huyền bí đến nỗi có thể đi lại, ăn, ngủ trong khi khinh công lơ lửng giữa không khí. Không chỉ các thày tu khổ hạnh tại Ấn Độ có thể thực hiện tuyệt kỹ này, mà các môn đệ của phái Ninja ở Nhật Bản cũng có khả năng tương tự.
Một kỹ thuật thấp hơn của khinh công là khinh hành (đi bộ cực nhanh), khá phổ biến tại các khu vực có địa hình phức tạp ở Trung Hoa, Nhật Bản. Các môn đồ của khinh hành có thể đi lại rất nhanh và an toàn ở những nơi núi non hiểm trở, bằng kỹ thuật phi thân (nhảy), thần hành (chạy hàng trăm dặm mà chân không chạm đất), bích hổ du tường (thằn lằn leo tường), thủy thượng phiêu (chạy trên nước).
Những tuyệt kỹ khinh công dù thực hiện ở đâu đều có một điểm giống nhau, đó là sử dụng một kỹ thuật nào đó để giảm hoặc mất hẳn tác động của lực hút trọng trường. Nói về điều này, cần nhắc đến một khái niệm vật lý là trọng lượng biểu kiến. Nó đặc trưng cho lực nén của vật lên mặt sàn hoặc sức căng của lò xo thể hiện sức nặng của một vật nào đó. Chính trọng lượng biểu kiến tạo cảm giác về sức nặng nhẹ của cơ thể. Khi không có cảm giác về trọng lượng biểu kiến (rơi từ trên cao xuống mà không có sàn đỡ), chúng ta sẽ rơi vào trạng thái không trọng lượng.
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công (nếu như nó tồn tại) vì nó đi ngược lại hoàn toàn định luật vạn vật hấp dẫn. Người ta không thể chứng minh, ít nhất là về mặt lý thuyết, làm thế nào mà một người có thể thoát ra khỏi tác động của lực hút của trái đất trong điều kiện thông thường chỉ bằng cách hít thở, thôi miên để huy động năng lượng siêu nhiên. Những người phản bác cho rằng từ xưa đến nay, đó chỉ là trò ảo thuật đánh lừa thị giác của người xem.
Một số thử nghiệm khoa học gần đây cho thấy nhiều chiều hướng tích cực hơn. Ví dụ, các nhà khoa học Nga đã thử nghiệm trong môi trường đặc biệt (âm hơn 160 độ C), một chiếc đĩa khi quay tốc độ cao, khoảng 3.000 vòng/phút trong tác động của một điện trường thì sẽ giảm trọng lượng. Các nhà khoa học Mỹ làm thử nghiệm khác: Khi đặt chất siêu dẫn lơ lửng trong từ trường, họ phát hiện ra nếu đặt một vật thể lên trên bề mặt của chất siêu dẫn, trọng lượng của nó sẽ giảm đi 5%.
Như vậy, vẫn còn hy vọng le lói cho những người muốn tin vào những điều đặc biệt, đồng thời những kẻ lừa bịp vẫn còn đất để dụng võ. Và khinh công là khả năng đặc biệt hay chỉ là một khát vọng ảo ảnh của loài người? Đây vẫn là một bí mật.
(Theo Sức Khỏe & Đời Sống(
(Vnexress(
**Nhân Trắc Học**
29-06-2007, 04:14 PM
Nhiều tài liệu cổ của phương Đông và phương Tây ghi chép khá tỉ mỉ về khả năng con người tự bay lên mà không cần bất kỳ sự trợ giúp nào. Tuyệt kỹ khinh công đó là sự thực hay chỉ là trò ảo thuật?
Tuyệt kỹ của tôn giáo?
[http://www.suckhoedoisong.vn/Editor/assets/So%20150/9225.JPGLevitation](http://www.suckhoedoisong.vn/Editor/assets/So%20150/9225.JPGLevitation) hay còn gọi là khinh công là kỹ thuật tự bay trong không khí (của người, động vật, đồ vật) mà không cần trợ giúp (trái ngược hoàn toàn với định luật vạn vật hấp dẫn của Newton).
Sách tôn giáo ghi nhận có tới 300 vị thánh có thể tự bay lên.
Pha khinh công đầu tiên được ghi lại là do Simon Magus thực hiện vào thế kỷ thứ I. Ông ta là một giáo sĩ theo dòng dị giáo, tham gia tập luyện nhiều tà thuật như phép tàng hình, khinh công. Người thực hiện pha bay lượn trong thời gian lâu nhất là Joseph Capertino (1603-1663), giáo sĩ đạo Tin Lành này đã lơ lửng trong không khí khoảng 2 tiếng đồng hồ.
Những đạo giáo khác như Hindu, Bà la môn và Phật giáo cũng ghi nhận nhiều trường hợp khinh công. Trong cuốn sách “Khoa học huyền bí ở Ấn Độ thời cổ đại”, tác giả Louis Jacollios (Pháp) đã ghi lại khá chi tiết các pha khinh công.
Nổi tiếng nhất là tu sĩ Milarepa, một nhà yoga hàng đầu ở Tây Tạng thuộc thế kỷ 19. Ông này được mệnh danh là người nắm giữ nhiều sức mạnh huyền bí đến nỗi có thể đi lại, ăn, ngủ trong khi khinh công lơ lửng giữa không khí. Không chỉ những thầy tu khổ hạnh tại Ấn Độ có thể thực hiện tuyệt kỹ này, mà các môn đệ của phái Ninja ở Nhật Bản cũng có khả năng tương tự.
Một kỹ thuật thấp hơn của khinh công là khinh hành (đi bộ cực nhanh) khá phổ biến tại các khu vực có địa hình phức tạp ở Trung Hoa, Nhật Bản. Các môn đồ của khinh hành có thể đi lại rất nhanh và an toàn ở những nơi núi non hiểm trở. Các kỹ thuật đó được mô tả như phi thân (nhảy), thần hành (chạy hàng trăm dặm mà chân không chạm đất), bích hổ du tường (thằn lằn leo tường), thủy thượng phiêu (chạy trên nước).
Ảo thuật hay siêu nhiên?
Những tuyệt kỹ khinh công dù thực hiện ở đâu đều có một điểm giống nhau đó là dựa vào nguyên tắc sử dụng một kỹ thuật nào đó để giảm hoặc mất hẳn tác động của lực hút trọng trường. Nói về điều này cần nhắc đến khái niệm vật lý là trọng lượng biểu kiến. Nó đặc trưng cho lực nén của vật lên mặt sàn hoặc sức căng của lò xo thể hiện sức nặng của một vật nào đó. Chính trọng lượng biểu kiến tạo cảm giác về sức nặng nhẹ của cơ thể. Khi không có cảm giác về trọng lượng biểu kiến (rơi từ trên cao xuống mà không có sàn đỡ), chúng ta sẽ rơi vào trạng thái không trọng lượng.
Cho đến nay, khoa học chưa có cách nào giải thích hiện tượng khinh công (nếu như nó tồn tại) vì nó đi ngược lại hoàn toàn định luật Vạn vật hấp dẫn. Người ta không thể chứng minh (ít nhất là về mặt lý thuyết) làm thế nào mà một người có thể thoát ra khỏi tác động của lực hút của trái đất (trong điều kiện thông thường) chỉ bằng cách hít thở, thôi miên để huy động năng lượng siêu nhiên.
Những người phản bác cho rằng từ xưa đến nay, đó chỉ là trò ảo thuật đánh lừa thị giác của người xem.
Một số thử nghiệm khoa học gần đây cho thấy nhiều chiều hướng tích cực hơn. Ví dụ, các nhà khoa học Nga đã thử nghiệm trong môi trường đặc biệt (âm hơn 160oC), một chiếc đĩa khi quay tốc độ cao (khoảng 3.000 vòng/phút) khi có một điện trường tác dụng sẽ giảm trọng lượng. Hoặc như “hiệu ứng Meisener” của các nhà khoa học Mỹ. Khi đặt một chất siêu dẫn lơ lửng trong một từ trường, họ phát hiện ra nếu đặt một vật thể lên trên bề mặt của chất siêu dẫn, trọng lượng của nó sẽ giảm đi 5%.
Như vậy, vẫn còn hy vọng le lói cho những người muốn tin vào những điều đặc biệt, đồng thời những kẻ lừa bịp vẫn còn đất để dụng võ. Khinh công, khả năng đặc biệt hay chỉ là một khát vọng ảo ảnh của loài người vẫn là một bí mật.
( SKDS)
**số phận**
26-09-2007, 11:47 PM
Chào bạn,
Cách nay hơn 1 năm khi coi trên VTV3 một huấn luyện viên võ thuật ở Cao lảnh ? tôi không nhớ rỏ . Vị nầy biểu diển đứng trên một khung giấy mòng gác ngang qua 2 cái ghế trong khoảng 5 phút thì tớ giấy mới rách vì trọng lượng của anh công với bộ vỏ phục trên người.Rất tiếc lúc đó vì coi nửa chừng nên không biết danh tánh và địa chỉ của anh để liên lạc. Nhưng trong lúc anh biểu diển tôi thấy có 2 hiện tượng.
1) trong lúc biểu diển anh không đứng yên mà luôn khoa hai tay như đang vận khí.Tại sao với dáng người to lớn của một vỉ sư thêm vào sự khoa 2 tay mà lực quán tính sinh ra trong lúc anh múa không làm rách tờ giấy ?
2) Trong lúc anh biều diển thì tóc ,dây đai của anh vẩn rủ xuống chứ không dựng lên hay lơ lửng gì cả ,điều đó chứng tỏ rằng trọng lực vẩn không chừa anh ra vẩn tác dụng lên toàn bộ cơ thể anh và những gỉ anh khoác lên người.
Nếu ta tưởng tượng rằng dưới khung giấy, có một trái bóng vô hình đở anh sau một khỏng thởi gian trái bóng đó bị xì hơi không đở được anh nên trọng lượng của anh tác động vào khung giấy và làm rách nó .
Khi tập NLSH chúng ta ưa thử đưa 2 bàn tay lại gần nhau thì thấy như có một khối mềm ở giữa 2 bàn tay cản lại với người tập chuyên cần và lâu năm khí khối đó càng ngày càng cứng hơn .
Khi ta tập NLSH mà ngồi lưng sát tường khi nghỉ phóng NL ra toàn thân thi giữa lưng của ta và vách tường như có một tấm nệm chèn vào ,nếu lúc đó ta thử lắc nhẹ lưng vào tường thì cảm giác như bị cản lại và đẩy ra.
Tôi không hiểu cảm giác của vị huấn luyện viên đó như thế nào lúc anh biểu diển,nhưng tôi nghỉ lúc đó “khối vật chất bao quanh cơ thể anh trở nên “đậm đặc” hơn nên đủ sức đở cơ thể anh trong khoảng thời gian đó.Nếu sức anh mạnh hơn để duy trì trạng thái đó thì có lẻ anh sẻ đứng lâu hơn.
Như vậy với những người chuyên nghiệp họ có thể xữ dụng và duy trì “vùng vật chất” bao quanh thân thể thậm chí có thể phát triển vùng này lớn nhỏ theo ý mình để đở thân thể lên.Hiện tượng đó có thể gọi là kinh công.
Tôi nghỉ nếu có thể liên hệ được với anh và mời anh lên diển đàn để kể lại các hiện tượng xảy ra khi anh biểu diển có lẻ ta sẻ có một cái nhìn rỏ hơn về thuật kinh công.Còn những gì tôi nói chỉ là phỏng đoán qua kinh nghiệm bản thân mình nó có thể đúng và có thể sai.
Chào anh

WARC-Type: response

Content-Type: application/http; msgtype=response

WARC-Truncated: length

X-ac: 1.dca _dca

X-hacker: If you're reading this, you should visit automattic.com/jobs and apply to join the fun, mention this header.

Connection: close

Server: nginx

Link: <http://wp.me/p3o4ET-I>; rel=shortlink

Vary: Cookie

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


text:
Vé máy bay giá rẻ từ Hà Nội đi Pointe Noire
Thông tin về từ Hà Nội đi Pointe Noire
Vé giá rẻ từ Hà Nội đi Pointe Noire với AVIA.vn
Đặt vé máy bay giá rẻ từ Hà Nội đi Pointe Noire tại AVIA.vn. Để được đảm bảo giá luôn luôn tốt nhất. tìm kiếm những tuyển lựa giá vé máy bay từ những hàng không máy bay giá rẻ bay đến CHDC Công-gô với lịch bay linh động khắp những ngày trong tuần.
Làm thế nào để tìm vé máy bay từ Hà Nội đến Pointe Noire?
Rất dễ dàng, chỉ qua vài công đoạn:
Trong khung book kiếm, nhập địa điểm khởi hành mà từ đây bạn sẽ bay đến Pointe Noire
- Chọn thời gian cho hành trình đến Pointe Noire
- Chọn số hành khách cùng bay đến Pointe Noire
- Nhấp chọn tìm Chuyến Bay!
AVIA.vn sẽ giúp bạn đặt ra chọn lựa vé giá rẻ tuyệt vời nhất cho hành trình đến Pointe Noire. Lịch bay từ Hà Nội đến Pointe Noire sẽ mất ít nhất . Giá vé giá rẻ nhất từ . hãng máy bay khai thác lịch bay rẻ nhất từ Hà Nội đến Pointe Noire là
Xin thứ lỗi, chúng tôi không tìm được chuyến bay thích hợp
AVIA.vn khuyên bạn:
Nên lập phương án và book vé giá rẻ từ Hà Nội đi Pointe Noire nên từ 2 tháng trước thời điểm bay để nhận được mức giá ưu đãi nhất. Giá vé giá rẻ sẽ tăng lên kha khá khi càng tiến gần đến ngày xuất phát dự định của bạn.
Hãy tự chuẩn bị cho mình một hành trình bay an toàn bằng bảo hiểm du lịch, mà chỉ mất thêm một ít tiền chi phí. bên cạnh đó, AVIA.vn còn mang đến những tuyển lựa khách sạn tại CHDC Công-gô giúp bạn giá rẻ đến 70% phí.
Xin vui lòng contact với tổng đài số (08) 73 05 22 33 hay (04) 73 05 22 33 để chúng tôi có thể tư vấn bạn tốt hơn!
Bạn có thể book vé máy bay giá rẻ tới Pointe Noire từ các thành phố:
Xin thứ lỗi, chúng tôi không tìm được thành phố thích hợp
Đảm bảo giá tốt nhất
Thu phí theo giá thấp hơn bạn tìm được + cúp-pông giảm giá 300,000 VND cho lần mua hàng kế tiếp
LỰA CHỌN AVIA.vn?
- So sánh giá của tất cả hãng hàng không
Trên AVIA.vn, bạn có thể xem và so sánh để tìm giá khuyến mại tốt nhất từ tất cả các hãng hàng không, bao gồm cả các hãng bay giá rẻ. Công ty chúng tôi cung cấp thông tin các chuyến bay của hơn 600 hãng hàng không cùng 130 hãng bay giá rẻ.
- Phương thức thanh toán thuận tiện
Tìm vé máy bay và chọn ngay một phương thức thanh toán thuận tiện nhất. Đặt trước – trả sau! Sau khi được đặt giá vé sẽ không thay đổi, và bạn có thể thanh toán nhanh chóng bằng: thẻ tín dụng, tài khoản Ngân Lượng, chuyển khoản hoặc bằng tiền mặt ngay tại văn phòng công ty chúng tôi. Xem toàn bộ hình thức thanh toán tại đây
- Dịch vụ khách hàng ưu việt
Tư vấn viên tại Call Center của AVIA.vn sẽ giúp đỡ và hỗ trợ từng khách hàng trong toàn bộ quá trình lên kế hoạch cho một chuyến du lịch. Tư vấn viên của chúng tôi với nhiều năm kinh nghiệm sẽ giúp bạn tìm được các lựa chọn bay tốt nhất tại thời điểm tư vấn. Chúng tôi đảm bảo bạn sẽ hài lòng với chất lượng dịch vụ của chúng tôi. Hãy sử dụng dịch vụ của AVIA.vn!
Call Center phục vụ tất cả các ngày một tuần: Thu 2-Thu 6: 8:00-19:30, Thu 7: 9:00-14:00.

markdown:
# Vé máy bay giá rẻ từ Hà Nội đi Pointe Noire
### Thông tin về từ Hà Nội đi Pointe Noire
## Vé giá rẻ từ Hà Nội đi Pointe Noire với AVIA.vn
Đặt
**vé máy bay giá rẻ từ Hà Nội đi Pointe Noire** tại AVIA.vn. Để được đảm bảo giá luôn luôn tốt nhất. tìm kiếm những tuyển lựa giá vé máy bay từ những hàng không máy bay giá rẻ bay đến CHDC Công-gô với lịch bay linh động khắp những ngày trong tuần.
## Làm thế nào để tìm vé máy bay từ Hà Nội đến Pointe Noire?
Rất dễ dàng, chỉ qua vài công đoạn:
Trong khung book kiếm, nhập địa điểm khởi hành mà từ đây bạn sẽ bay đến Pointe Noire
- Chọn thời gian cho hành trình đến Pointe Noire
- Chọn số hành khách cùng bay đến Pointe Noire
- Nhấp chọn tìm Chuyến Bay!
AVIA.vn sẽ giúp bạn đặt ra chọn lựa vé giá rẻ tuyệt vời nhất cho hành trình đến Pointe Noire. Lịch bay từ Hà Nội đến Pointe Noire sẽ mất ít nhất . Giá vé giá rẻ nhất từ . hãng máy bay khai thác lịch bay rẻ nhất từ Hà Nội đến Pointe Noire là
**Xin thứ lỗi, chúng tôi không tìm được chuyến bay thích hợp** **AVIA.vn khuyên bạn:**
Nên lập phương án và book
**vé giá rẻ từ Hà Nội đi Pointe Noire** nên từ 2 tháng trước thời điểm bay để nhận được mức giá ưu đãi nhất. Giá vé giá rẻ sẽ tăng lên kha khá khi càng tiến gần đến ngày xuất phát dự định của bạn.
Hãy tự chuẩn bị cho mình một hành trình bay an toàn bằng bảo hiểm du lịch, mà chỉ mất thêm một ít tiền chi phí. bên cạnh đó, AVIA.vn còn mang đến những tuyển lựa khách sạn tại CHDC Công-gô giúp bạn giá rẻ đến 70% phí.
Xin vui lòng contact với tổng đài số (08) 73 05 22 33 hay (04) 73 05 22 33 để chúng tôi có thể tư vấn bạn tốt hơn!
Bạn có thể book vé máy bay giá rẻ tới Pointe Noire từ các thành phố:
**Xin thứ lỗi, chúng tôi không tìm được thành phố thích hợp**
![](https://avia.volanews.ro/media/aug04/img/landing_page/lowest_price_guarantee.gif)
### Đảm bảo giá tốt nhất
Thu phí theo giá thấp hơn bạn tìm được
**+ cúp-pông giảm giá 300,000 VND** cho lần mua hàng kế tiếp [Chi tiết](https://avia.vn/dam-bao-gia-tot-nhat)
### LỰA CHỌN AVIA.vn?
**So sánh giá của tất cả hãng hàng không**
Trên AVIA.vn, bạn có thể xem và so sánh để tìm giá khuyến mại tốt nhất từ tất cả các hãng hàng không, bao gồm cả các hãng bay giá rẻ. Công ty chúng tôi cung cấp thông tin các chuyến bay của hơn 600 hãng hàng không cùng 130 hãng bay giá rẻ.
**Phương thức thanh toán thuận tiện**
Tìm vé máy bay và chọn ngay một phương thức thanh toán thuận tiện nhất. Đặt trước – trả sau! Sau khi được đặt giá vé sẽ không thay đổi, và bạn có thể thanh toán nhanh chóng bằng: thẻ tín dụng, tài khoản Ngân Lượng, chuyển khoản hoặc bằng tiền mặt ngay tại văn phòng công ty chúng tôi. Xem toàn bộ hình thức thanh toán
[tại đây](http://avia.vn/phuong-thuc-thanh-toan) **Dịch vụ khách hàng ưu việt**
Tư vấn viên tại Call Center của AVIA.vn sẽ giúp đỡ và hỗ trợ từng khách hàng trong toàn bộ quá trình lên kế hoạch cho một chuyến du lịch. Tư vấn viên của chúng tôi với nhiều năm kinh nghiệm sẽ giúp bạn tìm được các lựa chọn bay tốt nhất tại thời điểm tư vấn. Chúng tôi đảm bảo bạn sẽ hài lòng với chất lượng dịch vụ của chúng tôi. Hãy sử dụng dịch vụ của AVIA.vn!
**Call Center phục vụ tất cả các ngày một tuần: Thu 2-Thu 6: 8:00-19:30, Thu 7: 9:00-14:00.**

X-XSS-Protection: 1; mode=block

X-Content-Type-Options: nosniff

Cache-Control: no-cache

Pragma: no-cache

X-Download-Options: noopen

Access-Control-Allow-Methods: GET,POST,OPTIONS,HEAD

X-Frame-Options: SAMEORIGIN

X-a-t: WM

Strict-Transport-Security: max-age=31536000; includeSubDomains

Access-Control-Allow-Headers: Content-Type,X-Requested-With

Vary: Accept-Encoding


text:
Việc làm 24 giờ
3.900.000 đ TP.HCM Ngày 15/04/2013 Mã tin: 16071211
Tin được duyệt bởi Trà My
Mức lương:
3.900.000 đ
Tin đã hết hạn hoặc giao dịch đã thành công
Công ty chúng tôi mới mở thêm chi nhánh mới cần tuyển 1 số vị tri sau:
03 nam nữ trực nghe điện thoại
04 nam nũ bán hàng tiêu dùng,card điện thoại
05 cộng tác viên kinh doanh
06 nhân viên phát triển thị trường
không cần kinh nghiệm không giới hạn độ tuổi. gặp anh tín 0936571079
03 nam nữ trực nghe điện thoại
04 nam nũ bán hàng tiêu dùng,card điện thoại
05 cộng tác viên kinh doanh
06 nhân viên phát triển thị trường
không cần kinh nghiệm không giới hạn độ tuổi. gặp anh tín 0936571079
Tin được duyệt bởi Trà My
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
Tin rao vặt tương tự
-
4.000.000 đQuận 9, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.200.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.200.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
Tin đã xem
ĐĂNG TIN RAO VẶT MIỄN PHÍ

markdown:
# Việc làm 24 giờ
3.900.000 đ TP.HCM Ngày 15/04/2013 Mã tin: 16071211
Tin được duyệt bởi
**Trà My**
Mức lương:
3.900.000 đ
Tin đã hết hạn hoặc giao dịch đã thành công
Công ty chúng tôi mới mở thêm chi nhánh mới cần tuyển 1 số vị tri sau:
03 nam nữ trực nghe điện thoại
04 nam nũ bán hàng tiêu dùng,card điện thoại
05 cộng tác viên kinh doanh
06 nhân viên phát triển thị trường
không cần kinh nghiệm không giới hạn độ tuổi. gặp anh tín 0936571079
03 nam nữ trực nghe điện thoại
04 nam nũ bán hàng tiêu dùng,card điện thoại
05 cộng tác viên kinh doanh
06 nhân viên phát triển thị trường
không cần kinh nghiệm không giới hạn độ tuổi. gặp anh tín 0936571079
Tin được duyệt bởi
**Trà My**
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
#### Tin rao vặt tương tự
-
4.000.000 đQuận 9, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.200.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.200.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
-
4.000.000 đQuận Thủ Đức, TP.HCM 08/02/2016 08/02/2016 4.000.000 đ
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
#### Tin đã xem
ĐĂNG TIN RAO VẶT MIỄN PHÍ

Cache-Control: private

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

Set-Cookie: mbv_cookie_detail=16071211; expires=Sat, 07-May-2016 17:00:00 GMT; path=/


text:
Oasisspa cần tuyền quản lý Spa tại KS 5 sao,
Huyện Từ Liêm - Hà Nội Ngày 26/07/2012 Mã tin: 12770178
Tin được duyệt bởi Mỹ Linh
Tin đã hết hạn hoặc giao dịch đã thành công
Oasisspa cần tuyền quản lý Spa tại KS 5 sao, y/c có kinh nghiệm về Spa, biết tiếng Anh & Chịu cac trách nhiệm:
• Dịch vụ khách hàng, tiếp thị, quan hệ khách hàng
• Kết quả KD (doanh số thu , chi)
• Quản lý nv, tuyển dụng & huấn luyện, đào tạo nhân viên
• Tư vấn dịch vụ cho khách hàng.
• Chịu trách nhiệm chung cho việc giữ gìn và có chiến lược phát triển Spa
Mức lương: thỏa thuận.LH: Chị Phượng, Tel. 0913541346/ 0988581815
• Dịch vụ khách hàng, tiếp thị, quan hệ khách hàng
• Kết quả KD (doanh số thu , chi)
• Quản lý nv, tuyển dụng & huấn luyện, đào tạo nhân viên
• Tư vấn dịch vụ cho khách hàng.
• Chịu trách nhiệm chung cho việc giữ gìn và có chiến lược phát triển Spa
Mức lương: thỏa thuận.LH: Chị Phượng, Tel. 0913541346/ 0988581815
Thông tin nhà tuyển dụng
-
Loại hình công việc:Toàn thời gian cố định
-
Tuổi:0 - 0
-
Giới tính:Nữ
-
Bằng cấp:-
-
Ngoại ngữ:Tiếng Anh
-
Vị trí:-
-
Kinh nghiệm:-
Tin được duyệt bởi Mỹ Linh
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
Tin rao vặt tương tự
-
5.000.000 đHuyện Từ Liêm, Hà Nội 19/08/2015 19/08/2015 5.000.000 đ
-
3.000.000 đHuyện Từ Liêm, Hà Nội 19/08/2015 19/08/2015 3.000.000 đ
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
Tin đã xem
ĐĂNG TIN RAO VẶT MIỄN PHÍ

markdown:
# Oasisspa cần tuyền quản lý Spa tại KS 5 sao,
Huyện Từ Liêm - Hà Nội Ngày 26/07/2012 Mã tin: 12770178
Tin được duyệt bởi
**Mỹ Linh**
Tin đã hết hạn hoặc giao dịch đã thành công
Oasisspa cần tuyền quản lý Spa tại KS 5 sao, y/c có kinh nghiệm về Spa, biết tiếng Anh & Chịu cac trách nhiệm:
• Dịch vụ khách hàng, tiếp thị, quan hệ khách hàng
• Kết quả KD (doanh số thu , chi)
• Quản lý nv, tuyển dụng & huấn luyện, đào tạo nhân viên
• Tư vấn dịch vụ cho khách hàng.
• Chịu trách nhiệm chung cho việc giữ gìn và có chiến lược phát triển Spa
Mức lương: thỏa thuận.LH: Chị Phượng, Tel. 0913541346/ 0988581815
• Dịch vụ khách hàng, tiếp thị, quan hệ khách hàng
• Kết quả KD (doanh số thu , chi)
• Quản lý nv, tuyển dụng & huấn luyện, đào tạo nhân viên
• Tư vấn dịch vụ cho khách hàng.
• Chịu trách nhiệm chung cho việc giữ gìn và có chiến lược phát triển Spa
Mức lương: thỏa thuận.LH: Chị Phượng, Tel. 0913541346/ 0988581815
Thông tin nhà tuyển dụng
-
Loại hình công việc:Toàn thời gian cố định
-
Tuổi:0 - 0
-
Giới tính:Nữ
-
Bằng cấp:-
-
Ngoại ngữ:Tiếng Anh
-
Vị trí:-
-
Kinh nghiệm:-
Tin được duyệt bởi
**Mỹ Linh**
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
#### Tin rao vặt tương tự
-
5.000.000 đHuyện Từ Liêm, Hà Nội 19/08/2015 19/08/2015 5.000.000 đ
-
3.000.000 đHuyện Từ Liêm, Hà Nội 19/08/2015 19/08/2015 3.000.000 đ
Để tin của bạn có nhiều người xem hơn
- Không thanh toán tiền trước khi nhận hàng
- Kiểm tra hàng cẩn thận trước khi mua
- Giao dịch ở nơi công cộng
#### Tin đã xem
ĐĂNG TIN RAO VẶT MIỄN PHÍ

Set-Cookie: mbv_cookie_detail=12770178; expires=Sat, 07-May-2016 17:00:00 GMT; path=/


text:
Alepidocline
Bách khoa toàn thư mở Wikipedia
Alepidocline là một chi thực vật có hoa trong họ Cúc (Asteraceae).[1]
Loài[sửa | sửa mã nguồn]
Chi Alepidocline gồm các loài:
Chú thích[sửa | sửa mã nguồn]
- ^ The Plant List (2010). “Alepidocline”. Truy cập ngày 25 tháng 9 năm 2013.
Liên kết ngoài[sửa | sửa mã nguồn]
- Phương tiện liên quan tới Alepidocline tại Wikimedia Commons
- Dữ liệu liên quan tới Alepidocline tại Wikispecies

markdown:
*Alepidocline*
Bách khoa toàn thư mở Wikipedia
|
|Alepidocline
|
|[Giới](/wiki/Gi%E1%BB%9Bi_(sinh_h%E1%BB%8Dc))( *regnum*) [Plantae](/wiki/Th%E1%BB%B1c_v%E1%BA%ADt) [Angiospermae](/wiki/Th%E1%BB%B1c_v%E1%BA%ADt_c%C3%B3_hoa) [Eudicots](/wiki/Th%E1%BB%B1c_v%E1%BA%ADt_hai_l%C3%A1_m%E1%BA%A7m_th%E1%BA%ADt_s%E1%BB%B1) [Bộ](/wiki/B%E1%BB%99_(sinh_h%E1%BB%8Dc))( *ordo*) [Asterales](/wiki/B%E1%BB%99_C%C3%BAc) [Họ](/wiki/H%E1%BB%8D_(sinh_h%E1%BB%8Dc))( *familia*) [Asteraceae](/wiki/H%E1%BB%8D_C%C3%BAc) [Chi](/wiki/Chi_(sinh_h%E1%BB%8Dc))( *genus*) **Alepidocline** * là một chi Alepidocline* [thực vật có hoa](/wiki/Th%E1%BB%B1c_v%E1%BA%ADt_c%C3%B3_hoa)trong [họ Cúc](/wiki/H%E1%BB%8D_C%C3%BAc)(Asteraceae). [[1]](#cite_note-1)
## Loài[
[sửa](/w/index.php?title=Alepidocline&veaction=edit&vesection=1) | [sửa mã nguồn](/w/index.php?title=Alepidocline&action=edit§ion=1)]
Chi
*Alepidocline* gồm các loài:
## Chú thích[
[sửa](/w/index.php?title=Alepidocline&veaction=edit&vesection=2) | [sửa mã nguồn](/w/index.php?title=Alepidocline&action=edit§ion=2)] **The Plant List (2010).** [^](#cite_ref-1) [“](http://www.theplantlist.org/browse/A/Compositae/Alepidocline). Truy cập ngày 25 tháng 9 năm 2013. *Alepidocline*”
## Liên kết ngoài[
[sửa](/w/index.php?title=Alepidocline&veaction=edit&vesection=3) | [sửa mã nguồn](/w/index.php?title=Alepidocline&action=edit§ion=3)]
Phương tiện liên quan tới
[Alepidocline](//commons.wikimedia.org/wiki/Category:Alepidocline)tại [Wikimedia Commons](/wiki/Wikimedia_Commons)
Dữ liệu liên quan tới
[Alepidocline](//species.wikimedia.org/wiki/Alepidocline)tại [Wikispecies](/wiki/Wikispecies)

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

Via: 1.1 varnish, 1.1 varnish

Content-Language: vi

X-UA-Compatible: IE=Edge

X-Cache: cp1055 miss(0), cp1054 frontend miss(0)

Vary: Accept-Encoding,Cookie

Accept-Ranges: bytes


text:
La Villetelle
Bách khoa toàn thư mở Wikipedia
Tọa độ: 45°55′11″B 2°20′30″Đ / 45,9197222222°B 2,34166666667°Đ
La Villetelle là một xã thuộc tỉnh Creuse trong vùng Limousin miền trung nước Pháp.
Dân số[sửa | sửa mã nguồn]
Xem thêm[sửa | sửa mã nguồn]
Tham khảo[sửa | sửa mã nguồn]
- ^ La Villetelle on the Insee website (tiếng Pháp)
Liên kết ngoài[sửa | sửa mã nguồn]
- La Villetelle on the Quid website (tiếng Pháp)

markdown:
# La Villetelle
Bách khoa toàn thư mở Wikipedia
[Tọa độ](/wiki/H%E1%BB%87_t%E1%BB%8Da_%C4%91%E1%BB%99_%C4%91%E1%BB%8Ba_l%C3%BD): [45°55′11″B 2°20′30″Đ / 45,9197222222°B 2,34166666667°Đ](//tools.wmflabs.org/geohack/geohack.php?language=vi&pagename=La_Villetelle¶ms=45.9197222222_N_2.34166666667_E_region:FR_type:city(176))
|
|
|Hành chính|
|
| ![ Quốc kỳ Pháp](//upload.wikimedia.org/wikipedia/commons/thumb/c/c3/Flag_of_France.svg/18px-Flag_of_France.svg.png)
![ Quốc kỳ Pháp](http://upload.wikimedia.org/wikipedia/commons/thumb/c/c3/Flag_of_France.svg/18px-Flag_of_France.svg.png)
[Pháp](/wiki/Ph%C3%A1p) [Vùng](/wiki/V%C3%B9ng_c%E1%BB%A7a_Ph%C3%A1p) [Limousin](/wiki/Limousin) [Tỉnh](/wiki/T%E1%BB%89nh_c%E1%BB%A7a_Ph%C3%A1p) [Creuse](/wiki/Creuse) [Quận](/wiki/Qu%E1%BA%ADn_c%E1%BB%A7a_Ph%C3%A1p) [Aubusson](/wiki/Aubusson_(qu%E1%BA%ADn)) [Tổng](/wiki/T%E1%BB%95ng_c%E1%BB%A7a_Ph%C3%A1p) [Xã (thị) trưởng](/wiki/Th%E1%BB%8B_tr%C6%B0%E1%BB%9Fng)
(2008–2014)
[Độ cao](/wiki/Cao_%C4%91%E1%BB%99)
(bình quân 650 m/2.130 ft)
1 2(6,23 sq mi) [Nhân khẩu](/wiki/Nh%C3%A2n_kh%E1%BA%A9u_Ph%C3%A1p) 2 [Mật độ](/wiki/M%E1%BA%ADt_%C4%91%E1%BB%99_d%C3%A2n_s%E1%BB%91) 2(28 /sq mi) [INSEE](/wiki/M%C3%A3_INSEE)/Mã bưu chính [23266](http://recensement.insee.fr/searchResults.action?zoneSearchField=&codeZone=23266-COM)/ [23260](/w/index.php?title=Danh_s%C3%A1ch_c%C3%A1c_m%C3%A3_b%C6%B0u_ch%C3%ADnh_%E1%BB%9F_Ph%C3%A1p&action=edit&redlink=1) 1Dữ liệu địa chính Pháp loại trừ các hồ và ao lớn hơn 1 km² (0.386 dặm vuông hoặc 247 [acre](/wiki/Acre)) cũng như các cửa sông. 2 *Dân số không tính hai lần*: cư dân của nhiều xã (ví dụ, các sinh viên và quân nhân) chỉ tính một lần. **La Villetelle** là một [xã](/wiki/X%C3%A3_c%E1%BB%A7a_Ph%C3%A1p) thuộc [tỉnh](/wiki/T%E1%BB%89nh_(Ph%C3%A1p)) [Creuse](/wiki/Creuse) trong [vùng](/wiki/V%C3%B9ng_c%E1%BB%A7a_Ph%C3%A1p) [Limousin](/wiki/Limousin) miền trung nước [Pháp](/wiki/Ph%C3%A1p).
## Dân số[
[sửa](/w/index.php?title=La_Villetelle&veaction=edit&vesection=1) | [sửa mã nguồn](/w/index.php?title=La_Villetelle&action=edit§ion=1)]
|1962||1968||1975||1982||1990||1999||2005|
|235||265||224||193||188||171||176|
|Census count starting from 1962
|
## Xem thêm[
[sửa](/w/index.php?title=La_Villetelle&veaction=edit&vesection=2) | [sửa mã nguồn](/w/index.php?title=La_Villetelle&action=edit§ion=2)]
## Tham khảo[
[sửa](/w/index.php?title=La_Villetelle&veaction=edit&vesection=3) | [sửa mã nguồn](/w/index.php?title=La_Villetelle&action=edit§ion=3)] [^](#cite_ref-1) [La Villetelle on the Insee website](http://www.recensement.insee.fr/RP99/rp99/co_navigation.co_page?nivgeo=C&codgeo=23266&theme=ALL&typeprod=ALL&lang=FR&quelcas=LISTE) **(tiếng Pháp)**
## Liên kết ngoài[
[sửa](/w/index.php?title=La_Villetelle&veaction=edit&vesection=4) | [sửa mã nguồn](/w/index.php?title=La_Villetelle&action=edit§ion=4)] [La Villetelle on the Quid website](http://www.quid.fr/communes.html?mode=detail&id=20304&req=La+Villetelle) **(tiếng Pháp)**

X-Cache: cp1065 miss(0), cp1054 frontend miss(0)