User Tag List

+ Trả lời chủ đề
Hiện kết quả từ 1 tới 4 của 4

Chủ đề: các bài pascal cơ bản

  1. #1
    Commander of Adamantine ! Avatar của Tử Phong
    Tham gia ngày
    Sep 2005
    Bài gửi
    3.442

    Mặc định các bài pascal cơ bản

    nhân có bạn hỏi về pascal (mà mình cũng đang học pascal nên post cho các bạn một số bài cơ bản)

    thủ tục sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort

    Mã:
    Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo      
                                                bằng từ khóa Type}
    Var i,j:integer;
    Begin
    for j:=1 to n-1 do
      for i:=n downto j+1 do
        if a[i]<a[i-1] then 
          Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
    End;

    Một người thông minh giống như một dòng sông ...
    ... càng sâu càng ít ồn ào ...

  2. #2
    Commander of Adamantine ! Avatar của Tử Phong
    Tham gia ngày
    Sep 2005
    Bài gửi
    3.442

    Mặc định

    thủ tục hoán đổi vị trí của hai số a,b,sử dụng một biến tg làm trung gian
    Mã:
    Procedure Swap(Var a,b:integer);
    Var tg:integer;
    Begin
      tg:=a;
      a:=b;
      b:=tg;
    End;

  3. #3
    Commander of Adamantine ! Avatar của Tử Phong
    Tham gia ngày
    Sep 2005
    Bài gửi
    3.442

    Mặc định

    Hàm tính giai thừa(loại cơ bản,áp dụng cho số nguyên dương n<=15)
    Mã:
    Function gt(n:byte):Longint;  
    Var
      s:Longint;
      i:byte;
    Begin
      s:=1
      For i:=2 to n do 
        s:=s*i;
      gt:=s;
    End;

  4. #4
    Commander of Adamantine ! Avatar của Tử Phong
    Tham gia ngày
    Sep 2005
    Bài gửi
    3.442

    Mặc định

    cách tính x^y(x lũy thừa y)
    Mã:
    Function GT(x,y:integer):Longint;
      Var 
        i:integer;
        s:longint;
      Begin
          s:=1;
          for i:=1 to y do
            s:=s*x;
          gt:=s;
      End;

+ Trả lời chủ đề

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube