Viết chương trình sử dụng chương trình con (Pascal) – Tính n! với n nguyên dương? – Đảo ngược xâu st cho trước? – Đếm số nguyên dương N có bao nhiêu

0 bình luận về “Viết chương trình sử dụng chương trình con (Pascal) – Tính n! với n nguyên dương? – Đảo ngược xâu st cho trước? – Đếm số nguyên dương N có bao nhiêu”

1. program giai
   uses crt;
     type E = array[1..100] of integer;
     var d, n, x: integer;
           s: string;
           a: longint;
           K: E;
   {———— Chuong trinh con ————–}
   {——– Giai thua ——–}
   function kt1(n: integer): longint;
   begin
           kt1:=1;
           if n=0 then kt1:=1
           else kt1:=n*kt1*(n-1);
           write(kt1);
   end;
   {——– Xau dao ——–}
   procedure kt2(s: string);
   var i: integer;
   begin
           for i:=length(s) downto 1 do write(s[i]);
   end;
   {——– Dem so ——–}
   function kt3(n, x, d: integer; a: longint): longint;
   begin
           while n<>0 do
           begin
                   x:= n mod 10;
                   a:=a*10+x;
                   n:= n div 10;
                   d:=d+1;
           end;
           kt3:=d;
           write(kt3);
   end;
   {——– n so nguyen to ——–}
   procedure kt4(n: integer);
   var i, p, j: integer;
   begin
           for i:=2 to n do
           begin
                   p:=0;
                   for j:=1 to i do
                           if i mod j=0 then p:=p+1;
                           if p=2 then write(i:3);
           end;
   end;
   {——– day so duong ——–}
   procedure kt5(var B: E);
   var i, t: integer;
   begin
           write(‘Nhap gioi han day so: ‘); readln(t);
           for i:=1 to t do
           begin
                   write(‘B[‘, i, ‘] = ‘); readln(B[i]);
           end;
           writeln(‘Day so nguyen duong: ‘);
           for i:=1 to t do if B[i]>0 then write(B[i]:3);
   end;
   {——— Chuong trinh chinh ———}
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           write(‘Nhap xau s = ‘); readln(s);
           write(‘Giai thua: ‘);
           kt1(n);
           writeln;
           write(‘Xau dao: ‘);
           kt2(s);
           writeln;
           writeln(‘So N co ‘);
           kt3(n, x, a, d);
           write(‘ chu so’);
           writeln;
           write(‘N so nguyen to dau tien: ‘);
           kt4(n);
           writeln;
           kt5(K);
           readln
   end.

   Bình luận

2. program chuongtrinh;
   uses crt;
     type E = array[1..100] of integer;
     var d, n, x: integer;
           s: string;
           a: longint;
           K: E;
   {———— Chuong trinh con ————–}
   {——– Giai thua ——–}
   function kt1(n: integer): longint;
   begin
           kt1:=1;
           if n=0 then kt1:=1
           else kt1:=n*kt1*(n-1);
           write(kt1);
   end;
   {——– Xau dao ——–}
   procedure kt2(s: string);
   var i: integer;
   begin
           for i:=length(s) downto 1 do write(s[i]);
   end;
   {——– Dem so ——–}
   function kt3(n, x, d: integer; a: longint): longint;
   begin
           while n<>0 do
           begin
                   x:= n mod 10;
                   a:=a*10+x;
                   n:= n div 10;
                   d:=d+1;
           end;
           kt3:=d;
           write(kt3);
   end;
   {——– n so nguyen to ——–}
   procedure kt4(n: integer);
   var i, p, j: integer;
   begin
           for i:=2 to n do
           begin
                   p:=0;
                   for j:=1 to i do
                           if i mod j=0 then p:=p+1;
                           if p=2 then write(i:3);
           end;
   end;
   {——– day so duong ——–}
   procedure kt5(var B: E);
   var i, t: integer;
   begin
           write(‘Nhap gioi han day so: ‘); readln(t);
           for i:=1 to t do
           begin
                   write(‘B[‘, i, ‘] = ‘); readln(B[i]);
           end;
           writeln(‘Day so nguyen duong: ‘);
           for i:=1 to t do if B[i]>0 then write(B[i]:3);
   end;
   {——— Chuong trinh chinh ———}
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           write(‘Nhap xau s = ‘); readln(s);
           write(‘Giai thua: ‘);
           kt1(n);
           writeln;
           write(‘Xau dao: ‘);
           kt2(s);
           writeln;
           writeln(‘So N co ‘);
           kt3(n, x, a, d);
           write(‘ chu so’);
           writeln;
           write(‘N so nguyen to dau tien: ‘);
           kt4(n);
           writeln;
           kt5(K);
           readln;
   end.

   Bình luận