Câu 1: Viết chương trình Pascal nhập vào 2 cạnh của hình chữ nhật. Tính chu vi và diện tích của HCN đó
Câu 2: Viết phương trình Pascal tính giá trị biểu thức sau:
A= x^2+y^2+xy
với x,y là hai số từ bàn phím
Câu 1: Viết chương trình Pascal nhập vào 2 cạnh của hình chữ nhật. Tính chu vi và diện tích của HCN đó
Câu 2: Viết phương trình Pascal tính giá trị biểu thức sau:
A= x^2+y^2+xy
với x,y là hai số từ bàn phím
^_^
1.
uses crt;
var i,dai,rong:integer;
dt,cv:longint;
begin
clrscr;
write(‘Chieu dai = ‘);readln(dai);
write(‘Chieu rong = ‘);readln(rong);
dt := dai*rong;
cv := (dai + rong)*2;
writeln(‘ Dien tich la: ‘,dt);
writeln(‘ Chu vi la: ‘,cv);
readln;
end.
2.
uses crt;
var i,x,y,A:integer;
begin
clrscr;
write(‘x=’);readln(x);
write(‘y=’);readln(y);
A:= x*x + y*y + x*y;
writeln(‘A=’,A);
readln;
end.