Bài tập tin học lớp 11 làm việc với tệp?

[utlua95]

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

Tình hình là saw81p thi học kì, thầy cho đề ôn mà em học ngu môn này quá nên em chẳng biết làm, em viết câu hỏi ra đây để mọi người vào giúp em với ạh ^^
Cho 2 tệp in.txt và out.txt
bai` 1. nhập vào 1 xâu kí tự trong tệp in.txt, đếm xem có bao nhiêu kí tự và ghi lại kết quả vào tệp out.txt
bai` 2: Trên tệp in.txt lưu giá trị n, tính n! sau đó ghi lại kqả vào tệp out.txt
bai` 3: Trên tệp in.txt ghi tên 4 hsinh trên 4 dòng, đọc và ghi lại tên của các hs đó trên tệp out.txt
Mong mọi người chỉ bảo ạk, em cảm ơn nhiều ^^

 

[terry229]

bai` 1. nhập vào 1 xâu kí tự trong tệp in.txt, đếm xem có bao nhiêu kí tự và ghi lại kết quả vào tệp out.txt

Var f: TEXT;
      x:Char; 
      d:Integer;
Begin
  d:=0;
  Assign(f,'IN.TXT');
  Reset(f);
  While not eof(f) do Read(f,x); d:=d+1;
  Close(f);
   Assign(f,'OUT.TXT');
  Rewrite(f)
  Write(f,'So kt trong tep int.txt la ',d);
  Close(f);
End.

 

[utlua95]

Cám ơn terry 299 nhìu nhá ^^!
/

 

[p_trk]

đây là một xâu kí tự bạn có thể đọc vào xâu S sau đó length(s) là được bạn à !
chúc bạn học tốt !!!