<HTML><HEAD>
<META HTTP-EQUIV="content-type" CONTENT="text/html; charset=koi8-r">
<TITLE>Ada95 Lovelace Tutorial ������ 9.1 - ���������� �������� �����/������ ���������� �����</TITLE>
<LINK REV="made" HREF="mailto:dwheeler@ida.org">
<!-- Below are RSACi and SafeSurf ratings for this material. -->
<META http-equiv="PICS-Label" content='(PICS-1.0 "http://www.rsac.org/ratingsv01.html" l gen true comment "RSACi North America Server" by "dwheeler@ida.org" for "http://www.adahome.com/Tutorials/Lovelace" on "1996.04.04T08:15-0500" exp "1997.07.01T08:15-0500" r (n 0 s 0 v 0 l 0))'>
<META http-equiv="PICS-Label" content='(PICS-1.0 "http://www.classify.org/safesurf/" l gen true for "http://www.adahome.com/Tutorials/Lovelace/" by "dwheeler@ida.org" r (SS~~000 1 SS~~100 1))'>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1><FONT COLOR="#996600">������ 9.1 - ���������� �������� �����/������ ���������� �����</FONT></H1>
� ����� ������ �� ��� ��� �������������� ������ ���������  
������������ �����/������, � �������� �� ����������������� ������  
Text_IO. ������ ������ ����� ������ � ���, ��� ����� ������������  
�������������� ����������� ����� ������, � � ���������, � ���, ��� ��������� 
������ � ������ ��������� ������.
<P>
������� �������� ������� �� ������������ � ������ Text_IO �����,  
������� ����� ������ �������� �������� File_Type. ��� �������� ��� �������  
������������ ��� ������ �������� ����� ����. �� ��������� ��� �������� �����  
(�����, ��� Get) ������������ ������ Current_Input (������� ����� ���  
File_Type), � ��� �������� ������ (�����, ��� Put � Put_Line) - 
Current_Output (����� �������  ��� File_Type).
<P>
�� ����, ��� ��������� ������ ��� ������ � ����, �� ������ ���� ����  
������, ���� ������. � ������ Text_IO ��� ����� ���� ��� �������� ���������,  
������� ����������� ���������� Open  � Create. ��������� Open  
��������� ������������ ����, � Create - ������� ����� (��� ������� ������������ ����) 
� ��������� ���. ����� ������� �� ���������  
���������� ������� ��� �����, ������� ���� �������; ��� �����  
������������ ��������� Close. ���� ���� �������� ���� ��������:
<P>
<PRE>
  procedure Create (File : in out File_Type;
                    Mode : in File_Mode := Out_File;
                    Name : in String    := "";
                    Form : in String    := "");

  procedure Open   (File : in out File_Type;
                    Mode : in File_Mode;
                    Name : in String;
                    Form : in String := "");

  procedure Close  (File : in out File_Type);
</PRE>
<P>
�������� ``Mode''  ����� ��������� �������� In_File (���� ��� �����),  
Out_File (���� ��� ������) ��� Append_File (���� ��� ������, � �������  
������ ����������� � ����� �����). �������� ``Form'' ��������  
�������������� � ������������ ��� �������������� ������������ �������  
�������������� ����������, ���� ��� ����������.
<P>
��� ������������ Get �  Put ����� ��������� � �������� ������� ���������  
���������� ���� File_Type.  ���� �������� ����� ���� ����� �������, ��  
������������ ���������� ������ ��� ������ � ������ ����. ������ ������,  
���� �� ������ �������������� ����������� ���������� �����-������,
�� ������������ �����-������ ����������  
�������� ���������� ���� File_Type � �������� ������� ���������. 
<P>
���� �������� ���������� ������  ���������, ������� ������� �����  
���� � ������ "hi" � ���������� � ���� ��������� �����: 
<P>
<!-- The following form permits compilation using WebAda. -->
<P>
<FORM METHOD="post" ACTION="http://sw-eng.falls-church.va.us/cgi-bin/webada/lovelace">
<PRE>
<TEXTAREA NAME="code" ROWS=12 COLS=80>

with Text_IO;
use  Text_IO;

procedure Make_Hi is
  New_File : File_Type;
begin
  Create(New_File, Out_File, "hi");
  Put_Line(New_file, "Hi, this is a test!");
  Close(New_File);
end Make_Hi;
</TEXTAREA>
</PRE>
<INPUT TYPE="hidden" NAME="file" VALUE="make_hi.adb">
<!-- All Lovelace files are krunched to 8+3 filename lengths -->
<INPUT TYPE="hidden" NAME="krunch" VALUE="8">
<TABLE BORDER=0><TR>
<TH><INPUT TYPE=submit VALUE=" Compile with WebAda "></TH>
<TH><INPUT TYPE=reset  VALUE=" Reset "></TH>
<TH><I>Verbose</I> <INPUT TYPE=checkbox  NAME="verbose" CHECKED></TH>
<TH><I>Configure</I> <INPUT TYPE=checkbox  NAME="configure"></TH>
</TR></TABLE>
<BR CLEAR>
</FORM>
<P>
<P>

<HR><P>
<IMG SRC="q.gif" ALT="" HEIGHT=34 WIDTH=23>
<A NAME="quiz"><FONT SIZE=+3 COLOR="#339900">����������:</FONT></A>
<P>
���� ��������� ��������� Make_Hi ��� ����, ������� ����� ������ �����  
��������� ���� "hi"?
<OL>
<LI><A HREF="s9s1r1.htm">1.</A>
<LI><A HREF="s9s1r2.htm">2.</A>
<LI><A HREF="s9s1r3.htm">�� �����.</A>
</OL>
<HR>
�� ������ �����:
<P>
<TABLE BORDER=0><TR>
<TH><A HREF="s8sf.htm">
<IMG SRC="barrowl.gif" ALT="PREVIOUS " HEIGHT=31 WIDTH=31>
������� � ����������� �������</A>
<P></TH>

<TH><A HREF="s9s2.htm">
<IMG SRC="barrowr.gif" ALT="NEXT     " HEIGHT=31 WIDTH=31>
������� � ���������� �������</A>
<P></TH>

<TH><A HREF="lesson9.htm">
<IMG SRC="barrowu.gif" ALT="OUTLINE  " HEIGHT=31 WIDTH=31>
��������� � ���������� ����� 9</A>
<P></TH>
</TR></TABLE>
<P>

<P>
<FONT SIZE=2>
<ADDRESS><A HREF="dwheeler.htm">David A. Wheeler (dwheeler@ida.org)</A></ADDRESS>
<BR>
<I>
�������: <A HREF="mailto:jus@univ.kiev.ua">���� �������</A>
&nbsp;&nbsp;����� �������� ��������: <A HREF="mailto:app@polytech.poltava.ua">�.�. �����</A>
</I>
<P>
�������� ����� ����� ��������� ��������� �� ������
"<A HREF="http://www.adahome.com/Tutorials/Lovelace/s9s1.htm">http://www.adahome.com/Tutorials/Lovelace/s9s1.htm</A>".
<P>
�������� ����� �������� ��������� �� ����� <A HREF="http://www.ada-ru.org">http://www.ada-ru.org</A>
</FONT>
<!-- This text is part of the Ada95 Lovelace tutorial program. -->
<!-- For the contents of lesson 18, the following applies: -->
<!--  Copyright (C) 1996 Ada Resource Association -->
<!--  Copyright granted to the ARA under the condition that this text -->
<!--  will be redistributed to the public domain, without restriction; -->
<!--  you may use this information in any way you with, commercially or not, -->
<!--  without restriction. -->
<!-- = -->
<!-- For all other files in Ada95 Lovelace tutorial, the following applies: -->
<!--  Copyright (C) 2003 David A. Wheeler -->
<!--  This program is free software; you can redistribute it and/or modify -->
<!--  it under the terms of the GNU General Public License as published by -->
<!--  the Free Software Foundation; either version 2 of the License, or -->
<!--  (at your option) any later version. -->
<!--  This freedom only applies to the electronic version; the author -->
<!--  and/or publisher retain all rights to non-electronic versions. -->
<!-- = -->
<!-- This program is distributed in the hope that it will be useful, -->
<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of -->
<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the -->
<!-- GNU General Public License for more details. -->
<!-- = -->
<!-- You should have received a copy of the GNU General Public License -->
<!-- along with this program; if not, write to the Free Software -->
<!-- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -->
</BODY>
</HTML>