Viết chương trình đọc từ tệp “BAITAP.DAT”. Hãy tìm các số nguyên chẵn và lưu vào tệp văn bản “SOCHAN.DAT”

0 bình luận về “Viết chương trình đọc từ tệp “BAITAP.DAT”. Hãy tìm các số nguyên chẵn và lưu vào tệp văn bản “SOCHAN.DAT””

1. program so_chan;

   var f,g:text;

        so:integer;

   begin

          Assign(f,’BAITAP.DAT’);  reset(f);

          Assign(g,’SOCHAN.DAT’);  rewrite(g);

          while not eof(f) do

                 begin

                        read(f,n);

                        if n mod 2=0 then write(g,n,’ ‘);

                 end;

          close(f);  close(g);

   end.

   Bình luận

2. var f1, f2: text;

          a: longint;

   Begin

       Assign(f1, ‘baitap.dat’); reset(f1);

       Assign(f2, ‘sochan.dat’); rewrite(f2);

       While not eof(f1) do

           Begin

               While eoln(f1) do readln(f1);

               Read(f1, a);

               If a mod 2=0 then write(f2, a, ‘ ‘);

           End;

        Close(f1); close(f2);

   End.

   Bình luận