Tổng hợp các bài tập lập trình trên Turbo Pascal

Trong bài viết sau đây sẽ chia sẻ đến bạn tổng hợp các bài tập cơ bản lập trình trên phần mền Turbo Pascal. Hy vọng, nó sẽ giúp ích cho bạn khi mới bắt đầu làm quen với ngôn ngữ lập trình cơ bản. Các bài tập tổng hợp bao gồm: các lệnh nhập xuất đơn giản, các câu lệnh điều khiển, dữ liệu kiểu mảng, chương trình con ...

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.