Viết chương trình con tính tổng hai số bất kì

0 bình luận về “Viết chương trình con tính tổng hai số bất kì”

1. function tong(a, b: real): real;

   begin

       tong:= a + b;

   End;

   Bình luận

2. uses crt;
   var x,y:real;
   {—Ham-tong—}
   function s(x,y:real):real;
         begin
               s:=x+y;
         end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         write(‘Nhap hai so: ‘); readln(x,y);
         write(‘Tong: ‘,s(x,y):0:2);
         readln;
   END.

   Bình luận