Bài 18: Ví dụ về cách viết và sử dụng chương trình con

Bùi thanh phong

Sử dụng chương trình con tính n! Với n nhập từ bàn phím

Em cảm ơn

Nguyễn Lê Phước Thịnh
5 tháng 6 2020 lúc 20:33

uses crt;

var n:integer;

gt:real;

{------------------------chuong-trinh-con-tinh-giai-thua-------------------------}

function giaithua(x:integer):real;

var i:integer;

begin

giaithua:=1;

for i:=1 to x do

giaithua:=giaithua*i;

end;

{----------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

write('Nhap n='); readln(n);

gt:=giaithua(n);

writeln(n,'!=',gt:0:0);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Huy
Xem chi tiết
Hoàng hồ thiện
Xem chi tiết
Lê Thanh Tuyền
Xem chi tiết
Nguyễn Thảo Nguyên
Xem chi tiết
Đinh Thị Thu Giang
Xem chi tiết
Trường
Xem chi tiết
Veres Pro
Xem chi tiết
Thanh Tuyền
Xem chi tiết
Nhung Thùy Bùi
Xem chi tiết