viết chương trình đọc từ tệp vao.txt 2 giá trị a,b tính hiệu của chúng rồi ghi kết quả vào tệp ra.txt

0 bình luận về “viết chương trình đọc từ tệp vao.txt 2 giá trị a,b tính hiệu của chúng rồi ghi kết quả vào tệp ra.txt”

1. uses crt;

   var a,b,h:byte;

   f1,f2:text ;

   begin

   clrscr;

   assign(f1,’vao.txt’);reset(f1);

   read(f1,a,b);

   h:=a-b;

   assign(f2,’ra.txt’);

   rewrite(f2);

   write(f2,h);

   close(f1);

   close(f2);

   readln;

   end.

   Bình luận

2. program MTDH;

   var a,b,hieu:byte;

         $f_1,f_2$:text ;

   begin

        assign($f_1$,’vao.txt’);reset($f_1$);

        read($f_1$,a,b);

        hieu:=a-b;

        assign($f_2$,’ra.txt’);rewrite($f_2$);

        write($f_2$,hieu);

        $close(f_1);$ $close(f_2);$

   end.

   hay xin hay nhất 100%

   Bình luận