Một file văn bản có tên là DATA.TXT Lưu trữ số liệu về độ cao h của vật rơi tự do (Mỗi số trên 1 dòng) Em hãy thực hiện các yêu cầu sau:
-Đọc từ tệp DATA.TXT Độ cao h của vật rơi tự do sau đó tính vận tốc của vật v=√2gh
Biết (g=9,8m/s^2)
-Ghi vận tốc của vật sang tệp VANTOC.DAT( Kết quả làm tròn tới 4 chữ số thập phân)
Const Fi=’DATA.TXT’;
Fo=’VANTOC.DAT’;
Var f,g: text;
h: extended;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,h);
Write(g,sqrt(2*9.8*h):0:2);
Close(f);
Close(g);
End.