Viết chương trình nhập vào ngày tháng năm. In ra màn hình ngày sau ngày vừa nhập.

0 bình luận về “Viết chương trình nhập vào ngày tháng năm. In ra màn hình ngày sau ngày vừa nhập.”

1. Program xinlike;

   uses crt;

   Var  x,y,z,T:integer;

   begin

   clrscr;

   Writeln(‘nhap ngay thang nam sinh);

   Readln(x,y,z);

   T:=x+1;

   writeln(‘ngay hom sau la’,T,’/’,y,’/’,z);

   readln;

   end.

   Bình luận

2. program inngay

   uses crt;

   var ngay, d, m, y: integer;

   BEGIN

   clrscr;

   Write(‘Nhap ngay: ‘); Readln(d);

   Write(‘Nhap thang: ‘); Readln(m);

   Write(‘Nhap nam: ‘); Readln(y);

   CASE m of 

   1,3 4, 5, 6, 10,12: ngay:=31;

   4,6,9,11: ngay:= 30

   2: ((y mod 100=0) and (y mod 400=0)) or (y mod 4=0) then ngay:=29 else ngay:=28;

   end;

   if (d + 1 > ngay) and (m <> 12)then m:=m+1 else begin

   y:=y+1;

   m:=1;

   d:=1;

   end;

   Writeln(‘Ngay sau ngay vua nhap la: ‘,d,’/’,m,’/’,y);

   readln;

   END.

   Bình luận