viết thuật toán(bằng liệt kê hoặc sơ đồ khối )
a, tính chu vi và diện tích hình chữ nhật biết chiều dài a và chiều rộng b (a,b được nhập từ bàn phím )
b, tính bình phương của 1 số nguyên dương x
viết thuật toán(bằng liệt kê hoặc sơ đồ khối )
a, tính chu vi và diện tích hình chữ nhật biết chiều dài a và chiều rộng b (a,b được nhập từ bàn phím )
b, tính bình phương của 1 số nguyên dương x
a)
var a,b:integer;
begin
write(‘Nhap chieu dai: ‘); readln(a);
write(‘Nhap chieu rong ‘); readln(b);
writeln(‘Chu vi : ‘,(a+b)*2);
write(‘Dien tich : ‘,a*b);
readln;
end.
b)
var x:integer;
begin
write(‘Nhap x: ‘); readln(x);
write(‘BInh phuong cua x la: ‘,x*x);
readln;
end.
a)
var a,b:longint;
begin
write(‘Nhap chieu dai: ‘); readln(a);
write(‘Nhap chieu ong ‘); readln(b);
writeln(‘Chu vi la: ‘,2*(a+b));
write(‘Dien tich la: ‘,a*b);
readln
end.
b)
var x:longint;
begin
write(‘Nhap x: ‘); readln(x);
write(‘BInh phuong cua x la: ‘,x*x);
readln
end.