Tham khảo các chương trình sau và trả lời các câu hỏi:
Var Tluythua, a, b, c, d:Real;
i, n, m, p, q:Integer;
Function LuyThua (x:Real;k:Integer): Real;
Var j: Integer; Tich: Real;
Begin
Tich := 1.0;
For j := 1 To k Do Tich := Tich * x;
LuyThua := Tich;
End;
Begin
Write ('Nhap DL theo TT a,b,c,d,m,n,p,q: ');
Readln (a,b,c,d,m,n,p,q);
Tluythua := Luythua (a,n) + Luythua (b,m) + Luythua (c,p) + Luythua (d,q);
Writeln ('Tong luy thua = ',Tluythua:8:2);
Readln;
End.
Tên CTC:
Loại CTC:
Biến toàn cục:
Biến cục bộ:
Tham số hình thức:
Tham số thực sự:
Lệnh gọi CTC:
CTC thực hiện công việc gì:
Quảng cáo
3 câu trả lời 583
1.CTC: Hàm(Func)
2.BTC:j,tich
3.BCB:Tluythua,i,m,n,p,q
4.TSHT: x,k
5.TSTS: a,n,b,m,c,p,d,q
6.lệnh gọi:
Luythua(a,n);
Luythua(b,m);
Luythua(c,p);
Luythua(d,q);
7.Tính tổng các lũy thừa a mũ n+ b mũ m ,c mũ p,d mũ q
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
23234 -
Đã trả lời bởi chuyên gia
Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:
A. reset(f1);
B. rewrite(f1);
C. read(f1);
D. write(f1);
15486 -
Đã trả lời bởi chuyên gia
15013 -
Đã trả lời bởi chuyên gia
10826
