<HTML><HEAD>
<META HTTP-EQUIV="content-type" CONTENT="text/html; charset=koi8-r">
<TITLE>Ada95 Lovelace Tutorial ������ 9.2 - ����� ������ � ����� �����</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.2 - ����� ������ � ����� �����</FONT></H1>
� ������ Text_IO ��������� ����� ��������������� ��� ������������������ �����, ������  
�� ������� �������� ���� ��� ����� ��������. � ��������� ������������  
�������� ������������ ��������� ������� ����������� ����� ������ �  
����� �����, ������� Text_IO ���������� ��, �������������� ������������ ���  
������ ������������ �������.
<P>
��������� ������������ �������� � ������ � ������ ������ �  
������ �����:
<DL>
<DT>��������� New_Line
<DD>
New_Line ����������� ������� ������ � �������� �����. ��� ���������  
��������� �������������� ��������, ������� ���������, ������� �����  
����� ���������� �������� (�� ��������� - ����). ����� ����� �������  
����, � ������� ����� ��������� ����� ������ (�� ��������� ���  
Current_Output).
<DT>��������� Skip_Line
<DD>
Skip_Line �������� ����������� New_Line. ��� �������� ���� �� ��������� �� �������  
������, ��������� ����� �����, ������ ��������� � ������� ������ � �� ���  
��� ������.
<DT>������� End_Of_Line
<DD>
���������� True, ���� ��������� ����� ������ (����� ������������ False).
<DT>������� End_Of_File
<DD>
���������� True, ���� ��������� ����� ����� (����� ������������ False).
<DT>������� Line
<DD>
���������� ����� ������� ������ � �����, ������ ��� ������ ��������  
����������� (����� ������ ������ ����� 1). ��� ������� �������, ���� ���  
��������� ��������� ������� ������  ���������� �������������� ������ �����.
</DL>
<P>
���� ���������� �������� � �����-���� ������, ��, ��� � � ��������� Get �
Put, ������ ������ ���� ��������, ������� ��� File_Type,
����� �� ��������� ����� ������������ Current_Input Current_Output.  
��������, ���� ������������ ������ �� Startup_File (���������� ����  
File_Type), ����� ������������ ��� �������� ����� �����  
"End_Of_File(Startup_File)".
<P>
��� ������������ ����� ���������� ������� � ��� ����������. �������,  
��� � Ada ��� ������ ������������ ��� ���������� �� ����� �������  
������ () ����� ����� ������������ (��� �������������� ������� ��  
���������� C � C++).
<P>
���� �������� ��� ���� ������ ���������, ������� �������� ������  
"�������" ������. ���� ������ ������������ ����� ������������� � ���  
����������� ``while (not End_Of_File)'', ������� ����� ��� ��������� �����
����� � ����� �����.
<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=17 COLS=80>

with Ada.Strings.Unbounded, Text_IO, Ustrings;
use  Ada.Strings.Unbounded, Text_IO, Ustrings;

procedure Put_Long is
  -- ������ "�������" ��������� �����
  Input : Unbounded_String;
begin
  while (not End_Of_File) loop
    Get_Line(Input);
    if Length(Input) &gt; 10 then
      Put_Line(Input);
    end if;
  end loop;
end Put_Long;

</TEXTAREA>
</PRE>
<INPUT TYPE="hidden" NAME="file" VALUE="put_long.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>
���� ���������� ���������� ������� �������� ������, �����  
������������ ���������� ������������?
<OL>
<LI><A HREF="s9s2r1.htm">New_Line</A>
<LI><A HREF="s9s2r2.htm">Skip_Line</A>
<LI><A HREF="s9s2r3.htm">End_Of_Line</A>
</OL>
<HR>
�� ������ �����:
<P>
<TABLE BORDER=0><TR>
<TH><A HREF="s9s1.htm">
<IMG SRC="barrowl.gif" ALT="PREVIOUS " HEIGHT=31 WIDTH=31>
������� � ����������� �������</A>
<P></TH>

<TH><A HREF="s9s3.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/s9s2.htm">http://www.adahome.com/Tutorials/Lovelace/s9s2.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>