PASCAL

Bài 1 :
Viết chương trình :
Nhâp số báo danh
Nhập điểm văn , toán , ngoại ngữ
In ra màn hình dưới dạng :
_ Phiếu điểm :
_ Số báo danh :
_ Điểm văn :
_ Điểm toán :
_ Điểm ngoại ngữ :
_ Tổng số điểm :
Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại .
Bài 2
Viết chương trình thực hiện lần lượt các công việc sau :
_ Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím .
_ Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ?
_ Viết thủ tục tính diện tích của tam giác .
_ Viết thủ tục tính các trung tuyến của tam giác .
_ Viết hoàn thiện chương trình chính .

Bài 3:
Lập phương trình tạo ra một mảng chứa bảng cửu chương.


















ĐÁP ÁN

Program Bai1;
Uses Crt ;
Var SBD : Integer;
Van , Toan , Tin , Tongdiem : Real ;

BEGIN
Clrscr ;
Write (` So bao danh : `) ; Readln( SBD ) ;
Write (` Diem toan : `) ; Readln( Toan ) ;
Write (` Diem tin : `) ; Readln( Tin ) ;
Write (` Diem van : `) ; Readln ( Van ) ;
Tongdiem := Toan + Van + Tin ;
Clrscr ;
Writeln (` Phieu Bao Diem `) ;
Writeln (` So bao danh : `, SBD ) ;
Writeln (` Diem van : `, Van ) ;
Writeln (` Diem toan : `, Toan ) ;
Writeln (` Diem tin : `, tin) ;
Writeln (` Tong diem : `, Tongdiem) ;
If Tongdiem >= 15 Then
Writeln(` Ban da trung tuyen `)
Else
Writeln(` Ban khong trung tuyen `) ;
Readln ;
END .

Program Bai2:
Uses Crt;
Var a, b, c: real ;
(*================================*)
Procedure Nhap(Var a, b, c: real);
Procedure input (Var a: real; tenbien: Char);
Begin
Repeat
Write(`Nhap ` + tenbien+` = `); Readln(a);
Until (a>=0);
End;
Begin (* bắt đầu thủ tục nhập *)
Input(a, `a`);
Input(b, `b`);
Input(c, `c`);
End; (* kết thúc thủ tục nhập *)
(*================================*)
Procedure Kiemtra(a, b, c: Real);
Begin
If (a Writeln(a:0:2, `, `, b:0:2, ` va `, c:0:2,
` lap thanh ba canh cua tam giac `)
Else Writeln(`Khong lap thanh ba canh cua tam giac`);
End;
(*===============================*)
Procedure Trung_tuyen (a, b, c: Real);
Var ma, mb, mc: real;
Begin
ma:=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4);
mb:=sqrt((2*sqr(a)+2*sqr(c)-sqr(b))/4);
mc:=sqrt((2*sqr(a)+2*sqr(b)-sqr(c))/4);
Writeln(`Cac trung tuyen cua tam giac la : `) ;
Writeln(`ma=`, ma:0:2, ` mb=`, mb:0:2, ` mc=`, mc:0:2);
End;
(*================================*)
Procedure Dientich (a, b, c: real); Var p, S: real;
Begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(`Dien tich =`, S:0:2);
End;
(*================================*)
BEGIN (* Chương trình chính *)
Clrscr;
Nhap(a, b, c);
Kiemtra(a, b, c);
Dientich(a, b, c);
Trung_tuyen(a, b, c);
Readln