Bài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong NămBài Tập Tin Chuẩn Hóa Xâu + Tìm Ra Số Ngày Giữa Hai Ngày Trong Năm
Hướng Dẫn Và Đáp Án Làm Bài: BÀI 1: Hướng Dẫn Theo Liên Kết: https://sites.google.com/view/mimosa22/trang-ch%E1%BB%A7/tin-h%E1%BB %8Dc-thcs/bdhsg/bdhsg-tin9/b%C3%A0i-t%E1%BA%ADp-1 program CountDays; Giải : uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end.Bài program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end program CountDays; uses crt; var a, b, c, x, y, truoc, i,SongayCT: Integer ; function Songaycuathang(t:Integer):Integer; begin if t = then Songaycuathang:=28 else if (t=4) or (t=6) or (t=9) or (t=11) then Songaycuathang:=30 else Songaycuathang:=31; end; begin Write('Nhap dau: '); readln(a, b, c); Write('Nhap sau: '); readln(x, y); SoNgayCT:=0; if y=b then SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x; end; Writeln; Writeln('So cong tac la: ',SoNgayCT); readln; end BÀI 2: Hướng Dẫn Theo Liên Kết: https://sites.google.com/view/mimosa22/trang-ch%E1%BB%A7/tin-h%E1%BB %8Dc-thcs/bdhsg/bdhsg-tin9/b%C3%A0i-t%E1%BA%ADp-2 ... SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x;... SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x;... SoNgayCT:=x-a+1; if y=b+1 then SoNgayCT:=Songaycuathang(b)-a+1 + x; if y>b+1 then begin truoc:=Songaycuathang(b)-a+1; for i:=b+1 to y -1 SoNgayCT:=SoNgayCT+Songaycuathang(i); SoNgayCT:=SoNgayCT+truoc+x;