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

2 câu trả lời

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.

Câu hỏi trong lớp Xem thêm