CÁC BÀI TOÁN SỬ DỤNG CHƯƠNG TRÌNH CON (P2).

Em hãy viết thủ tục nhập vào bộ 3 số, một hàm logic kiểm tra xem 3 số đó có tạo thành một tam giác hay không. Nếu có tạo thành một tam giá thì hãy viết hàm tính chu vi và diện tích của tam giác đó. Sau đó in các kết quả ra màn hình.
Trong chương trình này, chúng ta cần nắm được kiến thức liên quan như: Công thức tính diện tích tam giác theo 3 cạnh, chúng ta sử dụng công thức Herong, điều kiện tồn tại với 3 cạnh khi nào?...
{This code Created by hoana2007}
Program Tam_Giac;
uses wincrt;
var a,b,c:Real;

{Kiem tra tam giac ton tai
Hàm này sẽ thực hiện kiểm tra xem 3 cạnh nhập vào có thoả mãn là tổng 2 cạnh có nhỏ hơn một cạnh còn lại không?}
function KT(x,y,z:Real):boolean;
begin
KT := (x+y>z)and(x+z>y)and(y+z>x);
end;

{Nhap du lieu – Chúng ta có sử dụng kết quả từ Hàm KT để kiểm tra với 3 số được nhập vào. Ở đây, chúng ta sử dụng Repeat – Until để thực hiện công việc kiểm tra và yêu cầu người sử dụng nếu hàm Kt trả về False thì ta phải nhập lại 3 số}
Procedure Nhap3Canh(Var x,y,z:real);
begin
Write(`Nhap vao 3 so nguyen duong`);
repeat {Xem them Repeat SGK Tin hoc 11 trang 132}
readln(x,y,z);
If not KT(x,y,z) then Writeln(`3 so do khong tao thanh TG, moi nhap lai`);
until KT(x,y,z);
end;

{Tinh chu vi}
function CV(x,y,z:Real):Real;
begin
CV := x+y+z;
end;

{Tinh dien tich – Tính diện tích theo công thức Hê-rông}
function DT(x,y,z:Real):Real;
var P:Real; {Tinh nua chu vi}
begin
P := CV(x,y,z)/2;
DT := SQRT(P*(P-x)*(P-y)*(P-z));
end;

{Chuong trinh chinh}
Begin
Nhap3Canh(a,b,c);
Writeln(`Chu vi cua tam giac tinh duoc la: `, CV(a,b,c):4:2);
Writeln(`Dien tich cua tam giac tinh duoc la: `, DT(a,b,c):4:2);
end.
Em hãy viết chương trình kiểm tra một số nguyên dương a có phải là một số nguyên tố hay không.
{This code Created by hoana2007}
Program KTNguyenTo;
uses wincrt;
var a:integer;
ch:char;

Function NguyenTo(X:integer):boolean;
var j:integer;
begin
NguyenTo := false;
for j:=2 to Trunc(sqrt(X)) do
If X mod j = 0 then exit; {thoat khoi chuong trinh con}
NguyenTo := X > 1; {Thuc chat: NguyenTo := true;}
end;

Procedure NhapA(var b:integer);
begin
Repeat
readln(b);
Until (b>=2);
end;

Begin
Repeat
NhapA(a);
If NguyenTo(a) then Writeln(`So ban da nhap la nguyen to`)
Else Writeln(`So da nhap khong phai nguyen to`);

Writeln(`Ban co muon thu tiep (C/K)?`);
readln(ch);
Until (ch = `K`) or (ch = `k`);
end.








Created by hoana2007
Email: nguyenhoa2003@hotmail.com
http://hoana2007.spaces.live.com
http://violet.vn/hoana2007