Question

Lập trình tính và đưa ra màn hình vận tốc v khi chạm đất của vật rơi từ độ cao h,biết rằng v=\(\sqrt{2gh}\) ,trong đó g là gia tốc rơi tự do và g=9.8m/s². Độ cao h(m) được nhập vào từ bàn phím.

Answer 1

Program ct1;

Uses crt;

Var h:real;

Begin Writeln(‘Nhap vao do cao h ’);

Readln(h);

Writeln(‘Van toc khi cham dat la ’,sqrt(2*9.8*h));

End.

Answer 2

Chương trình tính và đưa ra màn hình vận tốc v:

Program tinh_van_toc;

Uses crt,

Constt g = 9.8;

Var v,h: real

Begin

Write('Nhap vao do cao h= ');

readln(h);

V:=sqrt(2*g*h);

write ('Van toc khi cham dat la V = ' , V: 10 : 2 ' , in/ s' )

readln

End.

Khi chạy chương trình, nếu h = 0.45 m thì vận tốc khi chạm đất V = 2.97m/s

nếu h = 1 m thì vận tốc khi chạm đất V = 4.4m/s

nếu h = 1.5 m thì vận tốc khi chạm đất V= 5.42m/s

nếu h = 2 m thì vận tốc khi chạm đất V = 6.26m/s

nếu h = 3 m thì vận tốc khi chạm đất V = 7.67m/s;

Kết quả chương trinh như hình dưới đây:

Answer 3

Program ct1;

Uses crt;

Var h:real;

Begin

Writeln(‘Nhap vao do cao h ’);

Readln(h);

Writeln(‘Van toc khi cham dat la ’,sqrt(2*9.8*h));

End.