K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

7 tháng 3 2021

uses crt;

var n,i:longint;

gt:real;

begin

clrscr;

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

gt:=1;

for i:=1 to n do 

  gt:=gt*i;

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

readln;

end.

28 tháng 2 2025

clrscr;Mình có cách siêu rút gọn của pascal đây:

uses crt;

var n,t: extended;

i: longint;

begin


repeat

write('n=');read(n);

until n>0;

t:=1;

for i:=1 to n div 2 do

t:=t*n*(n-i+1);

if n mod 2 = 1 then

t:=t*(n div 2 +1);

write('n!=t');

readln;readln;

end.

13 tháng 6 2023

c++:

#include <iostream>

using namespace std;

int main(){

int y;

cin >> y;

int i = 1;

int luythua = 1;

while(i<=y){

luythua = luythua *i;

i = i+1;

}

cout << luythua;

}

27 tháng 3 2019

Giai thừa của n: T=1*2*3...*n

program viet_chuong_trinh;

uses crt;

var

i,n,T:integer;

begin

clrscr;

writeln('Moi nhap n = '); readln(n);

T:=1;

for i:=1 to n do T:=T*i;

write(T); readln;

end.

12 tháng 10 2019

uses crt;
var n:integer;
{-----------------------------------------}
procedure giaithua(var a:integer);
var i:integer;
gt:longint;
begin
gt:=1;
for i:=1 to a do
gt:=gt*i;
write(gt);
end;
{-----------------------------------------}
begin
clrscr;
write('nhap n='); readln(n);
giaithua(n);
readln;
end.

23 tháng 8 2023

Dưới đây là một số bộ dữ liệu kiểm thử đề tìm lỗi cho chương trình tính n!:

Số nguyên dương: n = 5 Kết quả mong đợi: 5! = 120

Số nguyên âm: n = -3 Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Số 0: n = 0 Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Số nguyên lớn: n = 10 Kết quả mong đợi: 10! = 3628800

Số chẵn: n = 6 Kết quả mong đợi: 6! = 720

Số lẻ: n = 7 Kết quả mong đợi: 7! = 5040

Số nguyên tối đa: n = 12 Kết quả mong đợi: 12! = 479001600

Số nguyên tối thiểu: n = 1 Kết quả mong đợi: 1! = 1

Số nguyên dương lớn nhất: n = 999 Kết quả mong đợi: Kết quả chưa đúng do số quá lớn vượt quá giới hạn của kiểu dữ liệu int

Số nhập không phải số nguyên: n = "abc" Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Những bộ dữ liệu này giúp kiểm thử chương trình với các trường hợp đặc biệt và tiềm ẩn lỗi, như số âm, số 0, số nguyên tối đa, số nhập không phải số nguyên, giúp đảm bảo tính đúng đắn và hoạt động ổn định của chương trình tính n!.

tham khảo!

4 tháng 4 2022

uses crt;

var t,n,m:longint;

//chuongtrinhcon

function gt(k:longint):longint;

var i,a:integer;

begin

a:=1;

for i:=1 to k do 

  a:=a*i;

gt:=a;

end;

//chuongtrinhchinh

begin

clrscr;

readln(n,m);

writeln(gt(n)+gt(m);

readln;

end.

13 tháng 5 2021

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

13 tháng 5 2021

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;