Viết chương trình nhập vào họ tên của một người và xuất ra màn hình dòng chữ xin chao bạ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?
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.
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 ; 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 |