Câu 1: viết chương trình có sử dụng chương trình con vẽ 3 hình chữ nhật
Câu 2: viết chương trình có sử dụng chương trình con tính giai thừa của một số bất kì
Câu 1: viết chương trình có sử dụng chương trình con vẽ 3 hình chữ nhật
Câu 2: viết chương trình có sử dụng chương trình con tính giai thừa của một số bất kì
Câu 2:
program CTC_2;
uses crt;
var n:integer;x:longint;
procedure Giai_Thua(var GT:longint; n:byte);
begin GT:=1;
while n>0 do begin GT:=GT*n;
n:=n-1;
end.
Câu 1:
Đáp án:
Chương trình con
Câu 2 :
Đáp án:
Vd: số n
Program CTC_2; uses crt; var n:integer;x:longint; Procedure Giai_Thua(var GT:longint; n:byte); begin GT:=1; while n>0 do begin GT:=GT*n; n:=n-1; end;