10 bài tập pascal căn bản

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ượ[r]

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