<HTML><HEAD> <META HTTP-EQUIV="content-type" CONTENT="text/html; charset=koi8-r"> <TITLE>Ada95 Lovelace Tutorial ������ 6.5 - �������</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">������ 6.5 - �������</FONT></H1> ��� `������' � Ada ����� ��������� ��������� ��������� ������ � ���� �� �������. ������ � Ada ����� ����� �� ������� �� ������ ������ ������, �� ������� ��������� ������ �����������, � ������� ���������� �����. <P> <OL> <LI> ������� �������� � ��� �� ����������� ���������� � ���� ��� �������. ������� �������� ����� ���������� (� �������������) ����� ����� ���������, ������� �� ������ �������� �������� ��� ������. ��� ������, ��� ����� ������ ������ � -5 (���� ��� ����� �����), � ����� ������������ ������������� ���� � �������� ��������. ������, ���� ��� ������������ ����� �������, � ���������� �� Ada � �������� ���������� ������� ���������� 1. ��� ��������� ����������� ��� ���������� ������ "������ �������" (``one-off'' errors ), ��� ��� ���� ������ �������� ������� � �������, � ���������� ����������, ����� ���������� �������� ���� � ����. <LI> ��� � ������ ������ � Ada, ��������� � �������� (��� ������ ��� � ������) ������ ����������� �� ����� ����������. �� ����, ���� ������ ������� �� ������� �������, �� ������ "������������" ���������� ����� ���������� <EM>����������</EM>. ��� ������������� ���������� ������� ���������� ������. <LI> ����������� ������� ����������� ������� �������. <LI> ���������� ���������, � ������� ������� ����� <EM>���������</EM> �������. ��� ��������� ����������� �� ������������� ������������ ������������� ������ ��� �������� ��������. ���� ������ �������� ������ ��� �������� �������� � ���������� ���� Boolean � Character. <LI> ��������� � �������� ������� ��������� ������� ������� �� ����� �������. ����� �������, ���� �� �������� ��������� � ������� �� ����� �������, �� ���, ������������ �������� �������, ������ �����, ��������� ������������ ��������� ���������. <LI> ����� ���������� ������ ��� ������� �������� ��� ������������ � ������������� �������. ����� ������� ���������� '���������������'. ��� ����� �������, ������� �� ������� �� ������. </OL> <P> ���� ��������� ��������� ��������: <P> <PRE> -- ������� �������� ����� ��������: type Table is array(1 .. 100) of Integer; -- 100 ���������� ���� Integer. type Schedule is array(Day) of Boolean; -- ���� ���������� ���� Boolean, �� ����� ��� ������� ��� type Grid is array(-100 .. 100, -100 .. 100) of Float; -- 40401 ���������� ���� Float. -- ������� �������� ����������: Products_On_Hand : Table; -- ���������� �������� 100 ���������� ���� Integer. Work_Schedule : Schedule; Temperature : Grid; -- � ������� �������������: Products_On_Hand(1) := 20; Work_Schedule(Sunday) := False; Temperature(0,0) := 100.0; Put(Products_On_Hand(1)); </PRE> <!-- No quiz question --> <P> <HR> <P> � ����� ������� ���������� �����������. <P> <IMG SRC="pright.gif" ALT="" HEIGHT=14 WIDTH=33> <A HREF="s6s6.htm"> <FONT SIZE=+1><STRONG>�� ������ ������� � ���������� �������.</STRONG></FONT></A> <P> <HR> �� ������ �����: <P> <TABLE BORDER=0><TR> <TH><A HREF="s6s4.htm"> <IMG SRC="barrowl.gif" ALT="PREVIOUS " HEIGHT=31 WIDTH=31> ��������� � ����������� �������</A> <P></TH> <TH><A HREF="lesson6.htm"> <IMG SRC="barrowr.gif" ALT="OUTLINE " HEIGHT=31 WIDTH=31> ��������� � ���������� ����� 6</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> ����� �������� ��������: <A HREF="mailto:app@polytech.poltava.ua">�.�. �����</A> </I> <P> �������� ����� ����� ��������� ��������� �� ������ "<A HREF="http://www.adahome.com/Tutorials/Lovelace/s6s5.htm">http://www.adahome.com/Tutorials/Lovelace/s6s5.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>