Bài 5 :

* Xác định bài toán :

Input : w ( cân nặng ), h (chiều cao )

Output : chỉ số BMI

* Mô tả thuật toán :

- Bước 1 : nhập w, h

- Bước 2 : bmi ← w/(2*h);

- Bước 3 : in giá trị bmi ra màn hình

- Bước 4 : 

+ Bước 4.1 : nếu bmi < 18.5 thì in ra màn hình là người gầy

+ Bước 4.2 : nếu bmi >= 18.5 và bmi < 25 thì in ra màn hình là người bình thường

+ Bước 4.3 : nếu bmi >= 25 thì in ra màn hình là ngườ béo

- Bước 5 : kết thúc

* Viết chương trình :

program sksk;

uses crt;

var w, h, bmi : real;

begin

clrscr;

write('nhap chieu cao cua co the (met) :');readln(h);

write('nhap can nang cua co the (kg)  :');readln(w);

bmi := w/(2*h);

writeln('chi so BMI la :', bmi:8:2);

if bmi < 18.5 then writeln('la nguoi gay om');

if (bmi >=18.5) and (bmi < 25) then writeln('la nguoi binh thuong');

if (bmi >= 25) then writeln('la nguoi map beo');

readln

end.

Bài 6 :

* Xác định bài toán :

- Input : độ c, độ f

- Output : độ c đổi sang độ f, độ f đổi sang độ c

* Mô tả thuật toán :

- Bước 1 : nhập độ c, độ f

- Bước 2 : a ← 5/9 * ( f - 32);

- Bước 3 : f ← 9/5 * (c + 32);

- Bước4 : in giá trị ra màn hình

- Bước 5 : kết thúc

* Viết phương trình :

program sksk;
uses crt;
var c, f, a , b : real;
begin
clrscr;
write('nhap do c :');readln(c);
write('nhap do f :');readln(f);
a := 5/9 * (f - 32);
b := 9/5 * (c + 32);
writeln(c:8:0,' do c = ', a:8:0 ,' do f');
writeln(f:8:0,' do f = ', b:8:0 ,' do c');
readln
end.