Viết chương trình con

[munkwon]

viết chương trình con thực hiện:
a, tính N!
b, tính X^N
c, tìm Min(a,b,c)
d, tim UCLN(a,b) ước chung lớn nhất của hai số nguyên dương
e, đổi thường một kí tự in hoa chT(ch)
trong chương trình chính, gọi các CTC trên ra để thực hiện
- tính X! + Y! - Z!
- tính tổ hợp chập K của N (N>=K)
- tính (a^m + b^n) * c^q
-tìm số nhỏ nhất trong 5 số (a, ,b,c,d,e)
- tìm bội chung nhỏ nhất của 2 số
- nhập vào một xau bất kì, đổi thường hoàn toàn cả xâu

 

[dienvi2010]

Chương trình:

Var X,Y,Z,i:integer;
    N,K:integer;
    a1,b1,c1: real; m,q:integer;
    a,b,c,d,e:integer;
    str:string;

{a- Ham tinh giai thua}
Function GT(n:integer):longint;
var s:longint; i:integer;
Begin
     s:=1;
     for i:=1 to n do
    s:=s*i;
    GT:=s;
End;

{b- Ham tinh luy thua}
Function LT(m:real;n:integer):real;
var s:real; i:integer;
Begin
     s:=1;
     for i:=1 to n do
    s:=m*m;
    LT:=s;
End;

{c- Ham tim Min trong 3 so}
Function Min(a,b,c:integer):integer;
var nn:integer;
Begin
     nn:=a;
     if b<nn then nn:=b;
     if c<nn then nn:=c;
     Min:=nn;
End;

{d- Ham Uoc chung lon nhat}
Function UCLN(a,b:integer):integer;
Begin
     a:=abs(a); b:=abs(b);
     While a<>b do
         If M>N then a:=a-b else b:=b-a;
     UCLN:=a;
End;

{e -Doi ky tu sang thuong}
Function DT(ch:char):char;
Begin
     DT:=ch;
     if (ch>='A') and (ch<='Z') then
        DT:=chr(ord(ch)+32);
End;

Begin
     Write('Nhap X,Y,Z: '); readln(X,Y,Z);
     Writeln('KQ1: ', GT(X)+GT(Y)-GT(Z));

     Write('Nhap K,N: '); readln(K,N);
     Writeln('QK2: ',GT(N)/(GT(K)*GT(N-K)):6:2);

     Write('Nhap a,n,b,m,c,q: '); readln(a,n,b,m,c,q);
     Writeln('KQ3: ',LT(a,n)+LT(b,m)-LT(c,q):6:2);

     Write('Nhap a,b,c,d,e: '); readln(a,b,c,d,e);
     Writeln('KQ4: ',min(min(a,b,c),d,e));

     Write('Nhap M,N: '); readln(M,N);
     Writeln('KQ5: ',(M*N) div UCLN(M,N));

     Write('Nhap xau: '); readln(str);
     for i:=1 to length(str) do
           str[i]:=DT(str[i]);
     Writeln('KQ6: ',str);

     Readln;
End.