viết chương trình con để a) Đọc từ tệp ‘VD1.inp’ số dương N b) Ghi lên tệp ‘VD2.inp’ số nguyên dương N GIÚP MK VỚI , MK CẢM ƠN Ạ

0 bình luận về “viết chương trình con để a) Đọc từ tệp ‘VD1.inp’ số dương N b) Ghi lên tệp ‘VD2.inp’ số nguyên dương N GIÚP MK VỚI , MK CẢM ƠN Ạ”

1. var f:text;

   n:longint;

   begin

   assign(f,’VD1.inp’);reset(f);readln(f,n);close(f);

   assign(f,’VD2.inp’);rewrite(f);

   write(f,n);

   close(f);

   end.

   Bình luận

2. Const Fi=’VD1.INP’;
         Fo=’VD2.OUT’;
   Var f,g: text;
       n: longint;
   Procedure nhap;
   Begin
           Assign(f,Fi); Reset(f);
           Read(f,n);
           Close(f);
   End;

   Procedure xuat;
   Begin
           Assign(g,Fo); Rewrite(g);
           Write(g,n);
           Close(g);
   End;

   Begin
           nhap;
           xuat;
   End.

   Bình luận