Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong têpn ‘INPUT.TXT’ và ghi kqua vào tệp ‘KETQUA.TXT’ giúp mình với

0 bình luận về “Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong têpn ‘INPUT.TXT’ và ghi kqua vào tệp ‘KETQUA.TXT’ giúp mình với”

1. var f1,f2:text;
       a,b:integer;
   begin
      assign(f1,’INPUT.TXT’); reset(f1);
      assign(f2,’KETQUA.TXT’); rewrite(f2);
      while not eof(f1) do
      begin
         read(f1,a,b);
         write(f2,a+b);
      end;
      close(f1); close(f2);
   end.

   Bình luận

2. uses crt;
   var f,g:text;
       a:array[1..1000] of integer;
       n,i:byte;
       s:integer;
   Begin
   write(‘Nhap so cac so can doc: ‘); readln(n);
   assign(f,’input.txt’);
   reset(f);
   assign(g,’ketqua.txt’);
   rewrite(g);
   s:=0;
   for i:=1 to n do
    readln(f,a[i]);
   for i:=1 to n do
    s:=s+a[i];
   write(g,’Tong:’,s);
   close(f);
   close(g);
   readln;

   End.

   Bình luận