hãy viết chương trình tính và thông báo ra màn hình chu vi và diện tích của hình vuông biết độ dài cạnh hình vuông(kiểu số nguyên dương) đc nhập từ bp. Hãy viết ctrinh tính và thông báo ra mh vận tốc rơi tự do của vật biết công thức tính vt là v= √2gh trong đó g là gia tốc rơi tự do (g=9.8 m/s) và h là độ cao của vật(kiểu số nguyêndương) đc nhập từ bp

bài 1

program chuvivadientich;

uses crt;

var a,s,p: integer;

begin

clrscr;

s:=0;

p:=0;

writeln('nhap do dai canh cua hinh vuong',a);

readln(a);

s:=a*a;

p:=4*a;

write('chu vi cua hinh vuong la',p); readln(p);

write('dien tich cua hinh vuong la',s);

readln

end.

Bài 1:

uses crt;

var a,DT,CV: integer;

Begin

clrscr;

Write('Nhap chieu dai canh: a= '); readln(a);

CV:=a*4;

DT:=a*a;

writeln('Chu vi la: ',CV,' cm');

writeln('Dien tich la: ',DT,' cm2');

readln

end.

Bài 2:

uses crt;

var v,g,h: real;

Begin

clrscr;

Write('Nhap do cao: h='); readln(h);

g:=9.8;

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

writeln('Van toc roi cua vat la: ',v:1:2,' m/s');

readln

end.