Hàm chia số lớn( lập trình pascal nghe)

0 bình luận về “Hàm chia số lớn( lập trình pascal nghe)”

1. uses crt;

   var a,b: int64;

   function ch(x,y: int64) of real;

   begin

   ch:=x/y;

   end;

   begin

   clrscr;

   write (‘nhap so bi chia: ‘);   readln (a);

   write (‘nhap so chia: ‘);  readln (b);

   writeln (a,’/’,b,’= ‘,ch(a,b));

   readln;

   end.

   ĐÂY Ạ 

   Bình luận

2. uses crt;

   var a,b: Qword;

   function chia(x,y: Qword) of real;

   begin

   chia:=x/y;

   end;

   begin

   clrscr;

   write (‘nhap so bi chia: ‘);   readln (a);

   write (‘nhap so chia: ‘);  readln (b);

   writeln (a,’/’,b,’= ‘,chia(a,b));

   readln;

   end.

   Bình luận