Chào mừng các bạn
»»-((¯`·(¯`vŽ¯)--»*** MasterSpy *** «--(¯`vŽ¯)·`¯))-«« - Chương trình quản lý số điện thoại !
ღLONELYღ
  Home
  => Cách tạo một trang web cho riêng mình !
  => Một số địa chỉ trang web hay dành cho bạn, ....cho tôi !
  => 5 bước cơ bản để diệt tận gốc Spyware
  => 10 điều “lính mới” nên biết
  => 10 bước để lập kế hoạch cho nghề nghiệp tương lai của bạn
  => 15 LỜI KHUYÊN HỌC TIẾNG ANH
  => 21 kho lưu dữ liệu miễn phí trên Internet
  => PHƯƠNG PHÁP XỬ LÝ LOGIC VỊ TỪ
  => 50 cuốn sách văn học cần đọc
  => Những bài học từ Adam Khoo
  => Dùng Admodify.net để quản trị và phục hồi Exchange 2003
  => Cuộc đời của Albert Einstein
  => Cảnh giác với hacker và keylogger!
  => Phần mềm miễn phí giúp bảo vệ computer khi online
  => Học thi - cần ăn uống hợp lý
  => Hacker “oánh” mỗi PC chỉ mất 39 giây
  => Xác định nguyên nhân máy tính tự khởi động !
  => Diệt virus Autorun
  => Bấm dây mạng !
  => Bảo vệ mắt khi sử dụng máy tính !
  => Blog ra đời như thế nào?
  => Bài tập Pascal kiểu bản ghi !
  => Hướng dẫn ôn tập lập trình Pascal căn bản !
  => Cách Diệt Virus
  => Cách gỡ bỏ thủ công Symantec Antivirus an toàn (Phần I)
  => Tổng hợp các lệnh ngoài DOS
  => Cài HIREN BOOTCD vào ổ cứng để cứu hộ
  => Cài windows media player 11 ( không cần active window)
  => Cấu hình mạng ADSL cho người dùng tại nhà
  => Thiết Lập Sevice trong windows XP (giúp máy chạy nhanh hơn)
  => Giới Thiệu Centos
  => Chẩn đoán lỗi của màn hình !
  => Chọn DNS truy cập mạng !
  => Kinh nghiệm phòng chống virus, spyware
  => Trắc nghiệm nghiệp vụ kế toán bằng tiếng Anh !
  => Hướng dẫn chụp hình bằng webcam
  => Tổng Hợp Code Dùng Trong Việc Tạo BLOG
  => Công dụng của các dịch vụ trong Windows
  => Sử dụng Popcap game mãi mãi !
  => Cử nhân CNTT không làm CNTT
  => Tìm hiểu DNS.Các bước thiết lập khi mới đăng ký tên miền
  => Làm DNS server online
  => Nội dung định nghĩa về vật chất của Lê Nin
  => Đọc và ... suy nghĩ !
  => Đôi điều về bảo mật hệ thống mạng trong công ty!
  => Khắc phục lỗi 999 Error của Yahoo
  => Chuyển dữ liệu của ổ C từ FAT32 thành NTFS
  => Gỡ password CMOS bằng cách nào?
  => Phần I: Cơ bản về lỗi "màn hình xanh" trong Windows
  => Tổng quan về Group Policy - từ đơn giản đến phức tạp !
  => Gửi nhiều file qua Yahoo Mail
  => Từ XP cài Hacao Linux 2.16 Pro (file ISO) vào đĩa cứng (LiveCD)
  => Chịu thuế và không chịu thuế
  => Hội thảo qua mạng với NetMeeting
  => HOST Free
  => Hướng dẫn download trên megaupload
  => KGB nén File từ 450MB còn 1.43MB rất tiện chia sẻ file trên mạng
  => Khắc phục rớt mạng liên tục
  => Kiến trúc Oracle
  => Thành công trên giảng đường đại học
  => Kỹ thuật Photoshop cơ bản !
  => Kinh nghiệm học tiếng ANH
  => KInh nghiệm học TOÁN CAO CẤP
  => Đôi điều về quá trình làm luận văn (Phần 2)
  => Làm theme cho Blog 360
  => Chia sẻ những điều học được từ cách làm việc theo nhóm
  => Vạch kế hoạch cho tương lai
  => Các Lệnh Cơ Bản trong LINUX
  => Lịch sử các nước ĐẾ QUỐC
  => Lịch sử Việt Nam
  => Links những trang web hay
  => Tạo mail server online bằng IP Động
  => Tự làm giao diện cho Yahoo Mash!
  => Mấy điểm cần tránh
  => Hỏi về IPHONE
  => Máy tính không khởi động từ ổ đĩa cứng!...?
  => MIÊU TẢ SẢN PHẨM MÁY IN hp1320
  => Phá Deep Freeze - Cướp lấy password!!!
  => Những "tuyệt chiêu" chọn mua laptop cũ
  => NHỮNG NGUYÊN TẮC CƠ BẢN CỦA BÁO CHÍ
  => Tìm hiểu nhân của hệ điều hành Linux
  => Sửa lỗi NTLDR is missing
  => Ổ cứng chóng hỏng vì... điều hòa nhiệt độ
  => Những phím tắt thông dụng trong Photoshop 7.0
  => Phím tắt trong WORDS
  => Bí mật của PHỤ NỮ
  => Hướng dẫn post hình lên mạng, và 1 số website để upload hình
  => Chương trình quản lý số điện thoại !
  => Quản lý các mạng Windows dùng script - Phần 2: Hoàn chỉnh script -
  => Cấu hình cho máy in N2500
  => Xóa nick của mình trong Friend List của người khác
  => Rollback Rx Pro:
  => User và pass của một số router
  => Giải pháp sao lưu trực tuyến miễn phí (Phần cuối)
  => Vài điều về Scanner
  => Chọn hệ điều hành của bạn
  => Làm server online tận dụng đường truyền ADSL
  => Thuật toán - Cấu trúc dữ liệu
  => So sánh Oracle và SQL Server ?
  => Cấu hình các công nghệ bảo vệ mạng Windows XP SP2 trên một máy tính
  => Tổng quan về tiết kiệm điện khi sử dụng máy tính !
  => Phần IV: Xử lý sự cố phần cứng
  => CÁC VẤN ĐỀ VỀ SỨC KHỎE PHỤ NỮ
  => Sử dụng phím tắt với Internet Explorer 7
  => SỰ PHÁT TRIỂN CỦA SINH VẬT
  => Nguồn gốc máng cỏ giáng sinh
  => Sưu tầm câu đố !
  => SVCHOST
  => Phòng chống virus cho mạng máy tính doanh nghiệp: kinh nghiệm thực tế
  => Các lệnh căn bản trong ngôn ngữ html
  => Sức mạnh của card đồ họa !
  => Cách tải Nhạc nét
  => Triết học và tâm sự của các nhà giáo
  => Phát triển chiều cao
  => Tăng tốc toàn bộ máy tính bằng tay
  => Tăng tốc WinXP
  => Chống mất cắp cho laptop với Laptop Alarm
  => Tạo file ghost!
  => Tạo một CSS layout từ một bản thiết kế (Phần 1 đến 8)
  => Tạo nick ảo trong Yahoo Messenger
  => Tết Đoan Ngọ bắt đầu từ giữa trưa
  => Thói quen tốt: Nghĩ vậy mà không phải vậy
  => Thomas Edison & những phát minh vĩ đại -
  => Windows Vista: các thủ thuật nhỏ khi sử dụng
  => Thủ thuật Blog 360
  => Thủ thuật Internet Explorer 7
  => Thủ thuật tăng tốc cho Windows
  => Thủ thuật Visual basic
  => Thủ thuật Yahoo! Messenger
  => Yahoo Messenger
  => Khám phá mạng xã hội Yahoo! Mash
  => Mẹo tìm kiếm
  => Tìm kiếm trong Excel
  => Tóc hợp khuôn mặt
  => Tokyo - Một chuyến đi
  => Mười quy luật then chốt về Bảo mật
  => Tổng hợp tất cả các kỹ thuật vượt tường lửa
  => Trang trí USB
  => Thuật toán - Cấu trúc dữ liệu CRC (Cyclic Redundancy Check)
  => Các Tuyệt kỹ khiến phái nữ phải ngã lòng
  => CÁCH UP ẢNH QUA HOST TẠI DIỄN ĐÀN
  => Quản lý danh sách bạn chat trong Yahoo! Messenger
  => Error Doctor 2007
  => TuneUp Utilities® 2007
  => Bộ gõ tiếng Việt: Unikey
  => Hướng dẫn viết bài
  => Tường lửa mới trong Windows Vista và Windows Server Longhorn
  => Web 2.0 không chỉ là công nghệ
  => Các website hữu ích về du học bậc sau đại học tại Hoa Kỳ
  => Wi-fi và an toàn thông tin
  => Thuật toán - Cấu trúc dữ liệu So khớp chuỗi với các ký tự wildcard
  => Xóa địa chỉ và homepage
  => USB không cho ghi
  => Yêu cầu của Quản trị mạng
  => Cách Add Feed trong Blog 360
  => Cách tạo theme trong suốt
  => Đề cương KT-Chính Trị
  Contact
  Guestbook
  Story
  Kiếm tiền thật dễ dàng

Biển xanh ... cát trắng

 

 

program QLSDT;
uses crt;
type
   ttkh=record
       makh,hoten,sdt,diachi:string[35];
       end;
   mangkh=array[1..50] of ttkh;
var
 i,j,n,k:integer;
 kh:mangkh;
 tg:ttkh;
 ans,choice:char;
 dt:string;
{---------------------------------------------------}
procedure nhap;
 begin
    i:=0;
    repeat
     i:=i+1;
     clrscr;
     writeln('Nhap Thong Tin Kh thu ',i,':');
     with kh[i] do
       begin
         write('+ Nhap ma khach hang:');readln(makh);
         write('+ Nhap ho ten :');readln(hoten);
         write('+ Nhap dia chi:');readln(diachi);
         write('+ Nhap so dien thoai:');readln(sdt);
       end;
     write('continue (y/n)?');readln(ans);
   until upcase(ans)='N';
   n:=i;
 end;
 
{----------------------------------------------------}
procedure inds;
 begin
    clrscr;
    writeln('      DANH SACH KHACH HANG      ');
 
 writeln('+------+----------------+--------------------+----------+');
    writeln('|Ma Kh |    Ho va ten   |     Dia Chi        | So DT |');
 
 writeln('+------+----------------+--------------------+----------+');
    for i:=1 to n do with kh[i] do
    writeln('|',makh:6,'|',hoten:16,'|',diachi:20,'|',sdt:10,'|');
 
 writeln('+------+----------------+--------------------+----------+');
    readln;
 end;
{----------------------------------------------------}
procedure sapxep;
begin
 for i:=1 to n-1 do
   for j:=i+1 to n do if (kh[i].sdt>kh[j].sdt) then
    begin
     tg:=kh[i];
     kh[i]:=kh[j];
     kh[j]:=tg;
    end;
end;
{-----------------------------------------------------}
procedure tim;
begin
 clrscr;
 write('Nhap so dien thoai can tim:');readln(dt);
 i:=1;
 while (i<=n) and (kh[i].sdt<>dt) do i:=i+1;
 if (i<=n) then with kh[i] do
   begin
    writeln('Thong tin khach hang thu ',i,':');
    writeln('+ Ma khach hang:',makh);
    writeln('+ Ho va ten:',hoten);
    writeln('+ Dia chi:',diachi);
    writeln('+ So dien thoai:',sdt);
   end
 else
    write('Khong ton tai SDT:',dt);
 readln;
end;
{----------------------------------------------------}
procedure chen;
begin
 clrscr;
 write('Nhap vi can chen k:');readln(k);
 n:=n+1;
 i:=n;
 while (i>k) do
 begin
   kh[i]:=kh[i-1];
   i:=i-1;
 end;
 writeln('Nhap thong tin khach hang thu ',k,':');
 with kh[i] do
 begin
   write('+ Ma khach hang:');readln(makh);
   write('+ ho va ten:');readln(hoten);
   write('+ Nhap dia chi:');readln(diachi);
   write('+ Nhap so dien thoai:');readln(sdt);
 end;
 
end;
{---------------------------------------------------}
procedure xoa;
begin
 clrscr;
 write('Nhap vi tri can xoa k:');readln(k);
 i:=k;
 while i<n do
 begin
   kh[i]:=kh[i+1];
   i:=i+1;
 end;
 n:=n-1;
end;
{---------------------------------------------------}
{chuong trinh chinh}
begin
 repeat;
 clrscr;
 writeln('    CHUONG TRINH QUAN LY SO DIEN THOAI');
  writeln('---------------------------------------------');
 writeln('Chon cong viec:');
 writeln('1. Nhap khach hang dang ky');
 writeln('2. In danh sach khach hang');
 writeln('3. Sap xep khach hang theo SDT');
 writeln('4. Tim khach hang theo SDT');
 writeln('5. Chen khach hang');
 writeln('6. Xoa khach hang');
 writeln('7. Thoat khoi chuong trinh');
 write('Ban chon viec nao?(1,2,3,4,5,6,7)');readln(choice);
 case choice of
   '1':nhap;
   '2':inds;
   '3':sapxep;
   '4':tim;
   '5':chen;
   '6':xoa;
   end;
 until choice='7';
end.
Today, there have been 13 visitors (45 hits) on this page!
=> Do you also want a homepage for free? Then click here! <=
Đến với thành phố biển Vũng Tàu