Tin học thao tác với tệp

[an ly]

[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.

cho tệp DIEM.INP chứa điểm môn tin của mười bạn. Viết chương trình tìm điểm cao nhất trong tổ và ghi vào tệp DIEM.OUT ( xin mọi người giúp mình bài tập này nhé, ngoài khai báo ra mình thật không biết làm gì).

 

[Trâm Nguyễn Thị Ngọc]

cho tệp DIEM.INP chứa điểm môn tin của mười bạn. Viết chương trình tìm điểm cao nhất trong tổ và ghi vào tệp DIEM.OUT ( xin mọi người giúp mình bài tập này nhé, ngoài khai báo ra mình thật không biết làm gì).

Cho mình hỏi là điểm môn tin của mười bạn là nhập từ dãy à bn

 

[Trâm Nguyễn Thị Ngọc]

Nếu là dãy thì làm như thế này:

Var
 fi,fo:text;
 a:array[1..11] of integer;
max,i:integer;
Begin
 Assign(fi,'diem.inp');reset(fi);
 Assign(fo,'diem.out');rewrite(fo);
 For i:=1 to 10 do
   readln(fi,a[i]);
max:=a[1];
 For i:=2 to 10 do
   if a[i]>max then max:=a[i];
write(fo,max);
Close(fi);Close(fo);
END.

 

[an ly]

cảm ơn bạn rất nhiều, mình không hiểu nhiều về pascal cho lắm. cho mình hỏi làm xong chương trình thì phải tạo tệp diem.inp nếu muốn in kết quả ra màn hình nhỉ?

 

[Trâm Nguyễn Thị Ngọc]

cảm ơn bạn rất nhiều, mình không hiểu nhiều về pascal cho lắm. cho mình hỏi làm xong chương trình thì phải tạo tệp diem.inp nếu muốn in kết quả ra màn hình nhỉ?

Vâng, nhưng tệp diem.inp là để nhập dữ liệu thôi , phải có tệp diem.out nữa để in kq ra