Viết chương trình tính tuổi thì làm sao ạ

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ốngProgram 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:Dong codeÝ nghĩaProgram Tinh_tuoi;Khai báo tên chương trình là Tinh_tuoiuses crt, sysutils;Khai báo các hàm thư việnvar 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ìnhwrite('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 namsinhDecodeDate(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 namhientaiwriteln('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ìnhtuoi:= 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.KHÔNG CÓ NHẬN XÉT NÀO:

ĐĂNG NHẬN XÉT

Bài đăng Mới hơnBài đăng Cũ hơn☑ 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
• ĐIỀU KIỆN - RẺ NHÁNH
• PASCAL CƠ BẢN
• Trắc Nghiệm

✜ MENU

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

Copyright © 2021 Study Lập Trình

xác định bài toán

input:nhập năm sinh

output:tuổi

b1:nhập năm sinh

b2:lấy năm hiện tại trừ năm sinh

vd bạn sinh năm 2007 thì tuổi của bạn là

lấy 2021-2007=14

b3 xuất kết quả

ví dụ pascal

program ct;

uses crt;

var namsinh,tuoi,namhientai:longint;

begin

clrscr;

write('nhap nam sinh: ');readln(namsinh);

write('nhap nam hien tai: ');readln(

tuoi:=namhientai-namsinh;

writeln('tuoi ban la: ',tuoi);

readln;

end.