Tin học Viết chương trình

Thread starter duongthuyhoaithuong@gmail.com
Ngày gửi 6 Tháng ba 2019
Replies 4
Views 367

Bạn có 1 Tin nhắn và 1 Thông báo mới.
[Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

duongthuyhoaithuong@gmail.com

Học sinh

Thành viên

6 Tháng ba 2019

#1

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn

Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi ng giúp mik khai báo bài này vs.
Mik c.on

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2

Thành viên

6 Tháng ba 2019

#2

duongthuyhoaithuong@gmail.com said:
Mọi ng giúp mik khai báo bài này vs.
Mik c.on
View attachment 104182

Dữ liệu vào là mấy số vậy bạn. Với lại phải là tệp .inp hoặc .txt chứ bạn

duongthuyhoaithuong@gmail.com

Học sinh

Thành viên

6 Tháng ba 2019

#3

Trâm Nguyễn Thị Ngọc said:
Dữ liệu vào là mấy số vậy bạn. Với lại phải là tệp .inp hoặc .txt chứ bạn

Mik cũng k hiểu đề cho sao thì mik ghi z ak

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2

Thành viên

7 Tháng ba 2019

#4

duongthuyhoaithuong@gmail.com said:
Mọi ng giúp mik khai báo bài này vs.
Mik c.on
View attachment 104182

Mã:

Var
 Fi,fo:text;
 cd,cr,s,cv:integer;
Begin
  Assign(fi,'so.inp');reset(fi);
  Assign(fo,'kq.out');rewrite(fo);
  Read(fi,cd,cr);
  Cv:=(cd+cr)*2;
  S:=cd*cr;
  Write(fo,cv,' ',s);
  Close(fi);close(fo);
End.

siroclc

Học sinh

Thành viên

7 Tháng ba 2019

#5

Mình thấy đề của cậu chưa rõ ràng. Tệp vào phải đọc chiều dài và chiều rộng thì mới in ra tệp ra chứ.

You must log in or register to reply here.

Chia sẻ:

Facebook Reddit Pinterest Tumblr WhatsApp Email Link

Top Bottom

Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.