1. Bài toán:
2. Thuật toán:
Bước 1. Nhập thông tin;
Bước 2. Xử lý: Tuổi = Năm hiện tại - năm sinh;
- 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 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.
Code Lấy giá trị năm hiện tại từ hàm Now
Program TinhTuoi; uses crt,sysutils; var namSinh, namHienTai, tuoi: Integer; begin clrscr; writeln('Nhap nam sinh cua ban:'); readln(namSinh); namHienTai := StrToInt(FormatDateTime('yyyy', Now)); 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:
Dong code | Ý nghĩa |
---|---|
Program Tinh_tuoi; | Khai báo tên chương trình là Tinh_tuoi |
uses crt, sysutils; | Khai báo các hàm thư viện |
var year, month, day:Word; namsinh, namhientai,tuoi: Integer; |
Khai báo các biến cần sử dụng trong chương trình ◈ namsinh(Năm sinh), namhientai(Năm hiện tại), tuoi(Tuổi) theo kiểu số nguyên Integer ◈ year, mont, day bắt buộc khai báo word vì hàm DecodeDade được khai báo là word. |
clrscr; | Dùng để xóa màn hình khi chạy chương trình |
write('Nhap nam sinh cua ban: '); | In ra màn hình dòng Nhap nam sinh cua ban: |
readln(namsinh); | Nhập từ bàn phím để gán giá trị cho biến namsinh |
DecodeDate(Date,year,month,day); | DecodeDate giải mã Năm, Tháng và Ngày được lưu trữ trong Date và trả về chúng trong các biến Năm , Tháng và Ngày . |
namhientai := year; | Gán giá trị năm trong hàm DecodeDate vào biến namhientai |
writeln('Nam hien tai: ',namhientai); | In ra màn hình dòng chữ "Nam hien tai:" và in năm hiện tại ra màn hình |
tuoi:= namhientai - namsinh; | Gán giá trị cho biến tuoi(Tuổi) bằng namhientai(n=Năm hiện tại) trừ cho namsinh(Năm sinh) |
writeln('Ban sinh nam ',namsinh,' => Ban ',tuoi,' tuoi'); | In ra màn hình dòng chữ. Ví dụ: Ban sinh nam 1984 => Ban 36 tuoi. ▫ Bạn thấy 1984 là được lấy ra từ biến namsinh mà bạn đã nhập từ trên. ▫ 36 là được lấy ra từ biến tuoi được gán ở trên. |
readln; | Dừng màn hình khi chạy chương trình cho bạn xem. |
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
Không có nhận xét nào:
Đăng nhận xét