Viết chương trình nhập một số nguyên sau đó tính tổng các số nhỏ hơn số vừa nhập từ bàn phím có sử dụng chương trình con(thủ tục).

0 bình luận về “Viết chương trình nhập một số nguyên sau đó tính tổng các số nhỏ hơn số vừa nhập từ bàn phím có sử dụng chương trình con(thủ tục).”

1. Program FNG;
   Uses crt;
   Var n: longint;

   Function tong(a: longint): longint;
   Var i: longint;
   Begin
           tong:=0;
           For i:=1 to a do
                   tong:=tong+i;
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           Write(‘Tong = ‘,tong(n));
           Readln
   End.

   Bình luận

2. uses crt;
   var n:longint;
   {—Chuong-trinh-con—}
   procedure sum(n:longint);
   var i,s:longint;
   begin
      s:=0;
      for i:=1 to n-1 do 
         inc(s,i);
      writeln(‘Tong: ‘,s);
   end;
   {—Chuong-trinh-chinh—}
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      sum(n);
      readln
   end.

   Bình luận