Kiểm tra 1 tiết

1: Viết chương trình tính P và S của hình chữ nhật có chiều dài hai cạnh là a, b
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write(`Nhap chieu dai:`); readln(a);
Write(`Nhap chieu rong:`); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln(`Dien tich hinh chu nhat la:`,S);
Writeln(`Chu vi hinh chu nhat la:`,CV);
readln
end.
2: Viết chương trình tính chu vi, diện tích hình vuông có cạnh a
Program HINH_VUONG;
uses crt;
Var canh: real;
Begin
clrscr;
Write(`Nhap do dai canh:`);readln(canh);
Writeln(`Chu vi hinh vuong la:`,4*canh);
Writeln(`Dien tich hinh vuong la:`,canh*canh);
readln
end.
3: Viết chương trình tính chu vi và diện tích hình tròn có bán kính r
Program HINH_TRON;
uses crt;
Var r: real;
Begin
clrscr;
Write(`Nhap ban kinh:`); readln(r);
Writeln(`Chu vi duong tron la:`,2*pi*r);
Writeln(`Dien tich hinh tron la:`,pi*r*r);
readln
end.
4: Viết chương trình tính diện tích của tam giác có ba cạnh là a, b,c
Program TAM_GIAC;
uses crt;
Var a,b,c,p,S: real;
Begin
clrscr;
Write(`Nhap canh a:`);readln(a);
Write(`Nhap canh b:`);readln(b);
Write(`Nhap canh c:`);readln(c);
p:=(a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
Write(`Dien tich tam giac la:`,s);
readln
end.
5: Viết chương trình cho phép tính trung bình cộng của bốn số.
Program TB_Cong_4_So;
uses crt;
Var a, b, c, d: real;
Begin
Clrscr;
Write(`Nhap so thu nhat:`);readln(a);
Write(`Nhap so thu hai:`);readln(b);
Write(`Nhap so thu ba:`);readln(c);
Write(`Nhap so thu tu:`);readln(d);
Writeln(`Trung binh cong: `,(a+b+c+d)/4);
Readln
end.
6: Viết ct cho phép tính TBC của 4 số với điều kiện chỉ được sử dụng hai biến.
Program TB_Cong_4_So;
uses crt;
Var s,a: real;
Begin
Clrscr;
S:=0;
Write(`Nhap so thu nhat:`);readln(a); S:=S+a;
Write(`Nhap so thu hai:`);readln(a); S:= S+a;
Write(`Nhap so thu ba:`);readln(a); S:=S+a;
Write(`Nhap so thu tu:`);readln(a); S:=S+a;
Writeln(`Trung binh cong: `,S/4);
readln
end.
7: Viết ct cho phép tính TB nhân của 4 số với đ/k chỉ được sử dụng 2 biến.
Program TB_nhan;
uses crt;
Var a, S: real;
Begin
clrscr;
S:=1;
Write(`Nhap so thu nhat: `); readln(a); S:=S*a;
Write(`Nhap so thu hai: `); readln(a); S:=S*a;
Write(`Nhap so thu ba: `); readln(a); S:=S*a;
Write(`Nhap so thu tu: `); readln(a); S:=S*a;
Write(`Trung binh nhan cua bon so la:`,sqrt(sqrt(s)));
readln
End.
8: Viết chương trình nhập hai số, đổi giá trị hai số rồi in ra hai số.
Program Doi_Gia_Tri;
uses crt;
var a, b, tam:real;
Begin
clrscr;
write(`nhap a: `); readln(a);
write(`nhap b: `); readln(b);
writeln(