Bài 3. Viết Chương Trình Tính Tuổi

Học lập trình dành cho người mới bắt đầu!

• ⦿ Home
• ⚙️ Study
• _ ➺ Phần mềm tiện ích
• ⚙️ TOOL TIỆN ÍCH
• _ ➺ Diện tích HCN
• _ ➺Tiền 1 tiết dạy GV
• _ ➺Giải PT bậc nhất
• _➺Giải PT bậc 2
• ✉ Liên hệ

✜ TIỆN ÍCH ONLINE

• ◈ Diện tích HCN
• ◈ Tiền 1 Tiết dạy GV
• ◈ Giải PT bậc nhất
• ◈ Giải PT bậc hai
• ◈ Tính tuổi của bạn
• ◈ Đếm ký tự
• ◈ Xoá dấu và thêm dấu "-"
• ◈ Kiểm tra số nguyên tố
• ◈ Tìm lại PTB2 ban đầu
• ◈ Chuyển đổi Hoa - Thường

💻 Software

• ◈ Sublime Text 4
• ◈ Turbo Pascal 7.0

↺ Xem nhiều

• Bài 3. Viết chương trình tính tuổi
• Bài 4. Viết chương trình tính tổng hiệu tích thương
• Bài 5. Viết chương trình tính diện tích hình tròn
• Bài 2. Viết chương trình xuất ra màn hình bài thơ
• Bài 1. Viết chương trình in bảng cửu chương với For Do
• Bài 3. Tìm min và max của hai số nguyên
• Bài 10. Viết chương trình in bản cửu chương từ 2 đến 9
• Bài 9. Tính điểm trung bình của học sinh
• Bài 6. Viết chương trình tính cạnh huyền tam giác vuông
• Bài 11. Diện tích hình thang

Home PASCAL CƠ BẢN Bài 3. Viết chương trình tính tuổi Bài 3. Viết chương trình tính tuổi PASCAL CƠ BẢN,

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.

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 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. Gửi email bài đăng nàyBlogThis!Chia sẻ lên XChia sẻ lên FacebookChia sẻ lên Pinterest Labels: PASCAL CƠ BẢN

Không có nhận xét nào:

Đăng nhận xét

Bài đăng Mới hơn Bài đăng Cũ hơn Trang chủ Đăng ký: Đăng Nhận xét (Atom)

☑ Trắc nghiệm

• ➙ Bài 1. Khái niệm lập trình và ngôn ngữ lập trình
• ➙ Bài 2. Các thành phần của ngôn ngữ lập trình
• ➙ Bài 3. Cấu trúc chương trình
• ➙ Bài 4. Một số kiểu dữ liệu chuẩn
• ➙ Bài 5. Khai báo biến
• ➙ Bài 6. Các phép toán, biểu thức, câu lệnh ghép
• ➙ Bài 7. Các thủ tục chuẩn vào ra đơn giản
• ➙ Bài 8. Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình
• ➙ Bài 9. Cấu trúc rẽ nhánh
• ➙ Bài 10. Cấu trúc lặp
• ➙ Bài 11. Kiểu mảng
• ➙ Bài 12. Kiểu xâu
• ➙ Bài 13. Kiểu bản ghi
• ➙ Bài 14. Kiểu dữ liệu tệp
• ➙ Bài 15. Thao tác với tệp
• ➙ Bài 16. Ví dụ làm việc với tệp
• ➙ Bài 17. Chương trình con và phân loại
• ➙ Bài 18. Ví dụ về cách viết và sử dụng chương trình con
• ➙ Bài 19. Thư viện chương trình con chuẩn

დ Hello các bạn!

➺ Xin chào các bạn ghé thăm blog. Mình không phải dân chuyên lập trình, mình chỉ là người thích lập trình. Blog lập ra với mục đích ghi lại những kiến thức mình học được. ➺ Một điều quan trọng khi học lập trình bạn cần phải nhớ là " Tư duy lập trình", còn ngôn ngữ lập trình chỉ là phương tiện đạt mà thôi!

✜ Chủ Đề

• CÂU LỆNH LẶP
• PASCAL CƠ BẢN
• Trắc Nghiệm
• ĐIỀU KIỆN - RẺ NHÁNH

✜ Menu

• ◉ Trang chủ
• ◉ Giới thiệu
• ◉ Điều khoản sử dụng
• ◉ Chia sẻ phần mềm
• ◉ Liên hệ

Copyright © Study Lập Trình