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
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. 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.
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.
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.
Viết chương trình Pascal:
In ra màn hình dòng chữ "Chao cac ban"
{1} Program In_ra_man_hinh;
{2} Uses crt;
{3} Begin
{4} clrscr;
{5} Writeln['Chao cac ban'];
{6} Readln;
{7} End.
{1} Lệnh "Program" là từ khóa khai báo tên chương trình; "In_ra_man_hinh" là tên do người lập trình tự đặt
{2} Lệnh "Uses crt" để khai báo thư viện để sử dụng các lệnh cho màn hình
{3} Lệnh "Begin" lệnh bắt đầu phần thân chương trình
{4} Lệnh "clrscr" dùng để làm sạch màn hình trước khi xuất kết quả
{6} Lệnh "Writeln['Chao cac ban']" In ra màn hình dọng chữ "Chao cac ban"
{7} Lệnh "End" kết thúc chương trình
Lưu ý: Sau mỗi lệnh đều có dấu ";" để kết thúc lệnh đó. Riêng lệnh End cuối cùng luôn là dấu "."
Hay nhất
Program BT ;
var i : Integer ;
begin
for i := 1 to 10 do
writeln [ ' Nguyen Ngoc Minh Thu ' , i ] ;
readln ;
end.
Sơ đồ tư duy là gì [Tin học - Lớp 6]
3 trả lời
Sơ đồ tư duy là gì? [Tin học - Lớp 6]
1 trả lời
Chọn câu lệnh đúng [Tin học - Lớp 8]
1 trả lời
Cho biết ý nghĩa của câu lệnh sau [Tin học - Lớp 8]
1 trả lời
Các câu lệnh sau, câu lệnh nào hợp lệ [Tin học - Lớp 8]
1 trả lời
Sơ đồ tư duy là gì [Tin học - Lớp 6]
3 trả lời
Sơ đồ tư duy là gì? [Tin học - Lớp 6]
1 trả lời
Chọn câu lệnh đúng [Tin học - Lớp 8]
1 trả lời
Cho biết ý nghĩa của câu lệnh sau [Tin học - Lớp 8]
1 trả lời
Các câu lệnh sau, câu lệnh nào hợp lệ [Tin học - Lớp 8]
1 trả lời
1. Viết chương trình đơn giản: In ra màn hình 2 dòng chữ:
TRUONG THCS ....
CHAO CAC BAN HOC SINH LOP 8
Mik cần gấp lắm ạ huhu
Cảm ơn mn nhiều