VCT kiểm tra xem a,b,c có lập thành 3 cạnh của tam giác không?
VCT tính các diện tích hình vuông, chữ nhật, tròn, hình thang
VCT kiểm tra xem a,b,c có lập thành 3 cạnh của tam giác không?
VCT tính các diện tích hình vuông, chữ nhật, tròn, hình thang
Bài 1:
Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
Clrscr;
Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then Write(‘Thoa man’)
Else Write(‘Khong thoa man’);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Const pi=3.14;
Var a,b,h,s,r: extended;
k: 1..4;
Begin
Clrscr;
Writeln(‘1. Hinh vuong: ‘);
Writeln(‘2. Hinh chu nhat: ‘);
Writeln(‘3. Hinh tron: ‘);
Writeln(‘4. Hinh thang: ‘);
Write(‘Chon hinh can tinh dien tich (1 -> 4): ‘); Readln(k);
If k=1 then
Begin
Write(‘Nhap do dai canh: ‘); Readln(a);
s:=sqr(a);
End;
If k=2 then
Begin
Write(‘Nhap chieu dai va chieu rong: ‘); Readln(a,b);
s:=a*b;
End;
If k=3 then
Begin
Write(‘Nhap ban kinh: ‘); Readln(r);
s:=sqr(r)*pi;
End;
If k=4 then
Begin
Write(‘Nhap do dai 2 day: ‘); Readln(a,b);
Write(‘Nhap chieu cao: ‘); Readln(h);
s:=(a+b)*h/2;
End;
Write(‘Dien tich cua hinh do la: ‘,s:0:2);
Readln
End.
1.
program phuongt;
uses crt;
var a, b, c: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap c = ‘); readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then write(‘Co’) else write(‘Khong’);
readln
end.
2.
program phuongt;
uses crt;
var a, b, r, h: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap r = ‘); readln(r);
write(‘Nhap h = ‘); readln(h);
writeln(‘Dien tich hinh vuong: ‘, a*a);
writeln(‘Dien tich hinh chu nhat: ‘, a*b);
writeln(‘Dien tich hinh tron: ‘, r*r*3.14);
write(‘Dien tich hinh thang: ‘, ((a+b)*h)/2);
readln
end.