1) Nhập vào 2 cạnh của hình chữ nhật. Tính và in ra màn hình chu vi và diện tích hình chữ nhật đó.
2) Nhập vào bán kính hình tròn. Tính và in ra màn hình diện tích và chu vi hình tròn đó. ( Cho biết Chu vi = đường kính x pi , diện tích = \(\left(bánkính\right)^2\) x pi )
3) Viết chương trình nhập vào 2 số a, b. So sánh 2 số đó.
4) Viết chương trình nhập vào 2 số a, b. Sắp xếp 3 số đó theo thứ tự tăng dần.
1)Program HINH_CHU_NHAT; Uses Crt; Var a,b,s,c: real; Begin Clrscr; Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘--------------------------------------------------------------‘); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); s:=a*b; c:=(a+b)*2; Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln; End.
2)Program HINHTRON; Uses Crt; Var r,dt,cv:real; Begin Clrscr; Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln('------------------------------------------------------'); Write ('Nhap ban kinh R='); readln(r); dt:=pi*r*r; cv:=2*pi*r; Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End.
3)uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a,b: '); readln(a,b);
if a>b then write(a,' lon hon ',b)
else if a<b then write(a,' nho hon ',b)
else if a=b then write(a,' bang ',b);
4) XIN LỖI BN CÂU NÀY MK KO BIẾT .
CHÚC BẠN HỌC TỐT!
1:
uses crt;
var d,r,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln('chu vi la: ',cv);
writeln('dien tich la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
2:
uses crt;
var r:integer;
cv,dt:real;
begin
clrscr;
write('nhap ban kinh:'); readln(r);
cv:=r*2*pi;
dt:=sqr(r)*pi;
writeln('chu vi hinh tron la: ',cv);
writeln('dien tich hinh tron la: ',dt);
readln;
end.
3:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln(a,' bang ',b);
readln;
end.
4:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a>b then writeln(b,' ',a)
else if b>a then writeln(a,' ',b)
else writeln('hai so bang nhau');
readln;
end.
1) Nhập vào 2 cạnh của hình chữ nhật.Tính và in ra màn hình chu vi và diện tích hình chữ nhật đó. a.Tìm Input và Output b.Mô tả thuật toán c.Viết chương trình dựa vào thuật toán đó.
2) Nhập vào bán kính hình tròn. Tính và in ra màn hình diện tích và chu vi hình tròn đó. ( Cho biết Chu vi = đường kính x pi , diện tích = x pi ).
3) Viết chương trình nhập vào 2 số a, b. a.So sánh 2 số đó. b.Viết đoạn chương trình sử dụng câu lệnh If...the...else
4) Viết chương trình nhập vào 2 số a, b. a.Sắp xếp 3 số đó theo thứ tự tăng dần. b.Viết đoạn chương trình sử dụng câu lệnh If...the...else
~~THÊM CÂU HỎI PHỤ NHÁ~~
MONG MN GIÚP Ạ
