Bài 1: Viết chương trình tính chu vi, diện tích hình chữ nhật có cấu trúc dữ liệu như sau: *Dữ liệu vào được cho file hcn.inp có : -Dòng 1: Độ dài chiều dài và chiều rộng hình chữ nhật là những số nguyên dương. *Dữ liệu ra file hcn.out có cấu trúc: - Dòng 1: Chu vi hình chữ nhật - Dòng 2: Diện tích hình chữ nhật *Trong hcn.inp có dữ liệu: 6 4 trong hcn.out có kết quả: 20 24 CẦN GẤPPPPP

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

*Thao tác đọc xuất file :

  + Gán tên file cho tên biến tệp : Assign(<tên biến tệp>, <tên file);

  + Mở file để đọc : Reset(<Tên biến tệp>);

  + Mở file để ghi : Rewrite(<Tên biến tệp>);

  + Đóng file : Close(<tên biến tệp>);

- Ghi dữ liệu, con trỏ xuống dòng : Writeln(<tên biến tệp>,<nội dung>);

- Ghi dữ liệu, con trỏ không xuống dòng : Write(<tên biến tệp>,<nội dung>);

- Đọc dữ liệu trên 1 hàng : Read(<tên biến tệp>,<danh sách biến/dữ liệu>);

- Đọc dữ liệu trên nhiều dòng : Readln(<tên biến tệp>,<danh sách biến/dữ liệu>);

- Ngoài lề : Mô tả dữ liệu đầu ra 2 kết quả chu vi, diện tích 2 dòng riêng mà ví dụ lại chung 1 dòng :))?

*Code :

const fi = 'hcn.inp';
      fo = 'hcn.out';
    // tên tệp
    var a, b, CV, S : longint;
        f1, f2 : text ; // biến tệp
begin
    assign(f1,fi); reset(f1);
    assign(f2,fo); rewrite(f2);
    read(f1,a,b);
    CV := (a + b) * 2 ;
    S := a * b ;
    writeln(f2,CV);
    writeln(f2,S);
    close(f1);
    close(f2);
end .