viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )

0 bình luận về “viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )”

1. program tao_tep;

   uses crt;

   var f:text;

         n,i:integer;

   begin

          clrscr;

          Assign(f,’huanvo.DAT’);  rewrite(f);

          write(‘Nhap N: ‘);  readln(n);

          for i:=1 to n do write(f,i,’ ‘);

          close(f);

   end.

   Bình luận

2. var i,n, temp: longint; Arr: array[1..100000000] of longint;
   begin
       write(‘Nhap so N: ‘);
       readln(n);
       for i:=1 to n do 
       begin
           write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
           readln(Arr[i]);
       end;
       
       assign(output,’huanvo.DAT’);
       rewrite(output);
       
       for i:=1 to n do write(Arr[i],’ ‘);
   end.

   Bình luận