Tin học Kiểm tra học kì 1

[Đậu Thị Khánh Huyền]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu 1: Viết chương trình Pascal tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức [tex]BMI=\frac{W}{H^2}[/tex] , trong đó W là cân nặng của một người (tình bằng kilogam) và H là chiều cao của người đó (tính bằng mét) (theo công thức này, nếu BMI < 18,5: người gầy; 18,5 < BMI < 25: người bình thường; BMI[tex]\geq[/tex]25:người béo).
Giá trị W và H được nhập từ bàn phím. Lưu chương trình với tệp BT4_22.PAS
Câu 2: Cho 3 số a,b,c được nhập từ bàn phím. Viết chương trình Pascal sắp xếp theo thứ tự tăng dần

Help me!!!Ngày mai mk kiểm tra học kì rồi ak, các bạn giúp mình với

@Thiên Thuận @Hồ Nhi @Phạm Thúy Hằng @Kuroko - chan giúp em vs ak

 

[Trâm Nguyễn Thị Ngọc]

C1:
var
bmi:real;
w,h:integer;
begin
write('nhap vao chieu cao:');readln(h);
write('nhap vao can nang');readln(w);
bmi:=w mod (h*h);
if bmi <18,5 then write('nguoi gay')
else if (bmi<25) and (bmi>18,5) then write('nguoi binh thuong')
else if bmi>=25 then write('nguoi beo');
readln
end.

C2:
var
a,b,c:integer;
begin
readln(a);readln(b);readln(c);
if (a<b) and (a<c) then
if b< c then write('thu tu tang dan la:',a,b,c)
else write('thu tu tang dan la:',a,c,b);
if (b<a) and (b<c) then
if a< c then write('thu tu tang dan la:',b,a,c)
else write('thu tu tang dan la:',b,c,a);
if (c<a) and (c<b) then
if b< a then write('thu tu tang dan la:',c,b,a)
else write('thu tu tang dan la:',c,a,b);
readln
end.

 

[0toanđnn]

Câu 1:

Var W,H:longint;
BMI:real;
Begin
read(W);
readln(H);
BMI:=W/(H*H);
If (BMI<18,5) then write('Nguoi Gay');
If ((18,5<BMI) and (BMI<25)) then write('Nguoi Binh Thuong');
If (BMI>=25) then write('Nguoi Beo');
readln
End.

Câu 2:
Var a,b,c:longint;
Begin
read(a);
read(b);
readln(c);
If ((a<b) and (c<b)) then
Begin
if (a<c) then write('Sap xep theo thu tu tang dan:',a,c,b)
else write('Sap xep theo thu tu tang dan:',c,a,b);
End;
if ((b<c) and (a<c)) then
Begin
if (a<b) then write('Sap xep theo thu tu tang dan:'a,b,c)
else write('Sap xep theo thu tu tang dan:'b,a,c);
End;
if ((b<a) and (c<a) then
Begin
if (b<c) then write('Sap xep theo thu tu tang dan:'b,c,a)
else write('Sap xep theo thu tu tang dan:'c,b,a);
End;
readln
End.


Chúc bạn học tốt!!!

 

[Đậu Thị Khánh Huyền]

@ngoctram0370@gmail.com bạn chắc chắn chứ???

Câu 1:

Var W,H:longint;
BMI:real;
Begin
read(W);
readln(H);
BMI:=W/(H*H);
If (BMI<18,5) then write('Nguoi Gay');
If ((18,5<BMI) and (BMI<25)) then write('Nguoi Binh Thuong');
If (BMI>=25) then write('Nguoi Beo');
readln
End.

Câu 2:
Var a,b,c:longint;
Begin
read(a);
read(b);
readln(c);
If ((a<b) and (c<b)) then
Begin
if (a<c) then write('Sap xep theo thu tu tang dan:',a,c,b)
else write('Sap xep theo thu tu tang dan:',c,a,b);
End;
if ((b<c) and (a<c)) then
Begin
if (a<b) then write('Sap xep theo thu tu tang dan:'a,b,c)
else write('Sap xep theo thu tu tang dan:'b,a,c);
End;
if ((b<a) and (c<a) then
Begin
if (b<c) then write('Sap xep theo thu tu tang dan:'b,c,a)
else write('Sap xep theo thu tu tang dan:'c,b,a);
End;
readln
End.


Chúc bạn học tốt!!!

khai báo là integer có đc ko hay phải là longint?

 

[0toanđnn]

À khai báo integer cũng được nha bạn. Nhưng khai báo longint thì độ rộng của biến kiểu longint sẽ lớn hơn nên nó sẽ chứa được nhiều số lớn hơn mà interger không chứa được nha.

Bạn còn gì muốn hỏi nữa không để mình trả lời luôn cho mai kiểm tra cho tốt

 

[Đậu Thị Khánh Huyền]

1. Viết chương trình

2.ấn ctrl +f9, sau đó ấn chiều cao của mk

3. ấn enter

Ai đó có thể giải thích và sửa giúp mk đc ko?
@0toanđnn @ngoctram0370@gmail.com

 

[0toanđnn]

Var w,h:real;
bmi:real;
Begin
read(w);
readln(h);
bmi:=w/(h*h);
If (bmi<18.5) then write('Nguoi Gay');
If ((18.5<bmi) and (bmi<25)) then write('Nguoi Binh Thuong');
If (bmi>=25) then write('Nguoi Beo');
readln
End.

Bạn nhập vào đánh dấu 1.45 chứ đừng đánh dấu phẩy nhé. Code mình sửa lại rồi đấy. Số thập phân đánh dấu '.' nha bạn