Bài tập turbo pascal



tải về 0.6 Mb.
trang15/42
Chuyển đổi dữ liệu27.02.2022
Kích0.6 Mb.
#51050
1   ...   11   12   13   14   15   16   17   18   ...   42
100 bài tập pascal
13234
c. Nhận xét: Tiết kiệm được một biến i để chạy nhưng làm thay đổi n nên khi xuất ra chỉ có thể xuất một câu chung chung “Giai thua cua n la:”
Bài tập 4.3:

Viết chương trình tính n!! (giai thừa kép) với n!! được định nghĩa như sau:

- n!! = 1 với n = 0

- n!! = 1.3.5..n với n lẻ.

- n!! = 2.4.6..n với n chẵn.

Yêu cầu: Sử dụng vòng lặp với số lần chưa biết trước:

a. Hướng dẫn:

- Hai số chẵn liên tiếp hơn kém nhau 2. Hai số lẻ liên tiếp cũng vậy.

- Thực hiện tính như giai thừa đơn nhưng với bước nhảy là 2.

b. Mã chương trình:



Var f,g:text;

n, gt:longint;

begin

Assign(f,’bai4_3.inp’); reset(f);



Assign(g,’bai4_3.out’); rewrite(g);

Repeat


readln(f,n);

until n>0;

gt:=1;

while n>0 do



begin

gt:=gt*n;

n:=n-2;

end;


writeln(g,'Giai thua cua n la: ',gt);

close(f); close(g);

end.



tải về 0.6 Mb.

Chia sẻ với bạn bè của bạn:
1   ...   11   12   13   14   15   16   17   18   ...   42




Cơ sở dữ liệu được bảo vệ bởi bản quyền ©hocday.com 2024
được sử dụng cho việc quản lý

    Quê hương