Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Bài tập Pascal – Từ cơ bản đến nâng cao
Biến có cấu trúc - Records
TD: Mỗi điểm trong hình học 2 chiều có toạ độ (x, y)
Khai báo biến trong Pascal như sau:
Type Diem = Record
x, y: Integer;
End;
Var
A, B: Diem;
Bài tập 9.01 – Tìm độ dài của một đoạn thẳng AB:
Độ dài của đoạn thẳng AB với điểm A có toạ độ xA, yA và điểm B có toạ độ xB, yB được tính như sau:
AB ̅̅̅̅ = √(x A − x B ) 2 + (y A − y B ) 2
Chương trình tìm độ dài của đoạn thẳng AB được viết như sau:
Type Diem = Record
x, y: Integer; {Nếu các toạ độ chỉ là số nguyên}
End;
Var
A, B: Diem;
DoDai: Real;
Begin
WriteLn('Ban hay nhap toa do cua diem thu nhat');
ReadLn(A.x, A.y);
WriteLn('Ban hay nhap toa do cua diem thu hai');
ReadLn(B.x, B.y);
DoDai := SQRT(SQR(A.x - B.x) + SQR(A.y - B.y));
{SQRT = Căn bậc 2, SQR = Bình phương}
WriteLn('Do dai doan thang AB la ', DoDai:5:2);
ReadLn;
End.
Bài tập 9.02 – Tìm toạ độ trung điểm của một đoạn thẳng AB:
Toạ độ trung điểm I của đoạn thẳng AB là xI, yI được tính như sau:
xI = (x A+x B )
2
và yI = (y A+y B )
2
Type Diem = Record
x, y: Real; {Toạ độ trung điểm là kết quả phép /2 nên có thể là số thực}
End;
Var
Biên soạn: Th.s Nguyễn Anh Việt Trang 32