Câu 1 :

uses crt;

var x : integer; a : real;

begin

clrscr;

write('nhap so nguyen x :');readln(x);

a := sqr(x + 2) - 24/(x + 1);

writeln('gia tri bieu thuc A = ', a:3:2);

readln

end.

Câu 2 :

uses crt;

var a, b, cv : integer;

begin

clrscr;

write('nhap chieu dai :');readln(a);

write('nhap chieu rong :');readln(b);

cv := (a + b) * 2;

writeln('chu vi hinh chu nhat ', cv);

readln

end.

Câu 3 :

uses crt;

var a, b, s : integer;

begin

clrscr;

write('nhap chieu dai  :');readln(a);

write('nhap chieu rong :');readln(b);

s := a * b;

writeln('dien tich hinh chu nhat ', s);

readln

end.

Câu 4 :

uses crt;

var a, b, cv : integer;

begin

clrscr;

write('nhap chieu dai :');readln(a);

write('nhap chieu rong :');readln(b);

cv := (a + b) ;

writeln('nua chu vi hinh chu nhat ', cv);

readln

end.

Câu 5 :

uses crt;

var a, cv : integer;

begin

clrscr;

write('nhap do da canh hinh vuong  :');readln(a);

cv := a * 4;

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

readln

end.

Câu 6 :

uses crt;

var a, s : integer;

begin

clrscr;

write('nhap do da canh hinh vuong  :');readln(a);

s := a * a;

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

readln

end.

Câu 7 :

uses crt;

var r, cv : real;

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh :');readln(r);

cv := 2 * r * pi;

writeln('chu vi hinh tron :', cv:3:2);

readln

end.

Câu 8 :

uses crt;

var r, s : real;

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh :');readln(r);

s := r * r * pi;

writeln('dien tich hinh tron :', s:3:2);

readln

end.

Câu 9 :

uses crt;

var a, h, s : real;

begin

clrscr;

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

write('nhap chieu cao tuong ung :');readln(h);

s := 0.5 * a * h;

writeln('dien tich tam giac la :', s);

readln

end.

Câu 11 :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

a := a + b;

b := a - b;

a := a - b;

writeln('sau hoan doi a = ', a ,' b = ', b);

readln

end.

Câu 12 :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

writeln('ket qua chia lay phan nguyen :', a div b);

readln

end.

Câu 13 :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

writeln('ket qua  chia lay phan du :', a mod b);

readln

end.

Câu 14 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

write('nhap so nguyen c :');readln(c);

writeln('trung binh cong ba so :', ((a + b + c)/3):3:1);

readln

end.

c1 viết chương trình nhập vao số nguyên A.tính và in ra màn hình biểu thức (x+2)^2-24/(x+1)

uses crt;

var x:real

begin

clrscr;

readln(x)

writeln(sqr(x+2)-24/(x+1);

readln

end.

c2 nhập vào 2 cạnh của hcn. in ra màn hình chu vi của nó

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln('cv',(a+b)*2);

readln

end.

c3 nhập vào 2 cạnh của hcn. in ra màn hình diện tích của nó

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln('S',a*b);

readln

end.

c4 nhập vào 2 cạnh của hcn. in ra màn hình nửa chu vi của nó

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln('S',(a*b)/2);

readln

end.

c5 nhập vào 1 cạnh của hv. in ra màn hình chu vi của nó

uses crt;

var a:real;

begin

clrscr;

readln(a);

writeln(a*4);

readln

end.

c6 nhập vào 1 cạnh của hV. in ra màn hình diện tích của nó

uses crt;

var a:real;

begin

clrscr;

readln(a);

writeln(sqr(a));

readln

end.

c7 nhập vào bán kính của 1 hình tròn.in ra màn hình chu vi của nó

uses crt;

var a:real;

const pi=3.14;

begin

clrscr;

readln(a);

writeln(a*2*pi);

readln

end.

c8 nhập vào bán kính của 1 hình tròn.in ra màn hình diện tích của nó

uses crt;

var a:real;

const pi=3.14;

begin

clrscr;

readln(a);

writeln(sqr(a)*pi);

readln

end.

C9 NHẬP VÀO 1 CẠNH VÀ 1 ĐƯỜNG CAO TƯƠNG ỨNG CỦA 1 HÌNH TAM GIÁC.IN RA MÀN HÌNH DIỆN TÍCH của nó

uses crt;

var a,h:real;

begin

readln(a,h);

writeln(1/2*a*h);

end;

c10 viết chương trình nhập vào 2 số nguyên A,B.in giá trị của chúng ra màn hình

var a,b:real;

begin

readln(a,b);

writeln(a,b);

end.

c11 viết chương trình nhập vào 2 số nguyên A,B.hoán đổi giâ trị của chungsa rồi in ra màn hình

var a,b,x:real;

begin

readln(a,b);

x:=a;

a:=b;

b:=x;

writeln(a,b);

end.

c12viết chương trình nhập vào 2 số nguyên A,B.in ra màn hình kết quả của phép chia lấy phần nguyên của A cho B

var a,b:longint;

begin

readln(a,b);

writeln(a div b);

end.

c13 viết chương trình nhập vào 2 số nguyên A,B.in ra màn hình kết quả phép chia lấy phần dư của A cho B

var a,b:longint;

begin

readln(a,b);

writeln(a mod b);

end;

c14 viết chương trình nhập vào 3 số nguyên A,B,C.In trung bình cộng của chúng ra màn hình

var a,b,c:real;

begin

readln(a,b,c);

writeln('tbc',(a+b+c)/3);

end.