viết chương trình dịch các ngày trong tuần ra tiếng anh

0 bình luận về “viết chương trình dịch các ngày trong tuần ra tiếng anh”

1. program ctpt;

   uses crt;

     var tuan: integer;

   begin

               clrscr;

               write(‘Nhap bat ki 1 thu trong tuan: ‘); readln(thu);

               case thu of

                        2 : write(‘Thu hai – Monday’);

                        3 : write(‘Thu ba – Tuesday’);

                        4 : write(‘Thu tu – Wednesday‘);

                        5 : write(‘Thu nam – Thursday’);

                        6 : write(‘Thu sau – Friday’);

                        7 : write(‘Thu bay – Saturday’);

                        8 : write(‘Chu nhat – Sunday’);

                        else write(‘Nhap sai!’);

               end;

               readln

   end.

   Bình luận

2. uses crt; Var n:byte; begin clrscr; write(‘Nhap thu can dich: ‘); readln(n); case n of 2: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Monday’); 3: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Tuesday’); 4: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Wednesday’); 5: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Thursday’); 6: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Friday’); 7: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Saturday’); 8: Write(‘Thu ‘,n,’Dich sang tieng Anh la: Sunday’); else Write(‘Thu nay ko hop le’); end; readln end.

   Bình luận