B1;

program B1;
uses crt;
var x,y,z:integer;
Begin
        clrscr;
        writeln('(10+5)/(3+1)-18/(5+1) = ',(10+5)/(3+1)-18/(5+1):2:1);
        write('x = ');readln(x);
        write('y = ');readln(y);
        write('z = ');readln(z);
        writeln('x^2/(3+y)-(5+7)/(8+y)+z = ',x*x/(3+y)-(5+7)/(8+y)+z:2:1);
        readln
End.

B2;

hình vuông

program hinh_vuong;
uses crt;
var a,S,cv:real;
Begin
        clrscr;
        write('a = ');readln(a);
        S:=a*a;
        cv:=a*4;
        writeln('Dien tich = ',S:2:2);
        write('Chu vi = ',cv:2:2;
        readln
End.

hình chữ nhật

program chu_nhat;
uses crt;
var a,b,S,cv:real;
Begin
        clrscr;
        write('a = ');readln(a);
        write('b = ');readln(b);
        S:=a*b;
        cv:=(a+b)*2;
        writeln('Dien tich = ',S:2:2);
        write('Chu vi = ',cv:2:2);
        readln
End.

hình thang

program hinh_thang;
uses crt;
var a,b,c,d,h,cv,S:real;
Begin
    clrscr;
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    write('d = ');readln(d);
    write('h = ');readln(h);
    cv:=a+b+c+d;
    S:=h*((a+b)/2);
    writeln('Dien tich  = ',s:2:2);

    write('Chu vi  = ',cv:2:2);
    readln
End.

hình tròn

program hinh_tron;
uses crt;
var r,S,cv:real;
Begin
        clrscr;
        write('R = ');readln(R);
        S:=sqr(r)*pi;
        cv:=2*pi*r;
        writeln('Dien tich = ',S:2:2);
        write('Chu vi = ',cv:2:2);
        readln
End.

Bài 1 :

- Chương trình 1 :

uses crt;

begin

clrscr;

write('Gia tri bieu thuc = ', (10 + 5) / (3 + 1) - 18 /(5 + 1) : 2 : 1);

readln

end.

- Chương trình 2 :

uses crt;

var x, y, z : integer;

begin

clrscr;

write('Nhap x, y, z = '); readln(x, y, z);

write('Gia tri bieu thuc = ', x * x / (3 + y) - (5 + 7) / (8 + y) + z : 2 : 1);

readln

end.

Bài 2 :

- Chương trình 1 :

uses crt;

var a : integer;

begin

clrscr;

write('Nhap canh hinh vuong = '); readln(a);

writeln('Chu vi hinh vuong = ', a * 4);

writeln('Dien tich hinh vuong = ', a * a);

readln

end.

- Chương trình 2 :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap chieu dai, chieu rong = '); readln(a, b);

writeln('Chu vi hinh chu nhat = ', (a + b) * 2);

writeln('Dien tich hinh chu nhat = ', a * b);

readln

end.

- Chương trình 3 :

uses crt;

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

begin

clrscr;

write('Nhap 3 canh tam giac : '); readln(a, b, c);

writeln('Chu vi tam giac = ', a + b + c : 2 : 1);

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

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

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

readln

end.

- Chương trình 4 :

uses crt;

var a, b, c, d, h : real;

begin

clrscr;

write('Nhap 4 canh hinh thang, chieu cao = '); readln(a, b, c, d, h);

writeln('Chu vi hinh thang = ', a + b + c + d : 2 : 1);

writeln('Dien tich hinh thang = ', 0.5 * h * (a + b) : 2 : 1);

readln

end.

- Chương trình 5 :

uses crt;

var r : real;

begin

clrscr;

write('Nhap ban kinh = '); readln(r);

writeln('Chu vi hinh tron = ', 2 * r * pi : 2 : 1);

writeln('Dien tich hinh trong = ', r * r * pi : 2 : 1);

readln

end.