Bắt đầu học tập với ngôn ngữ lập trình Pascal

Bắt đầu học tập với ngôn ngữ lập trình Pascal

Bài tập hướng dẫn lập trình Pascal

Bắt đầu với NNLT Pascal

1. Khởi động Borland Pascal

Chạy chương trình Borland Pascal hoặc Turbo Pascal để có được phần cửa sổ soạn thảo chương trình:

Bài tập hướng dẫn lập trình Pascal

 2. Soạn thảo và chạy chương trình Hello đơn giản

Chọn menu File từ menu của Pascal, chọn New để tạo mới một file chương trình.

Soạn thảo chương trình sau vào file chương trình hiện tại.

Program Ctrinh_Hello;   { Khai bao ten chuong trinh             }

                        { Luu y: Ten khong su dung khoang trang }

Var i,j :Integer;       { Khai bao bien i,j la kieu so nguyen   }

{  Than chuong trinh chinh  }

BEGIN

     Writeln('Hello !');  { In ra dong chu Hello don gian }

     Readln;              { Dung lai cho nhan phim Enter  }

END. { End ket thuc chuong trinh, ket thuc bang dau cham. }

 Kết quả của quá trình soạn thảo

 Biên dịch chương trình : Nhấn F9

Pascal sẽ xuất hiện cửa sổ thông báo tình trạng biên dịch.

+ Trường hợp biên dịch thành công (không có lỗi):

 + Trường hợp biên dịch không thành công, xuất hiện lỗi: Pascal sẽ thông báo thông tin về lỗi và dòng xuất hiện lỗi. Tùy theo lỗi mà có chỉnh sủa phù hợp.

Chạy chương trình : Nhấn Ctrl+F9, kết quả chương trình

 3. Các thao tác chính trên môi trường lập trình Pascal

  • Mở file source code chương trình đã có: nhấn F3, sau đó chọn đường dẫn, và tên file cần mở.
  • Lưu lại chương trình đang soạn thảo: nhấn F2 để lưu chương trình, nếu chương trình chưa được đặt tên, Pascal sẽ yêu cầu đặt tên cho chương trình.
  • Biên dịch chương trình: F9
  • Biên dịch và chạy chương trình: Ctrl+F9.
  • Các thao tác trên khối dữ liệu:
    • Chọn vùng: Nhấn phím Shift + phím mũi tên để chọn vùng.
    • Copy: Ctrl + Insert
    • Paste: Shift+Insert

Ngoài ra, các thao tác này có thể được chọn lựa từ menu chính của chương trình.

4. Viết chương trình đổi tiền

Yêu cầu: Nhập một số tiền N đồng, đổi ra xem được bao nhiêu tờ 5 đồng, bao nhiêu tờ 2 đồng, bao nhiêu tờ 1 đồng sao cho tổng số tờ là ít nhất.

Ví dụ: N = 43đ = 8 tờ 5đ + 1 tờ 2đ + 1 tờ 1đ. Cách tính như sau:

        Số tờ 5đ = 43 div 5 = 8

        Số tiền dư = 43 mod 5 = 3

        Số tờ 2đ = Số tiền dư div 2 = 3 div 2 =1

        Số tờ 1đ = Số tiền dư mod 2 = 3 mod 2 = 1

        Dưới đây là chương trình cụ thể:

Chương trình:

Program VIDU4_1;

Var     N, st5, st2, st1, sodu: LongInt;      {  Khai bao cac bien su dung  }

BEGIN

Write( 'Nhap so tien: ' ); Readln( N );     {  Nhap gia tri cho bien N  }

st5 := N div 5;           {  div dung de chia lay gtri nguyen tra ve}

Sodu := N mod 5;          {  mod dung de lay so du con lai }

st2 := Sodu div 2;

st1 := Sodu mod 2;

Writeln( 'KET QUA DOI TIEN LA: ' );       { In ket qua cua cac bien }

Writeln( 'So to 5d= ', st5 );

Writeln( 'So to 2d= ', st2 );

Writeln( 'So to 1d= ', st1 );

Readln;

END.

Kết quả chương trình sau khi nhấn Ctrl+F9 và nhập số tiền là 127.

Bạn thấy bài viết này như thế nào?: 
Average: 7.5 (75 votes)
Ảnh của Binh Tran Thanh

Drupal Consultant

Started my career as a drupal8 developer in EM Solutions . I love learning Web technologies like HTML, CSS, PHP, Jquery Ajax and Drupal backend . Currently working as a drupal backend developer.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 

Hướng dẫn Integrating multisite Drupal với Apache Solr

Using this approach, you create an unique Solr core (N.B. a single Solr application can contain 0 or more cores) per site and either:

Ủy Ban Châu Âu sẽ offering bug bounties cho các Open Source software

Ủy Ban Châu Âu sẽ offering bug bounties cho các Open Source software

The European Commission worked with the Drupal Security Team to set aside 89,000€ (or roughly $100,000 USD) for a Drupal bug bounty.

Nguyễn Thành Nhân - người Việt trẻ thành danh ở Google

Nguyễn Thành Nhân - người Việt trẻ thành danh ở Google

Ở thung lũng công nghệ cao Silicon, Mỹ có nhiều người Việt Nam trẻ tuổi đang làm việc cho tập đoàn công nghệ hàng đầu thế giới - Google. Họ đang thành công với công việc của mình ở xứ người, nhưng vẫn ấp ủ ngày trở về.

Wordpress Freelancer

 

Wordpress Freelancer