viết chương trình ghi 2 số 5 15 vào tệp so.txt, sau đó đọc tệp so.txt gán giá trị vào 2 biến x,y. Tính tổng hiệu tích thương của x,y rồi in kq ra màn

0 bình luận về “viết chương trình ghi 2 số 5 15 vào tệp so.txt, sau đó đọc tệp so.txt gán giá trị vào 2 biến x,y. Tính tổng hiệu tích thương của x,y rồi in kq ra màn”

1. uses crt;
   var f:text;
       x,y:byte;
   BEGIN
           clrscr;
           assign(f,’so.txt’);
           rewrite(f);
           write(f,5,’ ‘,15);
           close(f);
           reset(f);
           read(f,x,y);
           close(f);
           writeln(‘Tong=’,x+y);
           writeln(‘Hieu=’,x-y);
           writeln(‘Tich=’,x*x);
           write(‘Thuong=’,x/y:0:3);
           readln
   END.

   Cho mik ctlhn nha.

   Bình luận