Viết chương trình pascal tính tuổi

1. Bài toán:

Yêu cầu: Viết chương trình nhập vào năm sinh của bạn và tính xem bạn bao nhiêu tuổi?

• Input: Nhập năm sinh của bạn
• Output: In ra màn hình tuổi của bạn

2. Thuật toán:

Bước 1. Nhập thông tin;

• Bước 1.1. Nhập năm sinh của bạn;
• Bước 1.2. Nhập năm hiện tại;

Bước 2. Xử lý: Tuổi = Năm hiện tại - năm sinh;
Bước 3. Xuất dữ liệu ra màn hình.

3. Code Pascal:

Program Tinh_Tuoi;
uses crt;
var 
    namsinh, namhientai,tuoi: Integer;
Begin
  clrscr;  
  write('Nhap nam sinh cua ban: ');
  readln(namsinh);
  namhientai := 2021;
  writeln('Nam hien tai: ',namhientai);
  tuoi := namhientai - namsinh;
  writeln('Ban sinh nam ',namsinh,' => Hien tai ban ',tuoi,' tuoi!');
  readln; 
End.

Code lấy năm của hệ thống

Program Tinh_Tuoi;
uses crt, sysutils;			{Khai báo thêm sysutils}
var year, month, day:Word;	{Khai báo thêm year, month, day:Word;}
    namsinh, namhientai,tuoi: Integer;
Begin
  clrscr;  
  write('Nhap nam sinh cua ban: ');
  readln(namsinh);
  DecodeDate(Date,year,month,day); 	 {Thêm thủ tục DecodeDate}
  namhientai := year;
  writeln('Nam hien tai: ',namhientai);
  tuoi := namhientai - namsinh;
  writeln('Ban sinh nam ',namsinh,' => Hien tai ban ',tuoi,' tuoi!');
  readln; 
End.

4. Giải thích Code:

5. Kết quả Pascal:

Dùng Ctrl + F9 để chạy chương trình và màn hình kết quả như sau

Kết luận:
◈ Bài này chúng ta chỉ xét ở 2 mức độ lấy năm hiện tại là nhập trực tiếp và sử dụng năm của hệ thống nhé!
◈ Nói thêm về thủ tục DecodeDate
Procedure DecodeDate(
Date: TDateTime;
out Year: Word;
out Month: Word;
out Day: Word
);
➺ Ta thấy khi ta khai báo trong chương trình các biến year, mont, day bắt buộc khai báo word vì hàm DecodeDade được khai báo là word.