BÀI TẬP 9: VẬN TỐC TRUNG BÌNH

Một xe máy cần phải đi một đoạn đường S được chia ra thành N phần bằng nhau. Gọi a1, a2, a3, aN là vận tốc trung bình của xe máy trong từng chặng Nl, N2, N3, N tương ứng. Em hãy tính vận tốc trung bình của xe máy trên cả đoạn đường S.

Nhập dữ liệu từ file VTTB.INP gồm có:

Dòng 1: Số nguyên N (N <= 10^{^}6)

Dòng 2: Các số nguyên a1, a2, a3, aN trong khoảng 10^{^}6

In ra file VTTB.OUT một số thực duy nhất (làm tròn tới số thập 

phân thứ hai) là vận tốc trung bình mà xe máy di chuyển trong cả 

đoạn đường s.

Ví dụ:

VTTB.INP	VTTB.OUT
2 16 24	19.20
3 12 16 26	16.28

CODE THAM KHẢO: (in ra màn hình)

program Van_toc_Tb;

uses crt;

var V: array[1..1000000] of integer;

    i,n: integer;

    v_tb:real;

begin

    clrscr;

    write('Nhap N = '); readln(n);

    for i:=1 to n do

    begin

        write('Nha v_tb a',i,': ');

        readln(V[i]);

    end;

    v_tb:=0;

    for i:=1 to n do v_tb:=v_tb+1/V[i];

    write('Van toc trung binh la: ',n/v_tb:2:2);

    readln;

end.

XỬ LÝ TRÊN FILE:

program Van_toc_Tb;

const fi = 'VTTB.INP';

      fo = 'VTTB.OUT';

var V: array[1..1000000] of integer;

    i,n: integer;

    v_tb:real;

    f: text;

begin

    assign(f,fi); reset(f);

    read(f,n);

    for i:=1 to n do read(f,V[i]);

    close(f);

    assign(f,fo); rewrite(f);

    v_tb:=0;

    for i:=1 to n do v_tb:=v_tb+1/V[i];

    write(f,n/v_tb:2:2);

    close(f);

end.