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]
(1)Bài Viết chương trình nhập vào hệ số lương nhân viên In lương 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 la: ', 450000 * hsl : 12 : 3); readln;
End
Bài Viết chương trình nhập vào chiều dài cạnh hình vng Cho biết chu vi diện tích hình vng đó. Uses crt;
Var a, cv, dt: real; Begin
clrscr;
write ('Nhap chieu dai canh a = '); readln (a);
cv:= * 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 Viết chương trình in 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 Viết chương trình nhập vào năm sinh người Cho biết người năm 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 Viết chương trình tính số pignet người biết chiều cao (cm), vịng ngực trung bình (cm) trọng lượng (kg) với: 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;
(2)readln (chcao, vntb, trluong); pignet:= chcao - (vntb + trluong);
writeln ('Chi so pignet la: ', pignet : 12 : 3); readln;
End
Bài Viết chương trình nhập vào chiều dài chiều rộng hình chữ nhật Cho biết chu vi diện tích 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 Viết chương trình nhập vào bán kính hình trịn In chu vi diện tích 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:= * 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 Viết chương trình nhập vào chiều dài cạnh a, b, c tam giác Tính chu vi diện tích 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 Viết chương trình nhập vào số thực x, tính giá trị z theo công thức: z = ln (x + | sin (2x) |)
(3)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 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;