INPUT: cạnh a, chiều cao tương ứng h
OUTPUT: diện tích tam giác S
code:
uses crt;
var a,b,s:real;
begin clrscr;
write('nhap canh:');readln(a);
<thực hiện nhập cạnh>
write('nhap chieu cao:');readln(h);
<thực hiện nhập chiều cao>
s:=a*h/2;
<tính diện tích>
write('dien tich la:',s:8:2);
<in ra diện tích>
readln;
end.
Ví dụ: Đổi giá trị của hai biến x, y
Xác định bài toán:
Input: Hai biến x, y có giá tri tương ứng là a và b Output: Hai biến x, y có giá trị tương ứng là b và aMô tả thuật toán:
Bước 1. z←az←a {Sau bước này giá trị của z sẽ bằng a} Bước 2. x←yx←y {Sau bước này giá trị của x sẽ bằng b} Bước 3. y←zy←z {Sau bước này giá trị của y sẽ bằng giá trị của z, chính là a, giá trị ban đầu của biến x}Input: 3 cạnh của tam giác
Output: diện tích tam giác đó
Thuật toán
B1: xét 3 giá trị xem nó có phải là giá trị 3 cạnh tam giác không
B2: gán p:=(a+b+c)/;
s:= \(\sqrt{p\left(p-a\right)\left(p-b\right)\left(p-c\right)}\)
B3: in ra màn hình kết quả diện tích tam giác
Ví dụ: Đổi giá trị của hai biến x, y
Xác định bài toán:
Input: Hai biến x, y có giá tri tương ứng là a và b Output: Hai biến x, y có giá trị tương ứng là b và a
Mô tả thuật toán:
Bước 1. z←az←a {Sau bước này giá trị của z sẽ bằng a} Bước 2. x←yx←y {Sau bước này giá trị của x sẽ bằng b} Bước 3. y←zy←z {Sau bước này giá trị của y sẽ bằng giá trị của z, chính là a, giá trị ban đầu của biến x}
Ví dụ: Đổi giá trị của hai biến x, y
Xác định bài toán:
Input: Hai biến x, y có giá tri tương ứng là a và b Output: Hai biến x, y có giá trị tương ứng là b và a
Mô tả thuật toán:
Bước 1. z←az←a {Sau bước này giá trị của z sẽ bằng a} Bước 2. x←yx←y {Sau bước này giá trị của x sẽ bằng b} Bước 3. y←zy←z {Sau bước này giá trị của y sẽ bằng giá trị của z, chính là a,