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 ) hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết

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 )
hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết thủ tục tính tổng các số nguyên có trong tệp đó

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 ) hãy đọc từ tệp huanvo.DAT dãy số nguyên . viết”

  1. var i,n, temp: longint; Arr: array[1..100000000] of longint;
    procedure TinhTong();
    var temp,kq: longint;
    begin
        assign(input,’huanvo.DAT’);
        reset(input);
        for i:=1 to n do read(temp);
        kq:=kq+temp;
        writeln;
        writeln(‘Tong la: ‘,kq);
    end;
    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],’ ‘);
        TinhTong();
    end.

    Bình luận
  2. uses crt;
    var f:text; n,i:longint; a:Array[1..1000000]of longint;
    function s(n:longint):longint;
    var i:longint;
    begin
       s:=0;
       for i:=1 to n do s:=s+a[i];
    end;
    begin
    clrscr;
       assign(f,’huanvo.DAT‘);reset(f);
          write(‘n=’);readln(n);
          for i:=1 to n do readln(f,a[i]);
       close(f);
       writeln(s(n));
    end.

    Bình luận

Viết một bình luận