viết thuật toán:
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:
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)program bai;
uses crt;
var a,b,p,s:real;
begin
writeln(‘Nhap a=’);readln(a);
writeln(‘Nhap b=’);readln(b);
s:=(a*b);
p:=((a+b)/2);
writeln(‘chu vi la:’,p:1:2);
writeln(‘Dien tich la:’,s:1:2);
readln;
end.
b)program binhphuong;
uses crt;
var x,i:integer;
begin
clrscr;
writeln(‘Nhap x=’);readln(x);
i:=x*x;
writeln(‘Binh phuong cua x la’,i);readln(i);
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.