Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được g

Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được ghi vào tệp output.txt

0 bình luận về “Viết chương trình sử dụng chương trình con (hàm và thủ tục) tính diện tích hình chữ nhật biết độ dài các cạnh được đọc từ tệp input.txt kết quả được g”

  1. program LN;
    uses crt;
    var a,b:integer;
        f,g:text;
    function dt(x,y:integer):integer;
    var S:integer;
    begin
    S:=x*y;
    dt:=S;
    end;
    procedure nhap_xuat;
    begin
    assign(f,’input.txt’);reset(f);
    assign(g,’output.txt’);rewrite(g);
    read(f,a,b);
    write(g,’dien tich hinh chu nhat la : ‘,dt(a,b));
    close(g);
    end;
    begin
    nhap_xuat;
    end.

    Bình luận

Viết một bình luận