Bài 1. Viết chương trình nhập vào hệ số lương của một nhân viên.
In ra lương của nhân viên đó, với lương = 450000 * hệ số lương.
Program Luong;
Uses crt;
Var hsl: real;
Begin
clrscr;
write ('Nhap he so luong: ');
readln (hsl);
writeln ('Luong cua nhan vien nay la: ', 450000 * hsl : 12 : 3);
readln;
End.
Bài 2. Viết chương trình nhập vào chiều dài cạnh của 1 hình
vuông. Cho biết chu vi và diện tích của hình vuông đó.
Uses crt;
Var a, cv, dt: real;
Begin
clrscr;
write ('Nhap chieu dai canh a = ');
readln (a);
cv:= 4 * a;
dt:= sqr (a);
writeln ('Chu vi hinh vuong la: ', cv : 12 : 4);
writeln ('Dien tich hinh vuong la: ', dt :12 : 4);
readln;
End.
Bài 3. Viết chương trình in ra 1 bài thơ mà bạn thích.
Program baitho;
Uses crt;
Begin
clrscr;
write ('Banh troi nuoc');
writeln ('Than em vua trang lai vua tron');
writeln ('Ma em van giu tam long son');
readln;
End.
Bài 4. Viết chương trình nhập vào năm sinh của 1 người. Cho biết
người đó năm nay được bao nhiêu tuổi.
Program bt;
Uses crt;
Var tuoi, ns, nht: integer;
Begin
clrscr;
write ('Nhap nam sinh: ');
readln (ns);
write ('Nhap nam hien tai: ');
readln (nht);
tuoi:= nht - ns;
writeln ('Tuoi: ', tuoi);
readln;
End.
Bài 5. Viết chương trình tính chỉ số pignet của 1 người khi biết
chiều cao (cm), vòng ngực trung bình (cm) và trọng lượng (kg) với: chỉ số
pignet = chiều cao - (vòng ngực trung bình + trọng lượng).
Program bt;
uses crt;
Var chcao, vntb, trluong, pignet: real;
Begin
clrscr;
write ('Nhap chieu cao, vong nguc trung binh, trong luong: ');
readln (chcao, vntb, trluong);
pignet:= chcao - (vntb + trluong);
writeln ('Chi so pignet la: ', pignet : 12 : 3);
readln;
End.
Bài 6. Viết chương trình nhập vào chiều dài và chiều rộng của 1
hình chữ nhật. Cho biết chu vi và diện tích của hình chữ nhật đó.
Program hcn;
uses crt;
Var a, b, cv, dt: real;
Begin
clrscr;
write ('Nhap a, b: ');
readln (a, b);
cv:= (a + b) * 2;
dt:= a * b;
writeln ('Chu vi hinh chu nhat: ', cv : 12 : 4);
writeln ('Dien tich hinh chu nhat: ', dt : 12 : 4);
readln;
End.
Bài 7. Viết chương trình nhập vào bán kính của 1 hình tròn. In
ra chu vi và diện tích của hình tròn đó.
Program ht;
Uses crt;
Const pi = 3.14;
Var r, cv, dt: real;
Begin
clrscr;
write ('Nhap ban kinh r: ');
readln (r);
cv:= 2 * pi * r;
dt:= pi * r * r;
writeln ('Chu vi hinh tron la: ', cv : 12 : 4);
writeln ('Dien tich hinh tron la: ', dt: 12 : 4);
readln;
End.
Bài 8. Viết chương trình nhập vào chiều dài 3 cạnh a, b, c của 1
tam giác. Tính chu vi và diện tích của tam giác đó theo công thức sau:
Chu vi: cv = a + b + c
Diện tích: dt = sqrt (p* (p - a) * (p - b) * (p - c)) với p =
cv/2.
Program tg;
uses crt;
Var a, b, c, cv, dt, p: real;
Begin
clrscr;
write ('Nhap a, b, c: ');
readln (a, b, c);
cv:= a + b + c;
p:= cv/2;
dt:= sqrt (p * (p - a) * (p - b) * (p - c));
writeln ('Chu vi tam giac: ', cv : 12 : 4);
writeln ('Dien tich tam giac: ', dt: 12 : 4);
readln;
End.
Bài 9. Viết chương trình nhập vào số thực x, tính giá trị của z
theo công thức:
z = ln (x + | sin (2x) |)
Program st;
uses crt;
var x, z: real;
Begin
clrscr;
write ('Nhap so thuc x: ');
readln (x);
z:= ln (x + abs (sin (2 * x)));
writeln ('Gia tri cua z la: ', z);
readln;
End.
Bài 10. Viết chương trình tính tam thức bậc hai: ax2 +
bx + c khi biết a, b, c, x.
Program pt;
Uses crt;
var a, b, c, x, t: real;
Begin
clrscr;
write ('Nhap a, b, c, x: ');
readln (a, b, c, x);
t:= a * x * x + b * x + c;
writeln ('Gia tri tam thuc bac hai: ', t);
readln;
End.