CHO CHƯƠNG TRÌNH TÍNH LẬP PHƯƠNG CỦA 1 PHÂN SỐ NHƯ SAU

Câu 73:

Cho chương trình tính lập phương của 1 phân số như sau:

Hãy chọn các lệnh để viết thêm ở

PROGRAM Trac_nghiem;

VAR FRAC: RECORD

phần @@@ cho chương trình:

Tu,Mau: Integer ; END;

A. FRAC.Tu:=

LP

;

FUNCTION LP( W: Integer): Longint;

FRAC.Mau := LP;

BEGIN

B.

FRAC.Tu:=

LP(FRAC.tu)

;

LP := W*W*W;

FRAC.Mau := LP(FRAC.Mau );

END;

C.

FRAC.Tu:=

LP(tu)

;

BEGIN

FRAC.Mau := LP(mau);

FRAC.Tu:= 2; FRAC.Mau := 5;

D. FRAC :=

LP(tu/mau);

@@@

Writeln( 'Ket qua: ' , FRAC.Tu

, ' / ' ,

FRAC.Mau);

Readln;

END.