Bài cơ bản về bản ghi, đọc sách là làm đc mà, chủ yếu là phải cần cù thôi, bạn cứ tự viế đi rồi post code lên mọi người sửa lỗi cho, chứ bảo ngồi làm thì mình chịu.
Mình chỉ giúp bạn đc đến thế này thôi: bài này bạn tao 4 cái thủ tục: nhạp, tinhdtb, xeploai, xuat.
Khai báo bản gi thì gồm 2 cái: ngaythang , hocsinh . các phần tử đưa vào mảng cho dễ quản lý. Động đến ngày sinh mà muốn làm code cẩn thận cũng mệt phết đó
Code:
repeat
write(' - Ngay thang nam sinh: ');readln(ngay,thang,nam);{kiem tra viec nhap ngay thang nam}
ch:=0; dk:=true;
if ((nam mod 400=0) and (nam>0)) or ((nam mod 4=0) and (nam mod 10<>0)) then ch:=1;
if (thang<1) or (thang>12) or ((ngay>31) and ((thang=1) or (thang=3) or (thang=5) or (thang=7)
or (thang=8) or (thang=10) or (thang=12))) or ((ngay>30) and ((thang=4) or (thang=6) or (thang=9)
or (thang=11)) or ((ngay>28) and (thang=2) and (ch=0))) or ((ngay>29) and (thang=2) and (ch=1))
then dk:=false;
until dk=true;