Làm việc với tệp (tiếp theo)

CHƯƠNG 5. TỆP VÀ THAO TÁO VỚI TỆP
LÀM VIỆC VỚI TỆP (Tiếp theo)


Bài tập 4:


Program BT_4;
Var f1, f2: text;
X: array [1..8] of integer;
Max, vt, i: integer;
Begin
Assign (f1, ’Vao.pas’);
Reset (f1);
For i:=1 to 8 do
read (f1, X[i]);
Max:=X[1];
vt:=1;
For i:=2 to 8 do
If X[i] > Max then
begin
Max:=X[i];
vt:=i;
end;
Assign (f2, ’Ra.pas’);
Rewrite (f2);
Write (f2, ‘Gia tri lon nhat la: ‘, Max, ‘tai vi tri : ‘,vt);
Close (f1) ;
Close (f2) ;
readln
End.









Bài tập 5:


Program TB_5;
Var f1, f2: text;
S, A: string [21];
tim, i: integer;
Begin
Assign (f1, ‘Truoc.pas’);
Reset (f1);
Read (f1, S);
Close (f1);
A:=’’;
For i:= 1 to length (S) do If S[i] = ‘ ‘ then A:=A + S[i];
While pos (‘a’,S) <> 0 do
begin
tim:=pos (‘a’,S);
delete (S,tim,1);
end;
Assign (f2, ‘Sau.pas’);
Rewrite (f2);
Writeln (f2, ‘Xau chi chua dau cach: ‘,A);
Writeln (f2, ‘Xau da thay the : ‘,S) ;
Close (f2);
readln
End.