Câu 1 :
* Viết thuật toán :
- Bước 1 : nhập số lượng a, đơn giá b, chi phí c
- Bước 2 : d ← a * b - c
- Bước 3 : xuất giá trị d
- Bước 4 : kết thúc
* Viết chương trình :
uses crt;
var a, b, c, d : longint;
begin
clrscr;
write('nhap so luong, don giam chi phi : ');
readln(a, b, c);
d := a * b - c;
writeln('doanh thu : ', d);
readln
end.
Câu 2 :
* Viết thuật toán :
- Bước 1 : nhập ba cạnh a, b, c
- Bước 3 : p ← (a + b + c) / 2
- Bước 4 : s ← sqrt(p * (p - a) * (p - b) * (p - c))
- Bước 5 : xuất giá trị s
- Bước 6 : kết thúc
* Viết chương trình :
uses crt;
var a, b, c, p, s : real;
begin
clrscr;
write('nhap ba canh tam giac : ');readln(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('dien tich tam giac : ', s:2:1);
readln
end.
