Vct nhập vào 2 số nguyên tính tổng 2 số vừa nhập ( tg đó có sử dụng thủ tục nhập và hàm tính tổng)

0 bình luận về “Vct nhập vào 2 số nguyên tính tổng 2 số vừa nhập ( tg đó có sử dụng thủ tục nhập và hàm tính tổng)”

1. program tinh_tong;

   uses crt;

   var a,b:integer;

   {—Nhap—}

   procedure nhap;

   begin

        clrscr;

        write(‘Nhap so thu nhat: ‘);  readln(a);

        write(‘Nhap so thu hai: ‘);   readln(b);

   end;

   {—Tong—}

   function tong(a,b:integer):integer;

   begin

        tong:=a+b;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

        nhap;

        write(‘Tong la: ‘,tong(a,b));

        readln;

   end.

   Bình luận

2. var a, b: integer;

   procedure nhap;

   begin

        write(‘Nhap so thu nhat: ‘);  readln(a);

        write(‘Nhap so thu hai: ‘);   readln(b);

   end;

   function tong(a, b: integer):integer;

   begin

        tong:=a+b;

   end;

   Begin

        nhap;

        write(‘Tong la: ‘, tong(a,b));

        readln

   end.

    

    

   Bình luận