Câu 1: 

a) (sqr(x)+1)+1/x

b) x+y*sqr(y)

c) (2*sqr(a) + 2*sqr(c) - a)/4

d) (x+y)/(x-y).

Câu 2:

Input: Biến a (Cạnh) kiểu integer.

Output: Biến S (diện tích) kiểu integer, P (chu vi) kiểu integer.

Mô tả thuật toán: 

var S, P, a: integer;

BEGIN

 readln(a); *Nhập giá trị cạnh a*

 S:=sqr(a); /*Binh phương cạnh của hình vuông là diện tích*/

 P:=a*4 *Cạnh*4 là chu vi hình vuông*

 writeln(S, ' ' P); *Đưa giá trị của Diện tích (dấu cách) Chu vi ra màn hình*

 readln;

END.

Câu 1 :

a) (a * a +1) - 3 / a

b) x + y * y * y

c) (2 * a * a + 2 * c * c - a) / 4

d) (x + y) / (x - y)

Câu 2 :

* Xác định bài toán :

- Input : cạnh a

- Output : diện tích và chu vi hình vuông

* Mô tả thuật toán :

- Bước 1 : nhập độ dài cạnh a

- Bước 2 : cv ← a * 4

- Bước 3 : s ← a * a

- Bước 4 : xuất giá trị cv và s

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

cv := a * 4;

s := a * a;

writeln('chu vi hinh vuong : ', cv);

writeln('dien tich hinh vuong : ', s);

readln

end.