*Tổng hiệu thương của 2 số a và b:
program tht;
uses crt;
var tong, hieu, thuong: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
tong:=a+b;
hieu:=a-b;
thuong:=a/b;
writeln('Tong 2 so: ', tong);
writeln('Hieu 2 so: ', hieu);
writeln('Thuong 2 so: ', thuong);
readln
end.
*Chu vi và diện tích hình chữ nhật, hình tròn, hình vuông:
>> Chu vi hình chữ nhật:
program CV_hcn;
uses crt;
var cv, a, b: real;
begin
clrscr;
writeln('Nhap chieu dai cua canh a: '); readln(a);
writeln('Nhap chieu rong cua canh b: '); readln(b);
cv:=(a+b)*2;
writeln('Chu vi hinh chu nhat la: ', cv);
readln
end.
>> Diện tích hình chữ nhật:
program DT_hcn;
uses crt;
var s, a, b: real;
begin
clrscr;
writeln('Nhap chieu dai canh a: '); readln(a);
writeln('Nhap chieu rong canh b: '); readln(b);
s:=a*b;
writeln('Dien tich hinh chu nhat la: ', s);
readln
end.
>> Chu vi hình tròn:
program CV_hinh_tron;
uses crt;
var cv, r: real;
begin
clrscr;
writeln('Nhap chieu dai cua ban kinh r: '); readln(r);
cv:=2*r*pi;
writeln('Chu vi hinh tron la: ', cv);
readln
end.
>> Diện tích hình tròn:
program dt_htron;
uses crt;
var s, r: real;
begin
clrscr;
writeln('Nhap chieu dai ban kinh r: '); readln(r);
s:=r*r*pi;
writeln('Dien tich hinh tron la: ', s);
readln
end.
>> Chu vi hình vuông:
program cv_hv;
uses crt;
var cv, a: real;
begin
clrscr;
writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);
cv:=4*a;
writeln('Chu vi hinh vuong la: ', cv);
readln
end.
>> Diện tích hình vuông:
program DT_hv;
uses crt;
var s, a: real;
begin
clrscr;
writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);
s:=a*a;
writeln('Dien tich hinh vuong la: ', s);
readln
end.
