Viết phương trình nhập vào năm sinh cho biết người đó bao nhiêu tuổi
|
Uses crt; Var a, b, c ,d:integer; Begin clrscr ; Write('nhap a, b, c,d'); readln(a,b,c,d); If a <18 then write('LA Thieu nien '); If b >= 18 Else b<=39 then write('LA Thanh nien '); If c>=40 Else c<=60 then write ('LA thing nien '); If d >60 then write ('LA Lao nien '); Readln; End. program hc;
#include }  1 trả lời Với n là số nguyên nhập vào từ bàn phím (Tin học - Lớp 7) 2 trả lời Mã hoá hai số là 11 và 15 (Tin học - Lớp 6) 3 trả lời Mã hóa các số sau: 11 ; 15 (Tin học - Lớp 6) 3 trả lời Bạn sử dụng tạo đoạn video trên Youtube? (Tin học - Lớp 3) 1 trả lời
1. Vt chương trình nhập vào năm sinh của 1 ng và cho biết ng đó đã đủ tuổi để vào đại học chưa ( biết rằng vào đại học khi 18 tuổi trở lên). 2. Vt chương trình nhập vào một số nguyên từ bàn phím và thông báo đó là số nguyên âm hay nguyên dương. 3. Vt chương trình nhập vào hai số bất kì từ bàn phím, thông báo cho biết số nào lớn hơn. 4. Vt chương trình nhập vào một số nguyên từ bàn phím, thông báo số vừa nhaajplaf chẵn hay số lẻ. 5. Vt chương trình nhập vào điểm trung bình của ba môn Toán, Văn, Tiếng Anh cho biết ng đó có đậu vào lớp 10 hay k, biết rằng điểm chuẩn vào lớp 10 là 20 điểm. Các câu hỏi tương tự
Viết chương trình nhập vào tuổi của một người và cho biết người đó là thiếu niên, thanh niên, trung niên hay lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18 đến 39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên. Mọi người giúp mik nha Các câu hỏi tương tự
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. |
