Help me please!! Viết chương trình lấy dữ liệu chiều dài và chiều rộng từ file dulieu.txt . Tính diện tích và chu vi của hình chử nh

Help me please!!
Viết chương trình lấy dữ liệu chiều dài và chiều rộng từ file dulieu.txt . Tính diện tích và chu vi của hình chử nhật. Ghi kết quả vào file ketqua.txt
Yêu cầu phải có sử dụng chương trình con (hàm tính diện tích và chu vi).

0 bình luận về “Help me please!! Viết chương trình lấy dữ liệu chiều dài và chiều rộng từ file dulieu.txt . Tính diện tích và chu vi của hình chử nh”

  1. Const Fi=’Dulieu.TXT’;
          Fo=’Ketqua.TXT’;
    Var f,g: text;
        a,b: extended;

    Function dientich(a,b: extended): extended;
    Begin
            dientich:=a*b;
    End;

    Function chuvi(a,b: extended): extended;
    Begin
            chuvi:=(a+b)*2;
    End;

    Begin
            Assign(f,Fi); Reset(f);
            Assign(g,Fo); Rewrite(g);
            Read(f,a,b);
            Writeln(g,dientich(a,b):0:2);
            Write(g,chuvi(a,b):0:2);
            Close(f);
            Close(g);
    End.

    Bình luận

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