Bài 1:

Uses crt;
Var 
    x,y,z: integer;
Begin
    clrscr;
    writeln('Gia tri cua bieu thuc (10+5)/(3+1)-18/(5 + 1) la: ',((10+5)/(3+1)-18/(5+1)):0:1);
    write('Nhap x: '); readln(x);
    write('Nhap y: '); readln(y);
    write('Nhap z: '); readln(z);
    writeln('Gia tri cua bieu thuc (x^2)/(3+y)-(5+7)/(8+y)+z la: ',((x*x)/(3+y)-(5+7)/(8+y)+z):0:1);
    readln;
End.

Bài 2:

Uses crt;
Var 
    n,a,b,c,d,e: integer;
Begin
    clrscr;
    writeln('1 - Hinh vuong');
    writeln('2 - Hinh chu nhat');
    writeln('3 - Hinh tam giac');
    writeln('4 - Hinh thang');
    writeln('5 - Hinh tron');
    write('Chon 1 trong cac lua chon tren: '); readln(n);
    if n=1 then 
        begin
        write('Nhap do dai canh: '); readln(a);
        writeln('Dien tich: ',a*a);
        writeln('Chu vi: ',a*4);
        end;
    if n=2 then 
        begin
        write('Nhap chieu dai: '); readln(a);
        write('Nhap chieu rong: '); readln(b);
        writeln('Dien tich: ',a*b);
        writeln('Chu vi: ',(a+b)*2);
        end;
    if n=3 then 
        begin
        write('Nhap canh thu nhat: '); readln(a);
        write('Nhap canh thu hai: '); readln(b);
        write('Nhap canh thu ba (canh day): '); readln(c);
        write('Nhap duong cao: '); readln(d);
        writeln('Dien tich: ',(1/2*c*d):0:1);
        writeln('Chu vi: ',a+b+c);
        end;
    if n=4 then 
        begin
        write('Nhap day lon: '); readln(a);
        write('Nhap day be: '); readln(b);
        write('Nhap chieu cao: '); readln(c);
        write('Nhap canh ben trai: '); readln(d);
        write('Nhap canh ben phai: '); readln(e);
        writeln('Dien tich: ',((a+b)*1/2*c):0:1);
        writeln('Chu vi: ',a+b+d+e);
        end;
    if n=5 then 
        begin
        write('Nhap ban kinh: '); readln(a);
        writeln('Dien tich: ',a*a*3.14);
        writeln('Chu vi: ',a*2*3.14);
        end;
    readln;
End.

Bài 1 :

uses crt;

var x, y, z, a, b : real;

begin

clrscr;

write('nhap gia tri x, y, z :');readln(x, y, z);

a := (10 + 5) / (3 + 1) - 18 / (5 + 1);

b := (x * x) / (3 + y) - (5 + 7) / (8 + y) + z;

writeln('gia tri bieu thuc 1 :', a:3:1);

writeln('gia tri bieu thuc 2 :', b:3:1);

readln

end.

Bài 2 :

* Hình vuông :

uses crt;

var a, dt, cv : integer;

begin

clrscr;

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

cv := a*4; dt := a*a;

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

writeln('dien tich hinh vuong la :', dt);

readln

end.

* Hình tròn :

uses crt;

var r, cv, s : real;

const pi = 3.14;

begin

clrscr;

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

cv := 2 * r * pi;

s := r * r * pi;

writeln('chu vi :', cv:3:1);

writeln('dien tich :', s:3:1);

readln

end.

* Hình chữ nhật :

uses crt;

var a, b, s, cv : integer;

begin

clrscr;

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

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

cv := (a + b) * 2;

s := a * b;

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

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

readln

end.

* Hình thang :

uses crt;

var dl, db, b1, b2, h, cv, s : real;

begin

clrscr;

write('nhap lan luot do dai day lon va day be :');readln(dl, db);

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

write('nhap lan luot do dai hai canh ben :');readln(b1, b2);

cv := dl + db + b1 + b2;

s := (dl + db) / 2 * h;

writeln('chu vi hinh thang :', cv:3:1);

writeln('dien tich hinh thang :', s:3:1);

readln

end.

* Hình tam giác :

uses crt;

var a, b, c, cv, s, p : real;

begin

clrscr;

write('nhap do dai ba canh tam giac :');readln(a, b, c);

cv := a + b + c;

p := (a + b + c) /2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln('chu vi tam giac :', cv:2:1);

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

readln

end.