![](data:image/gif;base64,R0lGODlhwQIzBHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAAAAAC/AjEEhQAAAAAAAAgICA0LCgQAAAQIDQ0KCAMDCAsLDQ0LCwgDAwgKDQsGAwMGCwQDCAQABAoLDQoEAAoGAwAAAwgKCwgDAAAABA0IBAAECgMDAwMABAADCAQAAwgGBBwcHBAQEAMAAAsGBCAgIEBAQGBgYH9/f3BwcL+/v////wECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwb/QEBASBwai8ijMslcOpvQpzRKnVqr2Ks2y916u+CvOEwem8voszrNXrvb8Lc8ThcG7vi8fs/v+/+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZh2mp2en6ChoqOkpaanqKmqngB2JCewsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0sx4diUo2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr0d6131/sCChxIsKDBgwgTKlzIsKHDfNX+PZxIsaLFixgzatzIsSO3ftY8ihxJsqTJkyhTqgwXMQDAlTBjypxJs6bNlSAl3tzJs6fP/59Ag7Lsp1Oo0aNIkypdajCnS6ZQo0qdSjVqy5dVs2rdyrWrRqdYvYodS7as2XZXz6pdy7btWLBu48qdS9dn2rp48+rd+3VISL6AAwseDJHoU8KIEyteDA4u48eQI++9K7my5ctkHWPezLnzUsqeQ4seTVMz6dOoU3cErbq169cJTcOeTbs2P8NhbevezXuc7N7Ag/dmLby48de/jytfHpo48+fQJSePTr36YOfWs2uvO3279+9nsYMfT35r9/Lo03/Grb69+/X+Dr+fT7+n+Pr485s8r7+//4z3/SfggA3xR+CBCA4UYIIMNliPgQ5GKOE6C05o4YXiQIjhhhxiU/9hhyBaqGGIJDb4YYkoHjhiiiz6d2KLMOK3Yow0uvdijTiiN2OOPH53Y49AZrdjkERC92ORSCo3ZJJMBndkk1DutmSUVM72ZJVYtjZlllySdmWXYHq2ZZhkXvZlmWhGNmaabCp2ZptwXudXUXHWydmbdubJ3Zzy6eknZHj+Kahaaw5qaFmBHqooV4Uu6mhWiT4qKVSNTmqpUpFeqmlQlW7qqV3sfSpqV52OaqpMmZ6qakqlrupqSam+KutqfOY26607xYrrrhS1yuuvDukK7LAI+UrssQUJi+yy+hjL7LP3KAvttPE4S+217kiL7bboWMvtt+VoC+6433hL7rkfhYr/7rqFxWcru/DCI26845pLb73q3qsvO/buu+28/l7bb8DUAkwwtAMf/KzBCi+bcMPIMgwxsQ9PPKzEFv9acca8Yswxrht/fKvHIssacsmvkozyqievrKrKLpvacsyjwkzzpzPf7KnNOmuac8+X8gz0pD8PLanQRjtadNKLIs30oUs/bajTUgsaddV/Uo21nldvnafWXtfZddhxgk12m2OfzabZaqOZdttlsg13mG/PDabcdnNZd95Z4s13lXv/TaXfgkMZeOFNEo54kocvjqTijhPZeORBQk55j5NfzqPlmuOYeec1cg56jJ+PDqPoprNYeuopos56iau/TqLrsoMY/3vtHdKO+4a3746h7r6LWGvwOOdLvKW9Hx8h8MqbOHzzyBsPfdPPT/8o89YTmHz22kvPvdXVfz+19+JzHX75WZOPvtjnr/+1+u6j3X78ZcNPv9vz37+2/frTnX//ceMfAPX2vwHeTYAGBFwBE9g3BDLQcAt84OAcKEHGRbCCiaMgBiV3wQ0+ToMexFwHQ1g5EJLQcyM84eZMqELSpbCFoWMhDFX3whmeToY2hF0Nc9g6HPLQdjv84ex8KETeBbGIuSMiEoXnriWW0Ah9ciIKmyjFFULxXVWkIRWzGMMrcnGKf/miC70oRhdusYw0JCMatRjGNaIIe25EzhHj2D010v8xRNu7o5aUqMf85LGPqIEjIL00x0H6kY+GfM8fE9kcRDJSPYt85J0cKcnyRLKSZqIkJsFzyU1KR5Oe3E4nQ/kYQZJSTYU85XhMqUrGjLKViGElLBPzylkKRpa2lNMZc3lIO/JSRqn8JXVwKczJBLOYzyEmMvFSy2XSRZnOnEszoxkXaFLTLdO8Jlusqc21ZLOb4QElOGvzzXFmRpzmhE050+kVbrJTLOt8p3nQKc/UxLOeVXEnPrVyz31KRZ/+pEo/A8oUgBLUKsc8qD3pqdBJ7rKhxzEoRJMy0IkKRaIWNUpFM/oTjHIUKBv9KE88KlL7JLSkmCEpSm8S0pWWhqH/LqXlSWOKSl/S1EozvakrYarTwLS0p6ziKVCN+dChLtSmRg1kTpN6S6Ey9ZlLfSpfVCpVkvy0qrRCKlY7c9Wt9kWrXk1pVMMqTaeSNZxFPatlqKpWjHS1rRNhK1wr8ta5FsisdiXVWPNqFrny9a5p/atMwSpYwtS1sE3BK2KnctjFKkixjqXUXiPLT8hSFlOTvaxALavZozS2s9HiLGg5ldnRFlS0pgVVYFMrF7+yNrSrfW1bXCvb28S2toRCLW5fetvdIkq3vo3JZ4OrDtoSFy2lPe5IgatclAy3ueFiLnRhldzpvpSw1p1nb7O7WexyN5/V/S5OpCvejTy3vOny/y56Jbvd9WJWve7FbHvj61ny0rdX4b2vSIyrX22cl7787a+H8itg89q3wAv5b3wDLGAFu5fB/XXweiGsXwmjl8L3tXB5MQxgAiPYrQf+cLE8LGK6hrjEySIxih/C4QWreMV3hS+Ma6Jh8bb4wS+esUJuPOEc63jEMv6xcH0s5BQHucgqqfF3eXxhIiNZIEzesJOfvI8o23jKVC7MkbNM3flymbpb/vJ+sSzm24S5zBxRMnetvGQyo7laJ34zcr0sZwOfuc4XUXN22bxmN+OZX3H+c7f8LOh08HnPhC70OQ5tXT03OtCKJoejp8toSic60pKGNKaHQudNB0vTnvbGpP+hW2lSXzrU5QI1qrcx6uaW2tWnXnV62yjrvnS61gd5tXJbvWtV45rXx9V1sGON6wHfudiPvTWyH3vsZVeZ2MUWNnGBPW1f15rawZV2tqH9a2vLGtu+1Xa4uX1tb68a3LsVd7rJ/W1zoxrduFV3vNl9bneHGt61lXe+6f1ue3sa37LVd8D5fW9/bxrgrxV4wgn+b4NjGuGsVXjEGX5wh0ca4qmVeMYp/nCLKxrjptV4yDl+cY8XGuSjFXnKSf5xkwsa5aBVecxZfnKX/xnmnZV5zmn+cpvjGeea1XnQeX5zn9cZ6JcVetKJ/nOjyxnplFV61Jl+dKe/GeqRlXrWqf7/dKujGeuO1XrYuX51r5cZ7IsVe9rJ/nWzixntiFV73Nl+drd/Ge6FlXve6f52u3MZ74LVe+D5fne/ZxnwfxV84gn/d8NTGfF8VXzkGX94xz8Z8nmVfOYp/3jLIxnzdtV86Dl/ec8XGfRzFX3qSf950wsZ9XBVfexZf3rX/xj2bZV97mn/etvrGPdq1X3weX97388Y+GcVfvKJ/3vjwxj5ZFV+9Jl/fOevGPphlX72qf9866MY+17Vfvi5f33vlxj8WxV/+sn/ffOLGP1YVX/82X9+938Y/lWVf/7p/377Ixj/UqV/Ach/9+d/BQaATyWACUiA/2eADcaAB+iAEQaB/w/YbM7WLrR2gSwmgRVGgRNogRpoDwjIVApIgh7YgSAYgraVgSqYYByYYScIgynYgnCmbDT4IC/YYTZ4g/NQgkk1gj+Ygy62gzwIZzNYhIBGhEiYLUKIY0q4hIB2hFA4aE84hYbWhD1WhVa4aFjYZFq4hdElhWDoGzHYYWI4hpzGgmgYWme4hqJWhi7Whm6YLl84h28oh3aYDUBoVD7Ih3CIY3iYhyiwh0PVh4X4hz0WiHlIiEBliI2IiE2miHbIiD3liJUIiVImiXNIiTpliZ2IiVemiW7IiTfliaUIim0mimtIijRliq2Iin2mimjIijHlirUIi4gmi2NIiy5li/+9iIuPpotgyIsr5YvFCIyWJoxbSIwoZYzNiIympoxWyIwl5YzVCI2wJo1TSI0iZY3diI29po1QyI0f5Y3lCI7DJo5LSI4cZY7tiI7Vpo5IyI4Z5Y71CI/bJo9FSI8WZY/9iI/jpo88yI8T5Y8FCZDrJpA3SJAQZZANiZDzppA0yJAN5ZAVCZH7JpEtSJEKZZEdiZEDp5EqyJEH5ZElCZILJ5IhSJIEZZItiZITp5IayJIB5ZI1CZMbJ5MXSJP+ZJM9iZMjp5POxpP75JNFCZQrJ5TLRpT4ZJRNiZQzp5TIxpT15JRVCZU7J5XRhpVDp5XdVoeC6F9dKGVgGZbGpob/ZsmEZWmWVilPVOmWY3llaxmWbflOb2mXcdlmcymIdclOd+mXedlne7mIgYlogzmJhfloh7mJiWlpizmKjWlqj7mKkQlrkzmLldlrl7mLmTlsmzmMnVltn7mMobltozmNpTlup7mNqbluqzmOrTlvr7mOsblvszmPtTlwt7mPublwuzmQvTlxv7mQwblxwzmRxTlyx7mRyblyyzmSzTlzz7mS0blz0zmT1Tl017mT2bl02zmU3Tl137mU4bl14zmV5Tl257mVXllu69lt7dlu71lu8Vlv89lu9dlv91lv+Vlw+9lv/dlw/1lwAVpxA9pwBdpxB1pxCVpyC9pxDdpy/w9achFacxPachXacxdacxladBvacx3adB9adCFadSPadCXadSdadSladivadS3adi9adjFadzPadjXadzdadzlaeDvadz3aeD9aeEFaeUPaeEXaeUdaeUlaekvaeU3aek9aelFae1PaelXae1dae1lafFvae13afF9afGFafWPafGXafWdafWlafmvafW3afm9afnFaf3PafnXaf3daf3lagHvaf33agH9agIEagYPagIX6gIcagYk6gYtagWiZlkkYqZJaXOm5do/6gZRaqVS4qZxqDn2ZTn8pqpc6d5mKgp76qZl2qjKYqqqaIVy5dI3agaxqhq76qo0Rq1M3q/8wWKtxeKu4+oa+CojAGqx0WKzGKpa8qoPImqxnSSfOCqq6unXLOoTN6qyhak6jqq2lunfDmojXmqzbOk7ZSq7TOnbV6oThaqzlCk7j6q7dOnjfGonrGqzv2k3tiq/nunbpmoX1iqv5qk33KrDxunjzmon/+qoDe00By7D7Onf96oUJq6oNS00La7EFO3kHG4oT+6kXG00VC7IPu3cRS5Ydy6kh60wfq7IZu3kbm4onW6kru0wpS7MjO3glK5cxK6k1i0wz67MtO3ovG4s7m5Y/W0w9i7Q3u3g5q5dFy5ZBu3pDm4tPS5dLO3lNK5hVy5dRO3tTG4xbS5hfm4xhi5j/YxuNZcuYZ5uNaQuZaxuObUuZb5uOcStnJjACeJu3eru3fNu3fjsCSetEgMsK0LqFgCsAf5u4iru3gbtEgCsCWla3b/a4kVu4Vki5+NC4SIS5bCi5aMa5Iti1+wS6OJi1Z8W5A0AAeVAA76C5RcS5BnAACIACCaAAC9C6ootPnMsADYANA+AACDAADwABKCC8xBsBd9C7sSsBATABFFABAWABxDuIuVtPnBsBrIsCF4ABKBC7s+u9EcC9xnsBGdC7DBAArMu7zxpFhhsAkEu7tosN6qu+2tsABqAB04sN4au/vYsCEdC/ritEmPu7s+u/rIu9+lsAF7ABBQy/t1u7/w8cv9RrumSFuduLDRBsvMXLAQtwwdmgwSA8vOuLRUuIuf+LDd7rvQlQAQx8vxCwwvYru90rwwtcwAH8Q4+butKLDRe8ws3bAdyLAucbAL3rwR5MvxPsuWVGumamxGLGxD1YvfIExfJwwzxExUboxF+GxfIixe/ExbhLwWEFxkwoxl5FxshlxlvlAQGAuIv7xn9rxTn0AZ+gxVxGx4TLvpfrvpWrx1OIxlFox1kGyBTixexEyJaqxliFyFeoyFXFyIPmyFIFyVwoyU/FxQYAAneww9swxOh7h4JMZVh8AXowAbeLwdC7ut0gxzZExan7yUIcAEHsvwHAwN0LArbMav+GnE5UTMr9S7sVsMOZnMtCbMqzZrl/zMfeEAKnDMy2jLzZK7/GrMuWzFSAnMniSwDEXMzNrIe7bE5onMk7TMqzrL+crKyh/GRkfL6cfL7RXLza3MDeXM1JxcU+XM4MMM0oDALlPM/pjGRYnMmwnA0RoM+0/M7+jMxQSMXinL/ZkM/NPMzynNB+vNDKvA2pu83ZQMq2LNAITdEkjIRQ7Ml5kMvImwe/fMwVXcIXnQ0+vAflfNIGrdIhXYSULK30bFQ3HYb/XGQ7nWk5PVQ/TYZBDVRDDatF3VNHPRRQtApO/dRQHdVSPdVUXdVWfdVY/QeckNVc3dVe/dVgHdZiPdYnZD0IdDAHaH3Wap3WbL3Wbt3WcP3Wch3XdD3Xdl3XeH3Xeq0EdRwEADs=)
end;
// Процедура нажатия на кнопку закрыть
procedure TForm1.Button2Click(Sender: TObject);
begin
close //Закрыть
end;
end.
2.3.4 Массивы
При написании программы использовался массив. Массив — это структура данных, представляющая собой набор переменных одинакового типа, имеющих общее имя. Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков.
Объявление массива
Массив, как и любая переменная программы, перед использованием должен быть объявлен в разделе объявления переменных. В общем виде инструкция объявления массива выглядит следующим образом:
Имя: array [нижний_индекс. .верхний_индекс] of тип
где:
имя — имя массива;
array — зарезервированное слово языка Delphi, обозначающее, что объявляемое имя является именем массива;
нижний_индекс и верхний_индекс — целые константы, определяющие диапазон изменения индекса элементов массива и, неявно, количество элементов (размер) массива;
тип — тип элементов массива.
В нашем случай объявление массива выглядит так:
a:array[1..3,1..3]of integer, где integer-тип целых чисел.
Для того чтобы в программе использовать элемент массива, надо указать имя массива и номер элемента (индекс), заключив индекс в квадратные скобки. В качестве индекса можно использовать константу или выражение целого типа, например:
sum:=sum+a[1,i];
![](data:image/gif;base64,R0lGODlhwQIzBHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAAAAAC/AjEEhQAAAAAAAAgICA0LCgQAAAQIDQ0KCAMDCAsLDQ0LCwgDAwgKDQsGAwMGCwQDCAQABAoLDQoEAAoGAwAAAwgKCwgDAAAABA0IBAAECgMDAwMABAADCAQAAwgGBBwcHBAQEAMAAAMEBAsGBCAgIEBAQGBgYH9/f3BwcL+/v////wECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwb/QEBASBwai8ijMslcOpvQpzRKnVqr2Ks2y916u+CvOEwem8voszrNXrvb8Lc8ThcG7vi8fs/v+/+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZh2mp2en6ChoqOkpaanqKmqngB2JSiwsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0sx4diYp2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr0d6131/sCChxIsKDBgwgTKlzIsKHDfNX+PZxIsaLFixgzatzIsSO3ftY8ihxJsqTJkyhTqgwXMQDAlTBjypxJs6bNlSAl3tzJs6fP/59Ag7Lsp1Oo0aNIkypdajCnS6ZQo0qdSjVqy5dVs2rdyrWrRqdYvYodS7as2XZXz6pdy7btWLBu48qdS9dn2rp48+rd+3VISL6AAwseDJHoU8KIEyteDA4u48eQI++9K7my5ctkHWPezLnzUsqeQ4seTVMz6dOoU3cErbq169cJTcOeTbs2P8NhbevezXuc7N7Ag/dmLby48de/jytfHpo48+fQJSePTr36YOfWs2uvO3279+9nsYMfT35r9/Lo03/Grb69+/X+Dr+fT7+n+Pr485s8r7+//4z3/SfggA3xR+CBCA4UYIIMNliPgQ5GKOE6C05o4YXiQIjhhhxiU/9hhyBaqGGIJDb4YYkoHjhiiiz6d2KLMOK3Yow0uvdijTiiN2OOPH53Y49AZrdjkERC92ORSCo3ZJJMBndkk1DutmSUVM72ZJVYtjZlllySdmWXYHq2ZZhkXvZlmWhGNmaabCp2ZptwXudXUXHWydmbdubJ3Zzy6eknZHj+Kahaaw5qaFmBHqooV4Uu6mhWiT4qKVSNTmqpUpFeqmlQlW7qqV3sfSpqV52OaqpMmZ6qakqlrupqSam+KutqfOY26607xYrrrhS1yuuvDukK7LAI+UrssQUJi+yy+hjL7LP3KAvttPE4S+217kiL7bboWMvtt+VoC+6433hL7rkfhYr/7rqFxWcru/DCI26845pLb73q3qsvO/buu+28/l7bb8DUAkwwtAMf/KzBCi+bcMPIMgwxsQ9PPKzEFv9acca8Yswxrht/fKvHIssacsmvkozyqievrKrKLpvacsyjwkzzpzPf7KnNOmuac8+X8gz0pD8PLanQRjtadNKLIs30oUs/bajTUgsaddV/Uo21nldvnafWXtfZddhxgk12m2OfzabZaqOZdttlsg13mG/PDabcdnNZd95Z4s13lXv/TaXfgkMZeOFNEo54kocvjqTijhPZeORBQk55j5NfzqPlmuOYeec1cg56jJ+PDqPoprNYeuopos56iau/TqLrsoMY/3vtHdKO+4a3746h7r6LWGvwOOdLvKW9Hx8h8MqbOHzzyBsPfdPPT/8o89YTmHz22kvPvdXVfz+19+JzHX75WZOPvtjnr/+1+u6j3X78ZcNPv9vz37+2/frTnX//ceMfAPX2vwHeTYAGBFwBE9g3BDLQcAt84OAcKEHGRbCCiaMgBiV3wQ0+ToMexFwHQ1g5EJLQcyM84eZMqELSpbCFoWMhDFX3whmeToY2hF0Nc9g6HPLQdjv84ex8KETeBbGIuSMiEoXnriWW0Ah9ciIKmyjFFULxXVWkIRWzGMMrcnGKf/miC70oRhdusYw0JCMatRjGNaIIe25EzhHj2D010v8xRNu7o5aUqMf85LGPqIEjIL00x0H6kY+GfM8fE9kcRDJSPYt85J0cKcnyRLKSZqIkJsFzyU1KR5Oe3E4nQ/kYQZJSTYU85XhMqUrGjLKViGElLBPzylkKRpa2lNMZc3lIO/JSRqn8JXVwKczJBLOYzyEmMvFSy2XSRZnOnEszoxkXaFLTLdO8Jlusqc21ZLOb4QElOGvzzXFmRpzmhE050+kVbrJTLOt8p3nQKc/UxLOeVXEnPrVyz31KRZ/+pEo/A8oUgBLUKsc8qD3pqdBJ7rKhxzEoRJMy0IkKRaIWNUpFM/oTjHIUKBv9KE88KlL7JLSkmCEpSm8S0pWWhqH/LqXlSWOKSl/S1EozvakrYarTwLS0p6ziKVCN+dChLtSmRg1kTpN6S6Ey9ZlLfSpfVCpVkvy0qrRCKlY7c9Wt9kWrXk1pVMMqTaeSNZxFPatlqKpWjHS1rRNhK1wr8ta5FsisdiXVWPNqFrny9a5p/atMwSpYwtS1sE3BK2KnctjFKkixjqXUXiPLT8hSFlOTvaxALavZozS2s9HiLGg5ldnRFlS0pgVVYFMrF7+yNrSrfW1bXCvb28S2toRCLW5fetvdIkq3vo3JZ4OrDtoSFy2lPe5IgatclAy3ueFiLnRhldzpvpSw1p1nb7O7WexyN5/V/S5OpCvejTy3vOny/y56Jbvd9WJWve7FbHvj61ny0rdX4b2vSIyrX22cl7787a+H8itg89q3wAv5b3wDLGAFu5fB/XXweiGsXwmjl8L3tXB5MQxgAiPYrQf+cLE8LGK6hrjEySIxih/C4QWreMV3hS+Ma6Jh8bb4wS+esUJuPOEc63jEMv6xcH0s5BQHucgqqfF3eXxhIiNZIEzesJOfvI8o23jKVC7MkbNM3flymbpb/vJ+sSzm24S5zBxRMnetvGQyo7laJ34zcr0sZwOfuc4XUXN22bxmN+OZX3H+c7f8LOh08HnPhC70OQ5tXT03OtCKJoejp8toSic60pKGNKaHQudNB0vTnvbGpP+hW2lSXzrU5QI1qrcx6uaW2tWnXnV62yjrvnS61gd5tXJbvWtV45rXx9V1sGON6wHfudiPvTWyH3vsZVeZ2MUWNnGBPW1f15rawZV2tqH9a2vLGtu+1Xa4uX1tb68a3LsVd7rJ/W1zoxrduFV3vNl9bneHGt61lXe+6f1ue3sa37LVd8D5fW9/bxrgrxV4wgn+b4NjGuGsVXjEGX5wh0ca4qmVeMYp/nCLKxrjptV4yDl+cY8XGuSjFXnKSf5xkwsa5aBVecxZfnKX/xnmnZV5zmn+cpvjGeea1XnQeX5zn9cZ6JcVetKJ/nOjyxnplFV61Jl+dKe/GeqRlXrWqf7/dKujGeuO1XrYuX51r5cZ7IsVe9rJ/nWzixntiFV73Nl+drd/Ge6FlXve6f52u3MZ74LVe+D5fne/ZxnwfxV84gn/d8NTGfF8VXzkGX94xz8Z8nmVfOYp/3jLIxnzdtV86Dl/ec8XGfRzFX3qSf950wsZ9XBVfexZf3rX/xj2bZV97mn/etvrGPdq1X3weX97388Y+GcVfvKJ/3vjwxj5ZFV+9Jl/fOevGPphlX72qf9866MY+17Vfvi5f33vlxj8WxV/+sn/ffOLGP1YVX/82X9+938Y/lWVf/7p/377Ixj/UqV/Ach/9+d/BQaATyWACUiA/2eADcaAB+iAEQaB/w/YbM7WLrR2gSwmgRVGgRNogRpoDwjIVApIgh7YgSAYgraVgSqYYByYYScIgynYgnCmbDT4IC/YYTZ4g/NQgkk1gj+Ygy62gzwIZzNYhIBGhEiYLUKIY0q4hIB2hFA4aE84hYbWhD1WhVa4aFjYZFq4hdElhWDoGzHYYWI4hpzGgmgYWme4hqJWhi7Whm6YLl84h28oh3aYDUBoVD7Ih3CIY3iYhymwh0PVh4X4hz0WiHlIiEBliI2IiE2miHbIiD3liJUIiVImiXNIiTpliZ2IiVemiW7IiTfliaUIim0mimtIijRliq2Iin2mimjIijHlirUIi4gmi2NIiy5li/+9iIuPpotgyIsr5YvFCIyWJoxbSIwoZYzNiIympoxWyIwl5YzVCI2wJo1TSI0iZY3diI29po1QyI0f5Y3lCI7DJo5LSI4cZY7tiI7Vpo5IyI4Z5Y71CI/bJo9FSI8WZY/9iI/jpo88yI8T5Y8FCZDrJpA3SJAQZZANiZDzppA0yJAN5ZAVCZH7JpEtSJEKZZEdiZEDp5EqyJEH5ZElCZILJ5IhSJIEZZItiZITp5IayJIB5ZI1CZMbJ5MXSJP+ZJM9iZMjp5POxpP75JNFCZQrJ5TLRpT4ZJRNiZQzp5TIxpT15JRVCZU7J5XRhpVDp5XdVoeC6F9dKGVgGZbGpob/ZsmEZWmWVilPVOmWY3llaxmWbflOb2mXcdlmcymIdclOd+mXedlne7mIgYlogzmJhfloh7mJiWlpizmKjWlqj7mKkQlrkzmLldlrl7mLmTlsmzmMnVltn7mMobltozmNpTlup7mNqbluqzmOrTlvr7mOsblvszmPtTlwt7mPublwuzmQvTlxv7mQwblxwzmRxTlyx7mRyblyyzmSzTlzz7mS0blz0zmT1Tl017mT2bl02zmU3Tl137mU4bl14zmV5Tl257mVXllu69lt7dlu71lu8Vlv89lu9dlv91lv+Vlw+9lv/dlw/1lwAVpxA9pwBdpxB1pxCVpyC9pxDdpy/w9achFacxPachXacxdacxladBvacx3adB9adCFadSPadCXadSdadSladivadS3adi9adjFadzPadjXadzdadzlaeDvadz3aeD9aeEFaeUPaeEXaeUdaeUlaekvaeU3aek9aelFae1PaelXae1dae1lafFvae13afF9afGFafWPafGXafWdafWlafmvafW3afm9afnFaf3PafnXaf3daf3lagHvaf33agH9agIEagYPagIX6gIcagYk6gYtagWiZlkkYqZJaXOm5do/6gZRaqVS4qZxqDn2ZTn8pqpc6d5mKgp76qZl2qjKYqqqaIVy5dI3agaxqhq76qo0Rq1M3q/8wWKtxeKu4+oa+CojAGqx0WKzGKpa8qoPImqxnSSfOCqq6unXLOoTN6qyhak6jqq2lunfDmojXmqzbOk7ZSq7TOnbV6oThaqzlCk7j6q7dOnjfGonrGqzv2k3tiq/nunbpmoX1iqv5qk33KrDxunjzmon/+qoDe00By7D7Onf96oUJq6oNS00La7EFO3kHG4oT+6kXG00VC7IPu3cRS5Ydy6kh60wfq7IZu3kbm4onW6kru0wpS7MjO3glK5cxK6k1i0wz67MtO3ovG4s7m5Y/W0w9i7Q3u3g5q5dFy5ZBu3pDm4tPS5dLO3lNK5hVy5dRO3tTG4xbS5hfm4xhi5j/YxuNZcuYZ5uNaQuZaxuObUuZb5uOcStnJ0ACeJu3eru3fNu3fksCSetEgMsK0LqFgCsAf5u4iru3gbtEgDsCWla3b/a4kVu4Vki5+NC4SIS5bCi5aMa5Iti1+wS6OJi1Z8W5A0AAeVAA76C5RcS5BnAACJACCaAAC9C6ootPnMsADYANA+AACDAADwABKSC8xBsBd9C7sSsBATABFFABAWABxDuIuVtPnBsBrJsCF4ABKRC7s+u9EcC9xnsBGdC7DBAArMu7zxpFhhsAkEu7tosN6qu+2tsABqAB04sN4au/vZsCEdC/ritEmPu7s+u/rIu9+lsAF7ABBQy/t1u7/w8cv9RrumSFuduLDRBsvMXLAQtwwdmgwSA8vOuLRUuIuf+LDd7rvQlQAQx8vxCwwvYru90rwwtcwAH8Q4+butKLDRe8ws3bAdybAucbAL3rwR5MvxPsuWVGumamxGLGxD1YvfIExfJwwzxExUboxF+GxfIixe/ExbhLwWEFxkwoxl5FxshlxlvlAQGAuIv7xn9rxTn0AZ+gxVxGx4TLvpfrvpWrx1OIxlFox1kGyBTixexEyJaqxliFyFeoyFXFyIPmyFIFyVwoyU/FxQYAAneww92Qutk7a5b7x3zsDRegBxNwu9uwwpwMyn4MhVScuugrvwEQxNmQyQHAwHcoyP9URsWl3L+0WwGrjLwhAAK0zMokjIRYLAKo/Mu4vMLc28upZslMBciZXMzye8rRrMtPhsaZvMrZEAHezGqGnE5kfL7hXLwEgMu5HMquPMre4MPWXMvEnKvSnFRYbMufzA2lnM/G7IZU3M352w0MgM3ZzM4l7M7akLrq/A3gHND9vIZQPMR6sNDoTNEPjYZM7MN7YM2Z7Mvr3MoH/b6da9DIjNClq81IRsnSWs9GpdJhiNJF5tKZxtJDJdNkCEWrkNM6vdM83dM+/dNAHdRCPdR/wAlEfdRIndRKvdRM3dRO/dSDQAdzMNVSXdVUfdVWndVYvdVa3dVc/dVeHdZgPdYIYl3WSlDHQQAAOw==)
Операции с массивами
Типичными операциями при работе с массивами являются:
· вывод массива;
· ввод массива;
· поиск максимального или минимального элемента массива;
· поиск заданного элемента массива;
· сортировка массива.
Вывод массива
Под выводом массива понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.
Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию for, при этом переменная-счетчик инструкции for может быть использована в качестве индекса элемента массива. Например:
for i:=1 to 3 do
Ввод массива
Под вводом массива понимается процесс получения от пользователя (или из файла) во время работы программы значений элементов массива.
"Лобовое" решение задачи ввода элементов массива — для каждого элемента массива создать поле ввода. Однако если требуется ввести достаточно большой массив, то такое решение неприемлемо. Представьте форму, например, с десятью полями редактирования!
Очевидно, что последовательность чисел удобно вводить в строку таблицы, где каждое число находится в отдельной ячейке. Ниже рассматриваются два варианта организации ввода массива с использованием компонентов StringGrid и Memo.
Но этими и остальными операциями я не воспользовался, так как не использовал их в программе.
2.4 Анализ и тестирование
Программа запускается с помощью файла Mag kv. После запуска открывается окно, в котором необходимо заполнить матрицу или покинуть программу (рисунок 10).
![](data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/wAALCAERAewBAREA/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/9oACAEBAAA/AOy1W9a/1u6uriN5Wt55IbaMIZDEqHYSoAzlipYnGcEDOFqL7dJnmC7X3e2kUD6kjAp4unKs22TYCAX2nbk54z0zx0+nqKPth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86Pth/vH86gk1GQSbIwrEAFi7lQM5x0B54P5U3+0bn0g/wC/rf8AxFI+pTqjM8cTIASwWQk478FRmhJtbs0EWhasLCz6mDyEdVY9SuQdoPBwOM5Pes/W7sQ6lewlpF33NzkxuVODNIDyCDVLUI59P8O2ltZzm1a6mF9KZizYiQgKuC3Ic89uB7ZrPi1p7qe2tZ3V/wCz986sFOWabOepxgYYA/ewdoIUEydMFaXw/a3sKFppb0wFc8lSFAP/AH2Qv/AxS3ke3xLe6bASY4VjeJ0hllMimNCThFYn5mboMACkmtpLQaq17cQ2yaW8SXDMHfmQgJgIrE5yvbuKSztbu/Gk/ZlDtqayvCuGBRY2VWZ8j5QCw9/x4o063m1P+xvs80P/ABN45pLbduHyxY3FuOOox9ajRZJNPW7WWIs1kNQEGT5n2YnHmnjAH1OevHFQ3NxHZW0ct3dwQSSQC5jgcne0ZbaG4GBk9ASCcHHSrOrQy6Ktw15NEPJuktAEDMZJWjEmF46BGyScDg80moW9zpran520x6a8Uc8qg7d8mzaqkjk/vF+lO1cXVjcakv2KCG102SJLm4E7yBnkCbI0BRcf61SclunUUafaXWp21vPbtHtnuzaIGJBDCMyEnjAXap5zRpcDaxYx3lndQNFNcPbW+8OpmdYzJxleAUUkFsdPcVFarLe6PLqduS9vFC1w58qQKEHU7yuwnHOA2cdqWHbNaTTi7gVobCTUZISsm4QIzKTkLtzlDgZzUs9rLBAz/aIHkWxTUGhXduWBiQGJK7eMHIz2ppgmXS/7RZwlqGjEkjwyoqbzgHLIA4ycHYWqvqc8WltaRyXccst1AlzHHFFLnyn3bWYsgC52kYJB9qp/2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NRtqiKsshDHJjXgf79dnptpp/iyzXUbaKWxFudl5FHCWV8LnMWM5Y8ccnnp03cvqfiCx1C9l+xWZtbcQOka4GSAp5bnqf856nT0ecXVo7gHiQj9BWB4scJr0gLhFa5uAWOeB9okyeKxtf1uTUry2lsYDalIxAxZgYxGoO35M5P59/qDRgbyi7u4eV8bm2gYAHAHt1IBJ6nmugtfF9xp8dilrZwlrS2uYw8kmQ8krIyNt28bGjU9STjtUDeI99hNYSWCvay6daWcqi42vK0HRi2z5Q3AK85GeR2k1TxZNqcevBrCKJ9Yns5HIuCRF5GzJA2852DjjGepqzpnjnUNMn0lUUPY6akp+zLJsNzI+/l2wcKNwwMHkZ9MUvDPim98OnTd226hsUYLbsEAJZNpxIULIM4Py4zjkUybxJdXHhq10mWOZnhsUsd8eozRQ+WOCTCmA7bcjJIBGMjii+18XtvD5lhHJeQ2iWcdw1wyqsaMSpMYHzMAzfxAc8g1b8QeMZvEP2j7TYoP9ME9oftO426eUsbLynIbBbA28nqe6ar401LWLXWYbtVddRnt2iQS4S1jik3gAY+ZmAAJOPyAFGq+NNS1i11mG7VXXUZ7dokEuEtY4pN4AGPmZgACTj8gBT9L8Z3Gk6db2EVok0Au3nuQ8xCzRtCY/KK45GSGyT1UcGk0nxjJouhjTbfTRIizyShZL3CMrRGIJIBH+8XB3EfLyB0xUCeKHTTfs8mnxTTnRW0cy/aDGojIOCECnBzjJzztHA61dt/EWkLq19bLYXA067t30h7pr7lbUsVMqx+RncQS+CT96k13xNCbS3g09InvL3w3a2V3N9pDC3Vi5ePywv+sxnqwxkcetbUvFj6hbatGdOj87U/spmn+0kAGBlK7U2/KvynjPVicjpVPVdbfVb22mMCwrbafBZLiTcX8suSx4GM7+nPTrVP7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favetfQ7VdVNzBuBkGxlXuQN2f5iu2uzqUj2K2CNp9tY4NvBBnCtjljn7xOT17E9cknK8S2iTvdatJaRWbtbsJNmQskhUjdg9CSen8zk0nhI+Zo7N6zN/IVz3jVzL4guIVwvlz3Byec5uJP8K5zyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyZP8Anov/AHz/APXo8mT/AJ6L/wB8/wD16PJk/wCei/8AfP8A9ejyX/56L/3z/wDXo8l/+ei/98//AF6PJf8A56L/AN8//Xru/Bt0U0aSLbkxzsCc9eFP9axfF/8AyNN7/wBdZv8A0omrEooooooooooooooooooooooooooooooooooooooooooooooooooooooooooorrfCP/IOuf8Ar5P/AKAlZvi//kab3/rrN/6UTViUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV1vhH/AJB1z/18n/0BKzfF/wDyNN7/ANdZv/SiasSiiiiiiiiimPKkbxqxwZG2qMdTgn+QNJFcRTmQROH8p/LfHZsAkfrUlFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFdb4R/wCQdc/9fJ/9ASs3xf8A8jTe/wDXWb/0omrEoooooooooqjqQn32TW8e91uOSRwoKONx9hnp36d6prbParNGBcfZ/tQMjJu3uvkr82V5JL4yR75708/afPh8r7V9n/d+Z5md+N527f8A2bdztxnnNVWnnhjgBN35kgVLkFZDl9yltn/ARLynHT/Zqaze6lkjS3lkQRmdXNxG7Y+dSgOSDnaRjJ6ZqJGvh9hZvtCSqsCsCkjbwdu8sc7QeWB3DPGfTFnT0u1vo3mWXy2hfczSud53Lhih4QkZIUdMkdqZKupfYLsJJL83nspx864Ztqr3wRjBxxg46jA63E2qqrG4SN5GWREEoAQKcHeDtGSFPAB5we+Y0URJpyXT33z2zPIqvKzb/wB312nI6njoM0+I6oYisqyBhPAZHPcYj3Bcds7iT069cnDLa7nMRiZbkymziBEiSKdwJEjDoSRuU8HJ4wavaSZvImWVpGVZcRtJG6ErtU9HJbqT1J/KtCiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiut8I/8g65/6+T/AOgJWb4v/wCRpvf+us3/AKUTViUUUUUUUUUUUUUUUUUUUmxS4cqNwBAbHIBxn+Q/KlooooooooorpfCfhNfE63jNfG2+zmMcQ+Zu3bv9oYxt/Wuj/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8co/4VUn/AEGpP/AMf/HKP+FVJ/0GpP8AwDH/AMco/wCFVJ/0GpP/AADH/wAco/4VUn/Qak/8Ax/8crm/FXhZPDfkBb57lpeSGhCYHb+I56GuborrfCP/ACDrn/r5P/oCVm+L/wDkab3/AK6zf+lE1YlFFFFFFFa2haFNrtw1vbsfOyAqgA7uGJ5JAHCmui/4VhrP/POT/wAh/wDxyj/hWGs/885P/If/AMco/wCFYaz/AM85P/If/wAco/4VhrP/ADzk/wDIf/xyoZfh3qEM8Fu7sLicsI4tqZOBknO/Hr37VN/wrDWf+ecn/kP/AOOUf8Kw1n/nnJ/5D/8AjlH/AArDWf8AnnJ/5D/+OUf8Kw1n/nnJ/wCQ/wD45UMvw71CGeC3d2FxOWEcW1MnAyTnfj179qm/4VhrP/POT/yH/wDHKP8AhWGs/wDPOT/yH/8AHKP+FYaz/wA85P8AyH/8co/4VhrP/POT/wAh/wDxys3XvBl34f0kXt3IVZp1hWIqMkFWO7IYj+HGP8nmaKKKKK9I+FX+r1f/AH4P5S16NVDU9ZsNG+x/b5/J+2XSWcHyM2+V87V4BxnB5PHvRqes2GjfY/t8/k/bbpLSD5GbfK+dq8A4zg8nj3q/RRRRRRRRRUH260+3/YPtUP2zyvO+z+YPM8vON+3rtzxnpmp6KKKKKKKKoatrNhodolzqE/lRySrDGFRneSRjhURFBZmPoATwT2o0nWbDXLR7nT5/NSOVoZFZGR45FOGR0YBlYehAPIPer9ea/FH/AF1n/u//ABVed0V1vhH/AJB1z/18n/0BKzfF/wDyNN7/ANdZv/SiasSiiiiiiiu4+GH/ACMkf+//AO05K9rooorB1L/kbNF/7a/+i2reooorB1L/AJGzRf8Atr/6Lat6iiivPviz/wAi7B/19xf+gS147RRRRRXpHwq/1er/AO/B/KWvRq82+M+nf2xoGgaX5vk/bNdt7fzNu7ZvWRc4yM4z0zXCXeo6/wCJ9e8LaprUX2b+xddtNHePcj+dd7t08mVA2/6uP5cFeeDwa9N1i9ttV8W3Wn28PiO/l0uBFubbTb1LSGNpfmVmPmRO77V9WUA9ASa4zw9qup6/b/DOHUdU1Bkvl1JLow3ckLTiIER72jZSSNo5Jyec5yc7XjTWbbwB4n8KTvfamulH7fJdRNeTXBmYRIEU72OfmIwCcAnPHJrF05fHutweP9MudSePxAiWEsEVvdNHHbFgZDFGQcKSgCEg4J6seWrobrxZPqnxL8F2lrBrVhbSxXb3MN3byWySsYchCGwHZCMnGQNwwTmuas9e8R3/AIJTxhCNTXVnujOLifUYYdMCCTyvJMTzDCbRjJXfv53d67ALceK/H3ifSrvUtQtLTSLe3itV0+6e3O6aMu0rFTlnBACg5UD+Ekk1yeteKvEGneKbcafrqarbnw+putStU3wQL9qKSXggVmV3RRggd8nAUFa1vFXiK18Eap4GuP7Y1C50VYL15pPtLTte/ulMZY5w5LMME/KN3G0dOXvta8YW3h/4itrWqTQ6rbf2bIiWlwypaea4JSPB+X5SFODzg5LdTpaNqNze/F7R9Y0yR4PD+uT3nlDzH8y9MMJDSSgknYH4jQ4CheEXJLdh8UdS1PS9P8OzaUZmuX122j8iKfyftIIc+UzdNrEAHPHrXNazq18fg1rniCPXL1tbnlh+1COR4PsEomRWt0jzmLaCVP8AE+dxJBFa0Fxd6f8AEXw3aQx6zpdteRXYng1TUDdC72orKEAllCsp+bJ2cZGTnBwvFHiCSTwdqfi3QX8TNuulktNSlvUS2jCzLHtW3WQZT5SAHiJO7LetdX4xaa4+IHgvS/tl7DZ3n277RHbXUkHmbIlZcmNgeD7+vrXGeJ7/AFHRrX4l21jq2pxx2H9l/ZC99NI8PmEF9rsxYZyc8+1dgVuPCnj3wvpVpqWoXdpq8FxFdLqF09wS0MYdZVLHKOSSGAwpH8IIBrl/FHiCSTwbqni3QX8TNuulktNSlvUS2jCzLHtW3WQZQ7SAHiJO7LetdJ8RrZra68PXNtfanbyX+u2lpciDUZ40aJgwZQiuFXO0cqAe+eTXS3eiaXYxWuqtZ3t7c6LFPJaYnlnn+dTvVdzEuzDgBiewGKoeDNIu0m1LxPqaeRqWveTLLZqCFtY0TbHGdwBLhT8x4GeABjnrK81+KP8ArrP/AHf/AIqvO6K63wj/AMg65/6+T/6AlZvi/wD5Gm9/66zf+lE1YlFFFFFFFdx8MP8AkZI/9/8A9pyV7XRRRWDqX/I2aL/21/8ARbVvUUUVg6l/yNmi/wDbX/0W1b1FFFeffFn/AJF2D/r7i/8AQJa8dooooor0j4Vf6vV/9+D+UtejVR1PRrDWPsf2+3877HdJdwfOy7JUztbgjOMng8e1Gp6NYax9j+32/nfY7pLuD52XZKmdrcEZxk8Hj2qnd+FdJvNSm1Fo7mC7nVEmltL2a2MoXO3f5bqGIBIBOTjjpUGm+CPD2kPpz2Vi8Z015ns91zK4hMoAkwGYjBA6dMkkckmr+oaBpWq6lp2oX9mlxdaczPaO5OI2bGTtzgn5QQSDggEYNSWujWFlq2oapb2+y81Dy/tUm9j5nlrtTgnAwD2A96LrRrC91XT9UuLffeaf5n2WTew8vzF2vwDg5A7g+1UP+EN0D+1v7S+wf6R9q+2bPOk8nz9u3zfK3eXvx/FtznnOeak1jwpo2vXHn6hau03kNbNJDcSQs8LHJjYxspZM/wALZHX1NTwaBpVtq8eqQWaRXcVmLGNoyVVIA24IEB2gA+2e3SqEPgfw3BcWM0elpmwnluLRDI7RwPIQWKITtUZAIAGFPIAPNSX3g3QNT/tb7ZYeZ/a/k/bv30g83yseX0b5cYH3cZ75q3JoGlSX2l3hs0WbSldLLyyUWFXUIwCghcbQBgjjtipNT0aw1j7H9vt/O+x3SXcHzsuyVM7W4IzjJ4PHtVDVPBugazLfSX1h5jX8UcV2EmkjEyxsGQsFYAsCBhuuOM44p9p4V0mz1KHUVjuZ7uBXSGW7vZrkxBsbtnmOwUkAAkYOOOlUZ/h54ZuLGSwezuRYSMXazj1C4S3BLb+IlcIBu5wAADR/wgWkvrs+sS3OrSXUkEdsh/tKZPJiQAbVZGDEMQGO4tluepNc341+GiTaBrs3h7+0JtT1GCCF7aa/aRJikyMHYysTvVVIBLYAyAOa7LR/CmjaDP5+n2rrN5C2yyTXEkzJCpyI0MjNtTP8K4HT0FUZ/h54ZuLGSwezuRYSMXazj1C4S3BLb+IlcIBu5wAADWteaBpuoW+nwXkDzpp88dzbGSZyyyRjCsWzliMn7xOe+avTwrcW8kLlwkilGMblGAIxwykEH3BBFEEK29vHChcpGoRTI7OxAGOWYkk+5JJqSvNfij/rrP8A3f8A4qvO6K63wj/yDrn/AK+T/wCgJWb4v/5Gm9/66zf+lE1YlFFFFFFFdx8MP+Rkj/3/AP2nJXtdFFFYOpf8jZov/bX/ANFtW9RRRWDqX/I2aL/21/8ARbVvUUUV598Wf+Rdg/6+4v8A0CWvHaKKKKK6Twt4pPhuO8VbfzWuGjIJPA2h+3/Av0roP+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXo/4WjL/z5J+X/wBej/haMv8Az5J+X/16P+Foy/8APkn5f/Xo/wCFoy/8+Sfl/wDXrnfE3if/AISIQs0HlPHxx0I59/eudorrfCP/ACDrn/r5P/oCVm+L/wDkab3/AK6zf+lE1YlFFFFFFFdl8O5Zoda8y3tzcTKw2xBgu75JM8ngcZP4V6v/AGnrX/QvP/4Fx/40f2nrX/QvP/4Fx/40f2nrX/QvP/4Fx/40f2nrX/QvP/4Fx/41lX15qLa7pcz6UyXCmQR2/noS/wAhyd3QdT+Vav8Aaetf9C8//gXH/jR/aetf9C8//gXH/jR/aetf9C8//gXH/jR/aetf9C8//gXH/jWVfXmotrulzPpTJcKZBHb+ehL/ACHJ3dB1P5Vq/wBp61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+Ncb8S7i7uPDEbXdl9kYXsYVDKHJGyXnjivKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK63wj/AMg65/6+T/6AlZvi/wD5Gm9/66zf+lE1YlFFFFFFFdx8MP8AkZI/9/8A9pyV7XRRRWDqX/I2aL/21/8ARbVvUUUVg6l/yNmi/wDbX/0W1b1FFFeffFn/AJF2D/r7i/8AQJa8dooooooooooooooooooooooooooooooooooorrfCP/IOuf8Ar5P/AKAlYeuXEl3qhuZtvmzK8j7BhcmaUnAyePxrOoooooooruPhh/yMkf8Av/8AtOSva6KKKwdS/wCRs0X/ALa/+i2reooorB1L/kbNF/7a/wDotq3qKKK8++LP/Iuwf9fcX/oEteO0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV1vhH/AJB1z/18n/0BK57VP+PqP/rkf/RslU6KKKKKKK7j4Yf8jJH/AL//ALTkr2uiiisHUv8AkbNF/wC2v/otq3qKKKwdS/5GzRf+2v8A6Lat6iiivPviz/yLsH/X3F/6BLXjtFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFdb4R/wCQdc/9fJ/9ASsDV0MV8sZYMVjZSwGM4ml5x2qjRRRRRRRXZfDuWaHWvMt7c3EysNsQYLu+STPJ4HGT+Fer/wBp61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+NH9p61/0Lz/+Bcf+NZV9eai2u6XM+lMlwpkEdv56Ev8AIcnd0HU/lWr/AGnrX/QvP/4Fx/40f2nrX/QvP/4Fx/40f2nrX/QvP/4Fx/40f2nrX/QvP/4Fx/41lX15qLa7pcz6UyXCmQR2/noS/wAhyd3QdT+Vav8Aaetf9C8//gXH/jR/aetf9C8//gXH/jR/aetf9C8//gXH/jR/aetf9C8//gXH/jXG/Eu4u7jwxG13ZfZGF7GFQyhyRsl544ryiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiut8I/wDIOuf+vk/+gJWBq7b75WByDGx/8jS1RoooooooruPhh/yMkf8Av/8AtOSva6KKKwdS/wCRs0X/ALa/+i2reooorB1L/kbNF/7a/wDotq3qKKK8++LP/Iuwf9fcX/oEteO0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV1vhH/AJB1z/18n/0BK5u9OWtj62//ALVkqtRRRRRRRXcfDD/kZI/9/wD9pyV7XRRRWDqX/I2aL/21/wDRbVvUUUVg6l/yNmi/9tf/AEW1b1FFFeffFn/kXYP+vuL/ANAlrx2iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiut8I/8g65/6+T/AOgJWR4mt4rPX57WBNkMJkjjXJOFE8oAyeelZNFFFFFFFdx8MP8AkZI/9/8A9pyV7XRRRWDqX/I2aL/21/8ARbVvUUUVg6l/yNmi/wDbX/0W1b1FFFeffFn/AJF2D/r7i/8AQJa8dooooooooooooooooooooooooooooooooooorrfCP/IOuf8Ar5P/AKAlZvi//kab3/rrN/6UTViUUUUUUUV3HwxB/wCEhD4+VGyx7AeXIOfxI/OvZ/Ph/wCesf8A30KPPh/56x/99Cjz4f8AnrH/AN9Cjz4f+esf/fQrE1BlfxTo8ikMiCUswPC/IRyfqR+dbfnw/wDPWP8A76FHnw/89Y/++hR58P8Az1j/AO+hR58P/PWP/voViagyv4p0eRSGRBKWYHhfkI5P1I/Otvz4f+esf/fQo8+H/nrH/wB9Cjz4f+esf/fQo8+H/nrH/wB9CuA+K7q/hyEowYfa4+Qc/wAEteP0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV1vhH/AJB1z/18n/0BKzfF/wDyNN7/ANdZv/SiasSiiiiiiirVnqd/p2/7DfXNr5mN/kSsm7HTODz1P51a/wCEl17/AKDepf8AgW/+NH/CS69/0G9S/wDAt/8AGj/hJde/6Depf+Bb/wCNH/CS69/0G9S/8C3/AMaP+El17/oN6l/4Fv8A40f8JLr3/Qb1L/wLf/Gj/hJde/6Depf+Bb/40f8ACS69/wBBvUv/AALf/Gj/AISXXv8AoN6l/wCBb/40f8JLr3/Qb1L/AMC3/wAaP+El17/oN6l/4Fv/AI0f8JLr3/Qb1L/wLf8Axo/4SXXv+g3qX/gW/wDjR/wkuvf9BvUv/At/8agu9X1O/iEV7qN3cxhtwSadnAPrgnryfzqlRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXW+Ef+Qdc/wDXyf8A0BKzfF//ACNN7/11m/8ASiasSiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiut8I/wDIOuf+vk/+gJWb4v8A+Rpvf+us3/pRNWJRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXW+Ef+Qdc/9fJ/9ASs3xf/AMjTe/8AXWb/ANKJqxKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK63wj/yDrn/AK+T/wCgJWb4v/5Gm9/66zf+lE1YlFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFdb4R/wCQdc/9fJ/9ASs3xf8A8jTe/wDXWb/0omrEooooooooooooooooooooooooooooooooooooooooooooooooooooooooooorrfCP/IOuf+vk/wDoCVm+L/8Akab3/rrN/wClE1YlFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFdL4T8KL4nW8LXptvs5jHEPmbt27/aGMbf1ro/+FVJ/0GpP/AMf/HKP+FVJ/wBBqT/wDH/xyj/hVSf9BqT/AMAx/wDHKP8AhVSf9BqT/wAAx/8AHKP+FVJ/0GpP/AMf/HKP+FVJ/wBBqT/wDH/xyj/hVSf9BqT/AMAx/wDHKP8AhVSf9BqT/wAAx/8AHKP+FVJ/0GpP/AMf/HKP+FVJ/wBBqT/wDH/xyj/hVSf9BqT/AMAx/wDHKP8AhVSf9BqT/wAAx/8AHKP+FVJ/0GpP/AMf/HK5vxV4WTw35AW+e5aXkhoQmB2/iOehrm6K63wj/wAg65/6+T/6AlZvi/8A5Gm9/wCus3/pRNWJRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXpHwq/1er/AO/B/KWvRqKKKoW2t6Te381haanZT3kG7zbeKdWkj2nB3KDkYJwc96sfbrT7B9v+1Q/Y/K877R5g8vy8Z37um3HOemKDfWgtJbs3UItod/mzGQbE2Eh8noNpUg56YOar/wBt6T/av9lf2pZf2j/z6faF837u77mc/d56dOaZqHiLRNIuFg1LWNPspmTesdzcpGxXJGcMQcZB59q0qKKK81+KP+us/wDd/wDiq87orrfCP/IOuf8Ar5P/AKAlZvi//kab3/rrN/6UTViUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV6R8Kv9Xq/+/B/KWvRqKKK820G7+0a/Z2f9oWV19m13UpfsNuuLi1y10PMmO9sod+0DYnMifNxhsa38QTN8Lk06PVtJ1NZNAkiktbOMieyVbR23ynzGyAVWM/KvzOOn3T1d6YimoX6I/wDwi8U8h1CAOAJWQuJ3VMZ8sOPnTI8wq5APInqfbbT+yP7D+1Q/2t/wkXnfYPMHn+X/AGn52/y/vbfL+fOMbfm6c1V8VeItEMnjiP8AtjTxKdEFgsTXKB2nQXJZApOSR5qDgYySOqkD0iCeK5t4ri3lSWGVA8ckbBldSMggjggjvUlFFea/FH/XWf8Au/8AxVed0V1vhH/kHXP/AF8n/wBASs3xf/yNN7/11m/9KJqxKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK9I+FX+r1f/fg/lLXo1FFFFFFFRwwRW6FIYkjUszlUUAFmJZjx3JJJPckmiCCK2t44IIkihiUJHHGoVUUDAAA4AA7VJRRXmvxR/wBdZ/7v/wAVXndFdb4R/wCQdc/9fJ/9ASs3xf8A8jTe/wDXWb/0omrEoooooooooooooooooooooooooooooooooooooooooorpPC3ik+G47xVt/Na4aMgk8DaH7f8AAv0roP8AhaMv/Pkn5f8A16P+Foy/8+Sfl/8AXo/4WjL/AM+Sfl/9ej/haMv/AD5J+X/16P8AhaMv/Pkn5f8A16P+Foy/8+Sfl/8AXo/4WjL/AM+Sfl/9ej/haMv/AD5J+X/16P8AhaMv/Pkn5f8A16P+Foy/8+Sfl/8AXo/4WjL/AM+Sfl/9ej/haMv/AD5J+X/16P8AhaMv/Pkn5f8A1653xN4n/wCEiELNB5Tx8cdCOff3rnaK63wj/wAg65/6+T/6AlU/Flpcy+JLyWK2mljM865jjLcieXPT6isT7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AAo+xXn/AD43f/gO/wDhR9ivP+fG7/8AAd/8KPsV5/z43f8A4Dv/AIUfYrz/AJ8bv/wHf/Cj7Fef8+N3/wCA7/4UfYrz/nxu/wDwHf8Awo+xXn/Pjd/+A7/4UfYrz/nxu/8AwHf/AArq/C1vNb6dN50TxF5yyh1KnG1R0PuDWJ4l/wCRq1j/AK/Zv/QzWXRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRX/2Q==)
Рисунок 10 - Программа до щелчка мыши
После заполнения матрицы нажимаем на кнопку «Магический квадрат», и на экране выводится сообщение, является эта матрица «магическим» квадратом или нет (рисунок 11).
![](data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/wAALCAEPAeoBAREA/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/9oACAEBAAA/AOmt/wDRcuY5ri7kA8+eOBnZ2752g4HoOgAwOlWBfMTho7iP3lhdB/48BTvtThVLLIgYZXepXIzjIz244Pej7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oj7Yf7x/Oq39pTMWMax7ASAXkIJwcHgKe9H9o3PpB/3+b/AOIpkt0LpRBeW8MsMhxjdvGcE8ggeh5qg+nazvb7PrO2DP7tXgVmC9gSeScd6qX8y3l1JZFbh8zFViikZd7ZIHAIyeeM+tReIHubfU4rSG/WOzsoPsBX5izMcM7jklSM4B56dDUFtrv9o3VxqkoUSz7YiqJgKIspjknHIJ2g7QScZ5Zuzt9Ojk8S6dZOMW09rHNI27GGwNy/XLJ/38FY2hRXut2aNEh+07TvjEMuNwXJG/aVXuAGYE1FcXMdrpFhqEt1Ht1AObaJEd3cIwVjwpUAbgckjg1Z1C3udNbU/O2mPTXijnlUHbvk2bVUkcn94v0qW4srm3n1OAyRPJp01vBKqbvmecqIwuRz99c5x1qK6hmt9vlyRXObtrJvIJO24HWM5A+b6ZHB54p1vB9r1qPSIL+ze9aWSF4wzfu3jXcwPy84xjIyM8UlnDLe6lpunxTRC61C1F3GjBhsiIJUuduASFOB145Ap+kxTX9xpA8tduqpLJarMWTeiKCWyASB8wxx+GKzZb+dbSxvprVLW2v42e0jEjSO6LtzIzFV4PmLgbR079av3kMthYyXtzNEkEdpBdswDMcTMVjQALksSpGBwO5pb23lsdO+2yXEBUQW87xqW3KkxKxk5AByysMAnpTNQin06yivJcmCWUwqxikjJfbuwBIqkggEgjIODzxUrWrZiEV7by+ZqZ0r5VkG24AJI+ZBkDaeRkemajuY3t9rC4imjN49i0kYfCTIcMpBUE9D0Bzg4qWSymhu7G3nmSE3/FsZYZkLtvVNuwpvU5YcsoGDnOKzLvUYbW/uLNZ1nkt3aKVo43Cq6sVZQXVdxBU8jI96i/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoaP7WX0NH9rL6Gj+1l9DR/ay+ho/tZfQ0f2svoadaa9BYXVrNLbC5RSzNE4G1gXbiuwls9J02w/4SZormbTWRZILNoiG3seA5PAQccng5HXjdxbaxHcF5li8v9+G2KMKMq/A56V09q3mWkL8/NGp/SuNfUU03xRcXMiLILeZnWMgnc2eO4+uc9u9YN5fXN1qlxJATBbSP5pExEhLMSW28jb+ORz065WCRYIViU5CjknGWPcnHcnk+5ro5fG1xJezSpYxRwyalbXYTztzLHCsQMYbaPvtBGTxgY70mneM3sbnT7ltLikawubmW3jF0VVFmJyDhPmYA4DYGATwe2RNqzz6RoWnfZ0jTSoJovMEpYyGR1bptGAAnXPOe1aeq+NNS1i11qG7VXXUZ7dokEu1LWOKTeABj5mYAAk4/IAUi+MdRSwuoX2XFxPPaSrO4RDH5EgcZ2pukJ2qPmbjHXtTNR8VXN9qtrepHPG8F0bsGbUZp08ztsiOERRluOTg4zU1l4uj0/xGmr2+jxh/OnuJg14x815A2QvyYRdzE/xHtUUHi+8g1Ox1cWsT6pbWH2eS4eYsLiQRsiyMNuc/MSTuOcAACnxeNNSgl0a4KrcXmlwXii4nlz50k5BBKgfKq4HAPTgYqlqGv3ep2mkQXTNLJYR3Ae6eTLTNLIrfdAAULtwACeMDjFXtS8YzalpbabNYI9qlpawwKbnlJoSx80ZQhd24AgAkhfvDtJfeN7m5srO0isY1FsLMLJPceaim3YtuSLYArMTgncflAHamt4ps7gSJd6WRbjUJtXcrdszzTeS4Ef8Aq+FZiqj+6vc9as6P4jsHNnZz2klqItZi1JJ5L4S75XlVH3YhUBQkkj5yOVqKXxkbXXc6VDAbG11m7vvMafzvtUjs6bgQoCptZsY3dQc1Si8SLFJ4fWLThHDo0srpuuzI8oeRJDuOwfMShyffpWdNqD3N5d3TosbXNzNcGNX3BN8jPjOBnG7GcCmfavej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V70favej7V711nhmxguUsr6S1S9WFm8yBjwTvYgH8wfQ10sVxrA1mbULjNwlwvlz2zr+6ePn5MdgMnH1Oc5OeO8Q2MWmQ71QQedcBkhyTtXD+vJAyBmus09f8AiW2v/XFP5CvM9YLXOs3sqkIDO4wRnoSP6VS8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8mT/nov8A3z/9ejyZP+ei/wDfP/16PJk/56L/AN8//Xo8l/8Anov/AHz/APXo8l/+ei/98/8A16PJf/nov/fP/wBevUtMvvM0qzfy8boEON3T5R7V5ze/8hK8/wCvmX/0M1DRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXoGj/8gSw/69o//QRXC3v/ACErz/r5l/8AQzUNFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFegaP/AMgSw/69o/8A0EVwt7/yErz/AK+Zf/QzUNFFFFFFFFFRtcRK8iM4UxoJHzwFU55z/wABP5UsUqTwpNGd0cihlOMZB5FPooooooooooooooooooooooooooooooooooooooooooooooor0DR/+QJYf9e0f/oIrhb3/kJXn/XzL/6GahooooooooorMmt5Z9XkjKEWzwR+Y/ZtrOdn45568cdwarwJLHbWiTLdrttIhEsIYESYO7OOP7v3+OvvSv8AbfNl/wCPjydzbMZ3bPMXzN3vjOzbztz3qrczykT28Rvtgid4Aqy7wSFCZP3vvCXhvT0xVwveTmSe3lJtnuYWQeW25kIjyQc8L1yMetVw18ZZdv2gGSMs8QSQAPuXCB2JHILDcuAOvYYsol3HpmqIVlWUbvJAleQ/6tcbWPJ5z+OafN/aEc0LDfKIpGAVcL5w8tiCx7c4XsMjPcAUo4biTzF827ZFeHaQJovvPh/vMSflA74HbHNTjcL+eOJrppo7iNUy0jII9qbsk/LnBbrzz64qEPqIgsZJEuFVYU3qAzOSHi3FsdyN3HXGfUgPM8txabAbhQtxLvfy5Sy/NlF2qQ2CrA56DAHpWtZNK9hbtPnzmiUyZGDuwM8duanoooooooooooooooooooooooooooooooooooor0DR/+QJYf9e0f/oIrhb3/kJXn/XzL/6GahoooooooooooooooooopAiqWKqAWOWIHU4xz+AH5UtFFFFFFFFFa2g+Fta8S291c6d/ZyQ29x9nP2m4kRmYIjkgLEwxiQd/WtX/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWnin/AJ6aJ/4Fz/8Axij/AIVp4p/56aJ/4Fz/APxij/hWfin/AJ6aJ/4Fz/8AxiuSKzQ3t5aXAi821m8pmhcsjfKrZBKqf4u4p1FegaP/AMgSw/69o/8A0EVwt7/yErz/AK+Zf/QzUNFFFFFFFdJong+816086zLOQMuoVflyWA5Zhn7prU/4VhrX/PN//If/AMco/wCFYa1/zzf/AMh//HKP+FYa1/zzf/yH/wDHKP8AhWGtf883/wDIf/xyoU+Heoy3U1tC7SSwBTKAqDbuzgcuM9D0qb/hWGtf883/APIf/wAco/4VhrX/ADzf/wAh/wDxyj/hWGtf883/APIf/wAco/4VhrX/ADzf/wAh/wDxyoU+Heoy3U1tC7SSwBTKAqDbuzgcuM9D0qb/AIVhrX/PN/8AyH/8co/4VhrX/PN//If/AMco/wCFYa1/zzf/AMh//HKP+FYa1/zzf/yH/wDHK5/xH4fl8OXlvazS+ZJLAJmG3Gw7mXb1Ofu9feseiiiiiu88BpFL4N1aG4CNDLrkcUiSEBXVktFKnLqCCDjGTnONr52N6I+iaTLv8zS7J9+7fut0O7dv3Z45z5sufXzH/vHNB18NS6++hyWdk+pSWrXbwtaA7omZ0Zi23By0soIzk+Y/HzHI6+GpdffQ5LOyfUntWu3ha0B3RMzozFtuDlpZQRnJ8x+PmOb76JpMu/zNLsn37t+63Q7t2/dnjnPmy59fMf8AvHI+iaTLv8zS7J9+7fut0O7dv3Z45z5sufXzH/vHI+iaTLv8zS7J9+7fut0O7dv3Z45z5sufXzH/ALxyPomky7/M0uyffu37rdDu3b92eOc+bLn18x/7xyPomky7/M0uyffu37rdDu3b92eOc+bLn18x/wC8cj6JpMu/zNLsn37t+63Q7t2/dnjnPmy59fMf+8cj6JpMu/zNLsn37t+63Q7t2/dnjnPmy59fMf8AvHI+iaTLv8zS7J9+7fut0O7dv3Z45z5sufXzH/vHI+iaTLv8zS7J9+7fut0O7dv3Z45z5sufXzH/ALxyPomky7/M0uyffu37rdDu3b92eOc+bLn18x/7xzXhsvD2pfafItdMutkrw3GyON9snz70fHRv30mQef3jZ+8c2H0TSZd/maXZPv3b91uh3bt+7PHOfNlz6+Y/945H0TSZd/maXZPv3b91uh3bt+7PHOfNlz6+Y/8AeOR9E0mXf5ml2T792/dbod27fuzxznzZc+vmP/eOR9E0mXf5ml2T792/dbod27fuzxznzZc+vmP/AHjkfRNJl3+Zpdk+/dv3W6Hdu37s8c582XPr5j/3jkfRNJl3+Zpdk+/dv3W6Hdu37s8c582XPr5j/wB45H0TSZd/maXZPv3b91uh3bt+7PHOfNlz6+Y/945H0TSZd/maXZPv3b91uh3bt+7PHOfNlz6+Y/8AeOR9E0mXf5ml2T792/dbod27fuzxznzZc+vmP/eOcXXNQ8IaNcPb6pa2pmeCS5ljjsGnYQ5cPI4RGKoTNLlmwDvf1atZNL0S+txcR2Gn3ENwpcSLCjrKrhyTnGCGE0nPfzG/vHNfVNO0+2iiuY7S1hmF5AwlVFRtzTc/NuQ5Jlk7nPmMNr7ijeHX3/Ix61/19D/0VHTKK9A0f/kCWH/XtH/6CK4W9/5CV5/18y/+hmoaKKKKKKK9Y+G99b6Z4b1K/vJPLtbW3E0z7SdqK0pY4HJwAelPX42eGh5dzcWGuW2kSyvFFq81g32SQru+6wJY52HA259QMHHpFFFczb31vpmq+Jr+8k8u1tYo5pn2k7UVXLHA5OAD0rnV+NnhoeXc3FhrltpEsrxRavNYN9kkK7vusCWOdhwNufUDBx6RRRWDpH/Iy65/2x/9nrN8b/Erw/4C+zR6q8811cfMlraqryBOfnILABcjHJ5OcZwcdhRRXivxV/5Ge2/69P8A2rJXDUUUUUV6B8PH8vwrqTeZszr0S537eq2gxnenXOMZOc42vnY3p1eM/EH7fa/FyDXNN+afRNCXUGh+UedEs7JKm5uF/du5zgnjgZxR8Pvt938XJ9c1L5Z9b0JtQSH5T5MTTqkSbl4b92iHOAeeRnNHijxDJJ4O1PxboL+J23XSyWmpS3qJaxqsyx7Vt1kGUO0gB4iTuy3rXSaZbNrnxM8Z2l9fambay+w/ZoYNRngSPfCS2BG6jkgH/wDXWFc+JNW0/wAeeKPC2jXs8uq3X2G30iO7leWO3UQbppSXJxhfmP3izY4bmjwle+IZfCngbxHJdanf2dvLeR6pHFJJNNKsjskbsnJkVCBnqQOQDg4gv/HOrWv/AAsrVrF72H7H9gSyg1CJ18jf+7Z1if7u774yBn5Sw7V0GlNq2keM9Es4k1eGwvYJYruPXNThnklaNNyywqJmbfkkOFG3BHyjGRV8NS3eueCbXxpfeKJ9L1Ca6ed5Z5z9hjQSGIQmAsqbCoAzkPuOd2aydG1vVtR8U6lomp6pe2WiS+IruNL5bh980iMnl2SSA5gUjLcEFuVXBzm3f+KtYt/iJ4s8OaTdu+sXzWUWkxTsWhth5BaaXBO1QF+bABJbHytzXPWXjKbTPDXgDUtc1bU3s54tVF8UuZDJcY3LGCQwJYEgKSRtODkYzXUfCKHWNO1nxNo2rFIjZJZmOygcmG1EiO+xBkjOCNxySzAksxO4x+OvEevaN8Rni0yedbQ6Ej3D/NLHYobna915I/1jIvYduTwCKn8Rl7LXPAWmafe61qen3MV4ZBa6owmvQIlZXMvmIG5O77wGMgcYFLpfiT+wm8dSane6nZ6fp32Yw2lxL9qu7VpIgMh2MinexXaC7AEHcFBOUtri/wBH+IHhHToo/EFrBeRXcd1/a2oLc/atkQZWAEsiqwYZJAT72BxkVf022bXPiZ4ytL6+1M21l9i+zQwajPAke+ElsCN1HJAP/wCuuQ8PXmp67Y/DO0u9c1dUv31Jrt4b6RJJxExZVdwckfLjrkAnBHWuotvE3/CNT+ObDUtRvW0vRPIktrhj591H9oQnYGfO/DkBd+cZ+YkDivbXF/o/xA8I6dFH4gtYLyK7juv7W1Bbn7VsiDKwAlkVWDDJICfewOMirH9lJ/wtz+w/7R1r+zf7C+1+T/bF1/rfP2bt3mZ+7xjOPauh1yI+Hnu9U0HRnu9c1qeC2d/3jRKwBVJZsZ2RoM5Kjngd8i94T8OxeE/C9jokM73C2qnMrgAuzMWY4HQZY4HOBjk9at6u/l2UbeZszdW6537esyDGd6dc4xk5zja+djeB33/Ix61/19D/ANFR0yivQNH/AOQJYf8AXtH/AOgiuFvf+Qlef9fMv/oZqGiiiiiiivUPAmiad4j8KahpOrW/2ixnSLzIt7Ju2yyMOVII5APBqLx14lTWdO1L4feDfD39s3ixLazmOJRZ2Aw2FLEhVkXZ8o4AYDncpWvSNC0z+xPD2maT53nfYbSK283bt37EC7sZOM4zjJrQorzHx3o15r/hnxvp1gnmXTRW8qRgEl/LcyFVABJYhCAO5IrnvFHxV8Nal8NrzQbbRpxq8to9q+iG1YfYCituYnbtCxbNwxyNq5CYJX0/wJ/yTzwz/wBgq1/9FLXQUVyMus2fh658U6vfvttbSKOV8EAtgPhVyQCxOABnkkCvKvEmk32o/CnxR4917f8A2nrCQCyhNxvW1sGuIXjjAAAyeCT9DwxfP0HRRXivxV/5Ge2/69P/AGrJXDUUUUUV6B8PH8vwrqTeZszr0S537eq2gxnenXOMZOc42vnY3p1UP7G0/wDt7+3PI/4mX2X7J529v9Vu37ducfe5zjPvR/Y2n/29/bnkf8TL7L9k87e3+q3b9u3OPvc5xn3rGn+Hnhm4sZLB7O6FhIxdrOPULhLcEtv4iWQIBu5wAADWtp2gabpV9eXtpC63V4kSXEskzyNIIl2pksTyB36nqcmi20DSrTXb3W4LNF1O9VUnuCSWZVAAAycKMAZAxnAznAp+jaNp/h/SodL0uD7PZwbvLj3s23cxY8sSepPemJoGlR32qXgs0abVVRL7zCXWZUUooKklcbSRgDnvmq+j+FNF0G4+0afaus3kLbLJNcSTMkKnIjQyMxVM/wAK4HA9BTP+EN0D+1v7S+wfv/tX2zZ50nk/aNu3zfK3eXvx/FtznnOeaf8A8InoR03VNObT0e01Sd7m8idmYSSvjc3JypyARtxggEYNSaf4a0jTNVudVtbTGoXMUcM1zJI8kjoihVG5iT0Vc/3iATkjNVLbwP4btE0hItLTZo7yPYK8juIWc7mPzE5OeQTnBAIxitK10awstW1DVLeDZeah5f2qTex8zy12pwTgYB7Ae9H9jWH9vf255H/Ey+y/ZPO3t/qt2/btzj73OcZ96yj4C8Of6L5dlNB9klmltvs97PD5DS48wR7HGxTj7owBk4Ayczr4N0AWGo2Ulh58WpY+2NczSTSTbQAuZHYv8uBt5+U8jBqMeCdEGpWeouuoS3dkxe3lm1S5kMZPXG6QjBAwR0I4ORVTSfh5o2kWjwxXetSSSytNPO2rXEbzSMcl3EbqpboM4ycDOa5u7+F1vb+IPC9tZRXs+g2d1e3MwkvSpsy6IY1jIKuFEiZGCTnJJ5rtk8J6EmhXWinT0ewu2eS5SV2dpnY5Ls7Esz5wdxORgYIwKgHgnRBqVnqLrqEt3ZMXt5ZtUuZDGT1xukIwQMEdCODkVpf2Np/9vf255H/Ey+y/ZPO3t/qt2/btzj73OcZ96sXVpFd+T5rTL5Mqyr5U7x5YdA20jcvqpyD3FT1Q1eTy7KNvM2Zurdc79vWZBjO9OucYyc5xtfOxvA77/kY9a/6+h/6KjplFegaP/wAgSw/69o//AEEVwt7/AMhK8/6+Zf8A0M1DRRRRRRRXoGgLrsnw412Lw1F5mry28cVuBIIyN0kisysWXayqWYHPUDr0qfwjL418H+GrTR7D4WxgRIDNKuuQKZ5cDdI3BOSR0ycDAHAFeqWE1xcadbTXlr9kupIlea38wSeU5ALJuHDYORkdcVYorkZbfUbu58UwaRe/YtSaKP7NOVUhJAHK7gysNpPB4JwTjnBrB1UfEjxXpdx4bn0TTdEjnTyLzV/tguEliPyyeTCBuUsCSN5GBkEhsEeiWFlb6Zp1tYWcfl2trEsMKbidqKAFGTycADrViiuRk0TTvEd94j0nVrf7RYz/AGfzIt7Ju2szDlSCOQDwa47xt8EvDv8AwiF9/wAIp4e/4nf7v7N/psn/AD0Xd/rJNv3N3X+der2Flb6Zp1tYWcfl2trEsMKbidqKAFGTycADrViivFfir/yM9t/16f8AtWSuGoooooq/pXiXVtEsL/Treysbmzu52lcTufmDRRxsrKUYEYT9TVl/GWpy7/M0DRH37t+7ad27fuz+55z5sufXzH/vHI/jLU5d/maBoj792/dtO7dv3Z/c8582XPr5j/3jkfxlqcu/zNA0R9+7fu2ndu37s/uec+bLn18x/wC8cj+MtTl3+ZoGiPv3b9207t2/dn9zznzZc+vmP/eOR/GWpy7/ADNA0R9+7fu2ndu37s/uec+bLn18x/7xyP4y1OXf5mgaI+/dv3bTu3b92f3POfNlz6+Y/wDeOR/GWpy7/M0DRH37t+7ad27fuz+55z5sufXzH/vHI/jLU5d/maBoj792/dtO7dv3Z/c8582XPr5j/wB45H8ZanLv8zQNEffu37tp3bt+7P7nnPmy59fMf+8cj+MtTl3+ZoGiPv3b9207t2/dn9zznzZc+vmP/eOR/GWpy7/M0DRH37t+7ad27fuz+55z5sufXzH/ALxyP4y1OXf5mgaI+/dv3bTu3b92f3POfNlz6+Y/945H8ZanLv8AM0DRH37t+7ad27fuz+55z5sufXzH/vHI/jLU5d/maBoj792/dtO7dv3Z/c8582XPr5j/AN45H8ZanLv8zQNEffu37tp3bt+7P7nnPmy59fMf+8cj+MtTl3+ZoGiPv3b9207t2/dn9zznzZc+vmP/AHjkfxlqcu/zNA0R9+7fu2ndu37s/uec+bLn18x/7xyP4y1OXf5mgaI+/dv3bTu3b92f3POfNlz6+Y/945H8ZanLv8zQNEffu37tp3bt+7P7nnPmy59fMf8AvHI/jLU5d/maBoj792/dtO7dv3Z/c8582XPr5j/3jkfxlqcu/wAzQNEffu37tp3bt+7P7nnPmy59fMf+8cj+MtTl3+ZoGiPv3b9207t2/dn9zznzZc+vmP8A3jkfxlqcu/zNA0R9+7fu2ndu37s/uec+bLn18x/7xyP4y1OXf5mgaI+/dv3bTu3b92f3POfNlz6+Y/8AeOR/GWpy7/M0DRH37t+7ad27fuz+55z5sufXzH/vHMieONYjuBPHoujpMGLiRWAYMS5Jz5Wc5lk5/wCmjf3jnA3z3F7e3lxHHG9zMJNkblwvyKvUgf3fSn0V6Bo//IEsP+vaP/0EVwt7/wAhK8/6+Zf/AEM1DRRRRRRRXqnw4ury20uT7Hp7XhZV34lVNnzyY+91zz+Vdr/aetf9C8//AIFx/wCNH9p61/0Lz/8AgXH/AI0f2nrX/QvP/wCBcf8AjR/aetf9C8//AIFx/wCNZVheajFruqPDpTTyyCIyxidF8rhsDJ69T09K1f7T1r/oXn/8C4/8aP7T1r/oXn/8C4/8aP7T1r/oXn/8C4/8aP7T1r/oXn/8C4/8ayrC81GLXdUeHSmnlkERljE6L5XDYGT16np6Vq/2nrX/AELz/wDgXH/jR/aetf8AQvP/AOBcf+NH9p61/wBC8/8A4Fx/40f2nrX/AELz/wDgXH/jXlfxNeWTxBZvNF5UjWQLR7t20+bJxnvXFUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV6Bo/wDyBLD/AK9o/wD0EVwt7/yErz/r5l/9DNQ0UUUUUUV6h4E1X+xPCmoah9gvr/yUi/0awh82Z8yyL8q5GcZyfYGrd98YrPTLOS8v/BvjG0tY8b5p9MEaLkgDLF8DJIH416BYXX27Tra8+zz2/nxLL5NwmySPcAdrr2YZwR2NWKKwdI/5GXXP+2P/ALPXK2Pxis9Ts47yw8G+Mbu1kzsmg0wSI2CQcMHwcEEfhXoFhdfbtOtrz7PPb+fEsvk3CbJI9wB2uvZhnBHY1Yormbe+t9M1XxNf3knl2trFHNM+0naiq5Y4HJwAelc6vxs8NDy7m4sNcttIlleKLV5rBvskhXd91gSxzsOBtz6gYOPSKKK8V+Kv/Iz23/Xp/wC1ZK4aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiivQNH/AOQJYf8AXtH/AOgiuFvf+Qlef9fMv/oZqGiiiiiiivYPhR/yDLn/AHE/9Dlql4oj/wCE7+KOm+FPL8zRtB26lqu5MpJMR+5hO5CDwckZwyu46pXqFFFee+KLbV77SPGtloVrHdahdW8VukLsFBV9yOckgAhCxGT1A69KxX1H4lfDrwraS3uleH9X0fSrdIJYtPknW4ESJtEhZhjAwCxCnjJwBkj1SwvrfU9Otr+zk8y1uolmhfaRuRgCpweRkEdasUVyMmiad4jvvEelatb/AGixn+z+ZFvZN21mYcqQRyAeDXHfFnVNZstDl8Pr4dg07wnJLb2kutAJcJBAduStsoym08A/7I24YqR6npMNjb6NYwaWYzp8dvGlqY5N6mIKAmGydw245yc1corxX4q/8jPbf9en/tWSuGooooooooooooooooooooooooooooooooooor0DR/8AkCWH/XtH/wCgiuFvf+Qlef8AXzL/AOhmoaKKKKKKK9g+FH/IMuf9xP8A0OWr/gTw9faTqni3U9VgdbzU9YleKV5/MMlov+o6MQoAZwBwQMA8AV2lFFcbd2ur3k3iiDQdQTT9UZIDbXMkQkVWBY4IIIwQCucHGc4OMVzviCT4oeJdGn8Np4a03TDdI1vdau2oLJA8e0hykeC6h+gyGIDc4PzD0jSdNh0bRrHS7dpGgsreO3jaQgsVRQoJwAM4HoKuUVwPiDw5/wAJbY+MNDEnlyXUUPlOWwBIpZ03HB+Xcq5wM4zjmsHUx8Wde8NSeFZ9E022nnR7a711rxDFNFhgSsQBZS4wM7eNx+VMjb6hpOmw6No1jpdu0jQWVvHbxtIQWKooUE4AGcD0FXKK8V+Kv/Iz23/Xp/7VkrhqKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK9A0f/AJAlh/17R/8AoIrhb3/kJXn/AF8y/wDoZqGiiiiiiivVPhxdXltpcn2PT2vCyrvxKqbPnkx97rnn8q7X+09a/wChef8A8C4/8aP7T1r/AKF5/wDwLj/xo/tPWv8AoXn/APAuP/Gj+09a/wChef8A8C4/8ayrC81GLXdUeHSmnlkERljE6L5XDYGT16np6Vq/2nrX/QvP/wCBcf8AjR/aetf9C8//AIFx/wCNH9p61/0Lz/8AgXH/AI0f2nrX/QvP/wCBcf8AjWVYXmoxa7qjw6U08sgiMsYnRfK4bAyevU9PStX+09a/6F5//AuP/Gj+09a/6F5//AuP/Gj+09a/6F5//AuP/Gj+09a/6F5//AuP/GvK/ia8sniCzeaLypGsgWj3btp82TjPeuKooooooooooooooooooooooooooooooooooor0DR/+QJYf9e0f/oIrhb3/AJCV5/18y/8AoZqGiiiiiiivXPhhPDa6He3FxLHDBFErySSMFVFDSkkk8AAd6n/4XB4e/wCPr7Drn9if9Bv+zZPsfp97733/AJPu/e9ua9AoorndPnhtdd8Q3FxLHDBEkTySSMFVFAckkngADvUOk/EDw/r3i248O6TdfbbiC0+1SXMBV4MblG0OD8zfOp4BHbOQRXUUUVg6R/yMuuf9sf8A2esWw+K3h7UNRtoYodVSxvJVt7LVJbCRbS6mYhRGj4zuzuHIA+RueOe4oorxX4q/8jPbf9en/tWSuGooooooooooooooooooooooooooooooooooor0DR/8AkCWH/XtH/wCgiuFvf+Qlef8AXzL/AOhmoaKKKKKKK6TUJ5rb4I+JnglkicxWyFkYqSrXJVhx2KkgjuCRXR6l4m8d6V4VXWbnwRow8MC3CzaGrubqC32Ffn+XYEHBKhCVU4IGGI9Q0maxudGsZ9LCDT5LeN7URx7FERUFMLgbRtxxgYq5RXO6fBDda74ht7iKOaCVIkkjkUMrqQ4IIPBBHauV03SdN0f4+tb6Xp9pYwN4X3tHawrEpb7UBkhQBnAHPsK9MooridUfS0t/GQ1u8+x6ZJaLFczg4KI6up28HLc4AwckgYPSvKrvxD4jvvg/oWl6/wCGZLDwvK9nbXesxy7mFqki4cQ4LISEX5yCp7D51r6HgnhureK4t5Y5oJUDxyRsGV1IyCCOCCO9SUV4r8Vf+Rntv+vT/wBqyVw1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFegaP/AMgSw/69o/8A0EVwt7/yErz/AK+Zf/QzUNFFFFFFFegaB4c/4S34ca7oYk8uS6t4/KctgCRZJHTccH5dyrnAzjOOan1MfFnXvDUnhWfRNNtp50e2u9da8QxTRYYErEAWUuMDO3jcflTI2+oaTpsOjaNY6XbtI0Flbx28bSEFiqKFBOABnA9BVyisHSP+Rl1z/tj/AOz1m/2JqP8AwuT+3/s//Es/4R/7F5+9f9d9o37dud33ec4x712FFFcD4g8Of8JbY+MNDEnlyXUUPlOWwBIpZ03HB+Xcq5wM4zjmsHUx8Wde8NSeFZ9E022nnR7a711rxDFNFhgSsQBZS4wM7eNx+VMjb6hpOmw6No1jpdu0jQWVvHbxtIQWKooUE4AGcD0FXKK8V+Kv/Iz23/Xp/wC1ZK4aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiivQNH/AOQJYf8AXtH/AOgiuFvf+Qlef9fMv/oZqGiiiiiiivYPhWRHpM7uQqsqBWbgEh5M/wAx+dd/58P/AD1j/wC+hR58P/PWP/voUefD/wA9Y/8AvoUefD/z1j/76FYmlMqeIdakYhUcxBWJ4OA2cH8R+dbfnw/89Y/++hR58P8Az1j/AO+hR58P/PWP/voUefD/AM9Y/wDvoViaUyp4h1qRiFRzEFYng4DZwfxH51t+fD/z1j/76FHnw/8APWP/AL6FHnw/89Y/++hR58P/AD1j/wC+hXjPxUIPia2IOQbQYI/66yVw1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFegaP/wAgSw/69o//AEEVwt7/AMhK8/6+Zf8A0M1DRRRRRRRV+21zV7OBYLXVL6CFM7Y4rh1UZOTgA461L/wkuvf9BvUv/AuT/Gj/AISXXv8AoN6l/wCBcn+NH/CS69/0G9S/8C5P8aP+El17/oN6l/4Fyf40f8JLr3/Qb1L/AMC5P8aP+El17/oN6l/4Fyf40f8ACS69/wBBvUv/AALk/wAaP+El17/oN6l/4Fyf40f8JLr3/Qb1L/wLk/xo/wCEl17/AKDepf8AgXJ/jR/wkuvf9BvUv/AuT/Gj/hJde/6Depf+Bcn+NH/CS69/0G9S/wDAuT/Gj/hJde/6Depf+Bcn+NU7u+u9QlEt7dT3MgXaHmkLkD0ye3J/Oq9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFegaP8A8gSw/wCvaP8A9BFcLe/8hK8/6+Zf/QzUNFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFegaP/wAgSw/69o//AEEVwt7/AMhK8/6+Zf8A0M1DRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXoGj/APIEsP8Ar2j/APQRXC3v/ISvP+vmX/0M1DRWp4Z/5GvR/wDr+h/9DFekf8Iraf8ACwP7f3f8Snz9+7B/4+/N8rZ13f6z5s429unNcTd2Md/431uOS11C6VLm4cQ2Me52O8gZPO1ckZbB+nNGtaFaaPa6Rfz2moRR3qzebZTSBZYyjYB3lOhypwU/nw3xHpmkaTb2AtYb0zXtjFdq8tyhWPeTlSojBbgdcjr0rXvfCeiHxXL4YsH1Bb7ysxXE8iNH5mzzNpUKDtK/xA5B7EVn2nhGO/07QJobhoWvluZLuaXmKCOJsbuBwMepxkjkVY1nwlYad/wk/kzXLf2V9l8jeynd5uN27jnrxjH41l3Gh28eieHbyNrlptTeZJURQ5GyQKNi8EnB6E8n0q/feF7ddB1XUY7DVtP+xPF5Yv8AH+kI7FemxdpHyngt1x71keHNHj1rVDbyyskccTzukQzLMFGSkQ7uew+p5xitez0DSNT0rT76BL63+0axHp8iSXCSfIy5LAhFweferF34StIjrSNZapYR2EUskN7dSAxTlGAVQPLXl88YY/jWVaaXpieDzrd7HdzSfb/sgjhnWMAeXvzyjc9a0r7wlYWWva7D51zLZ6VAkvkIym4m3KpyDjAVScs2DgY4OaZH4TtNVXw5/Zrz2zas1x5guZBKIxEeo2quTgE49cDjrUWpeF400O91O2stUsFspVDR6kuDNG52qyEKMMD1XkYI59W/2doP/CKf259k1L/j++yeT9tT+5v3bvK/DGPxqvDpOmWOh6fqer/a5V1CVxFHaOqGONDtdmLKctkjCjAwOTT4tD02LTdS1R7uXUbS2nWCJbP90x3ciSTepKLjK9DluM4GTX8TaTaaVLppsvP8u8sIrsrM4cqXzxkKMgYHaum8N6VFrXw0u7AnF3JqLtZjn5plhDbeoAyquMngZz1xR4k0qLRfhpaWAObuPUUa8HPyzNCW29SDhWQZHBxnrmqGh+ErfV5bK2bTtbi+0wF31CRAkCPtZlwu07l+6M7xnPaqE2maRYeGdH1K6hvbibUPP3LFcpGqeW+0YzGx5B9atQ+ErfUbPQ7i0mlt0v8A7VJcyXDB0toonxuJAHbucAkjpmpdW8JWFlceJre2muZJtLS3kt4yylnRgDIzADJCg9RjHeorbwZ9tg8MpHJLBdat57SmYfKiIchlGAeU55PORyBTNS8Lxpod7qdtZapYLZSqGj1JcGaNztVkIUYYHqvIwRz6t1HQ9F0m/l0a+u7mLUIoAz3nDW4lIDBdgUvtwQN2c5524q1feErDS9KsdZu5rn+z5rGJ9iMvmTXLqx2KcYRQACSwPHAyele08Ix3+naBNDcNC18tzJdzS8xQRxNjdwOBj1OMkcitf/hXtrc6p4ksLKe5M2nRwtaB2U+YzoWKtwByRgHjGcnNY1t4TVvAF74kuJJVkV1W2jUjay7wjM3U9SQBx93POaq+FNAXxFd39r+8M0VjJNAsbBd0gKhQSeMEn2+tX7Dw1pVz4wsvDzXFzJIvmJezxkKvmKrHbGCucKVwSevOAKivPDtvH4evtQksdS0qa2eJYo75wwuN5IKr+7Q5AGeM8A8d6taH4St9XksrZtO1uL7TAXfUJECQI+1mXC7TuX7ozvGc9qy9E0qwutB1rU75bl/sHkbI4JVj3b2KnJKt047Vs6d4U0jU5/DTRm9hh1X7V5qNMjsnlA42tsA5I5yKyJtJ0y+0PUNT0j7XEunyoJY7t1cyRudqMpVRhsg5U5HPBrS0Pwlb6vJZWzadrcX2mAu+oSIEgR9rMuF2ncv3RneM57VQ8OaZpGrQX63UN6JrKxlu2eK5RVk2EYUKYyV4PXJ6dKi07SrC+g1XVXW5i03T0QmBZVaZ3c7VG/aFA3ZJO3gcYPWtTTvCVhqWraCyTXKabqyTEIzL50TxKdw3Y2kbgMHA4PQVLoXw+e+8Wajpd/LKlrYf6yWLaGfd/q8cnGR83fGMHBNcPRRRRRRRRRRRXoGj/wDIEsP+vaP/ANBFcLe/8hK8/wCvmX/0M1DRVrTLz+ztVs77y/M+zTpNszjdtYHGe3StT/hKrv8AtX7Rt/0P+1P7T+yZH+s3Zxvxnpx6d8U9PE0bSa8lzZM9rrEolkSObY8ZEhdcMVII5IPy8+1Ratrdpf6HpumW1jPAtg0nlySXIkLBzuYEBF5zjB/nVfW9Z/tj+zv3Hk/Y7GO0+/u37M/N0GM56frXY+MNdttG8dX11Z6ey6tHEsaXTT5RWaMfP5e37wU7Rzt74Nc3N4tuX8G23huKFY4I2YzS53GUby4AGPlAJ984HTkG7eeM4NQuNdN1pknk6t9n3JFdBWj8ocYYoQckelWrbxZpthpWh3FlBIt5pN1KqWs0u/zIZVJdi4RQDk4Hp1INZEOu6ZaaHqmmW2mXYXUFj3SSXqsUKEspAEQ4yeR39qzdG1CLStSjvpLX7TJB88CGQqqyjlWbAywB5wCM+vrtJ43vZLS1jv1kvJoNUTUfNkm6hR/qwMYUZyeOBnpTH8UWkdxrF3Z6bPHdapFLFI010JEQSMC2FEanPpzx71QuNZjbw1DotvatHGLn7VLJJLvLybAny4UbV68HJ5HPHOlP4x3+Jr7xBBYeVfzIq2xabctudgRmxtG84BxnAGeQaYfG2ohdElUs97pbTH7RPIZTMJDyCDyBt+Xr06Yqhe6ppz2UttpukLaiaXzJJJpRO6qPuojFRsUc56seMnFM/tn/AIpT+w/I/wCX77X52/8A2Nm3bj8c5/CrFrrts2l2mnatp7XsFlKZLby5/JKqxy6Mdp3KTg9mHODTrfxRLZ/2hcWdrFa6he/u/Pt8RpDDxlI0AwCSB8xJPHrk1Br+uya/LYyyxssltZx2zu8m8ylc5cnHU59/rTrbxDLZ+H4dNgi2TQ6it/HcbgcME2gbSMdec5/Ci58Qy3nh+bTZ4t802otfyXG4DLFNpG0DHXnOfwrXi8aWg8UJ4jl0mdtRCjeEvAsRPl+WSF8skDHONxrG1PWY77RtM02K1aGOwafYzy7ywkfcAflHI6Z7+1WpvFty/g228NxQrHBGzGaXO4yjeXAAx8oBPvnA6cg19a8RXGp+Jp9btRJYzSbdvlTHcmECHDDB5A/Wrp8baiF0SVSz3ultMftE8hlMwkPIIPIG35evTpiqF7qmnPZS22m6QtqJpfMkkmlE7qo+6iMVGxRznqx4ycVdufFEF5O2o3WkxT6w8Aia4lcNCWA2iQwlcbtvGM7c87ac/jCR5bNWs1eyjsIrC6tJJMpcqmfm6Da3OQRyp7nkU278XSyeEofDlpb+RaI7s7u4d5FMhdVzgAYJ5I64HQZBtXfjqWa71m6gs/Im1F7WSNvNDeQ0BBBwVw2SPb8aNa8dTazHrEclnsW/jt44x5oPkLExbH3RuySx7Yz3rF0TWf7H/tH9x532yxktPv7dm/HzdDnGOn61q6f4x+zanp2qXdh9q1Gz3I1wJthuIyhUB/lOWGfv9SBg561SOt2ltod/pmnWM8S37RedJcXIlICEsAoVFwcnqc1qReNLQeKE8Ry6TO2ohRvCXgWIny/LJC+WSBjnG41Vg1vRbTw5NpkVjqDPey77tvtKL8qMTGgJRsgZyTtU59uB0nhDWtMv9W8N6dbWt3BPYS3Pl+ZKsitG8bsxLBVO7djAxjHrXI3Wu2y6Xd6dpOntZQXsokufMn84sqnKIp2jaoOT3J4ya1IvGloPFCeI5dJnbUQo3hLwLET5flkhfLJAxzjcaxtJ1qPSJtUMVqzx3tnLaIry8xh8YJO35iMegz7UzSdZ/s6C9s54PtNheoFnhD7GJU5RlbBwVPPQg9xWrZ+MfsGraTPBYYsNLSRYLUzZYl1IdmfbySTnoAMYAFWrH4hXdpDocMtr50el79w8wL52UZE/h+XarEd8964yiiiiiiiiiiivQNH/AOQJYf8AXtH/AOgiuFvf+Qlef9fMv/oZqGiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiivQNH/5Alh/17R/+giuFvf8AkJXn/XzL/wChmoaKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK7fQfh8utaJbaidUaEzhj5Ytg23DsvXeP7uelaP/AAqpP+g1J/4Bj/45R/wqpP8AoNSf+AY/+OUf8KqT/oNSf+AY/wDjlH/Cqk/6DUn/AIBj/wCOUf8ACqk/6DUn/gGP/jlH/Cqk/wCg1J/4Bj/45R/wqpP+g1J/4Bj/AOOUf8KqT/oNSf8AgGP/AI5R/wAKqT/oNSf+AY/+OUf8KqT/AKDUn/gGP/jlH/Cqk/6DUn/gGP8A45R/wqpP+g1J/wCAY/8AjlH/AAqpP+g1J/4Bj/45XE67pa6Nq0tkk7TiPje0ewk9+Mn+dZtFegaP/wAgSw/69o//AEEVwt7/AMhK8/6+Zf8A0M1DRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXtngX/AJEvTf8Ack/9GyV0VFFRzzxW1vJcXEqRQxKXkkkYKqKBkkk8AAd6qWut6Tf2hu7PVLK4thKsJmhuEdBISAEyDjcSygDr8w9asXd7aWEYkvLqG3jO7DTSBBwpY8n0VWY+yk9qfJPDE8SSSojTNsjVmALtgtgepwrHA7AntVTTdb0nWPN/svVLK+8rHmfZbhZdmc4ztJxnB/I0yHxFolxqR02HWNPkvw7IbVLpDKGXO4bAc5GDkY4wa0qKKK8S8a/8jTd/7x/ma56ivQNH/wCQJYf9e0f/AKCK4W9/5CV5/wBfMv8A6Gahoooooooooooooooooooooooooooooooooooooooooor2zwL/AMiXpv8AuSf+jZK6KiisLxt/yIXiL/sGXP8A6KauL1LUPtNrqupf2xpl3sk0hP7UtkxZpsvS21l8xvmTdub94PldOF6tYvvEMF7dWH9qXumappVpdNLPfWUJNuyGyvPMiK75NzKqBiMnIkUbR1aTXrS9Xw/e2+pQXU8l1p11Bo8LSefJDKYZT5b4GXmMYIEmW4DJuyS8+yut6TqPi2zv7HU7K6s7LTLz7VcQXCvHBue3K72BwuQjkZxkI3oa57SvEWiXD+GY4dY0+SWXxBeXCxLdIXCTC7MZK5ypPmRjBAILAEA8V6bRRRXiXjX/AJGm7/3j/M1z1FegaP8A8gSw/wCvaP8A9BFcLe/8hK8/6+Zf/QzUNFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFe2eBf+RL03/ck/wDRsldFRRRRRRUc8EVzbyQTxJLDKpSSORQyupGCCDwQR2omgiuECTRJIgZXCuoIDKQynnuCAQexANSUUUV4l41/5Gm7/wB4/wAzXPUV6Bo//IEsP+vaP/0EVwt7/wAhK8/6+Zf/AEM1DRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXa6J4+bR9FtdPS0D+QrAsTndl2b1H97H4Vf8A+Foy/wDPkn5H/Gj/AIWjL/z5J+R/xo/4WjL/AM+Sfkf8aP8AhaMv/Pkn5H/Gj/haMv8Az5J+R/xo/wCFoy/8+Sfkf8aP+Foy/wDPkn5H/Gj/AIWjL/z5J+R/xo/4WjL/AM+Sfkf8aP8AhaMv/Pkn5H/Gj/haMv8Az5J+R/xo/wCFoy/8+Sfkf8aP+Foy/wDPkn5H/GuM1zUxq+qSXgQoZOSp7HJrOor0DR/+QJYf9e0f/oIrg9TlS31a8jlO1vPdsYzwWJH6EVV+1wf3/wBDR9rg/v8A6Gj7XB/f/Q0fa4P7/wCho+1wf3/0NH2uD+/+ho+1wf3/ANDR9rg/v/oaPtcH9/8AQ0fa4P7/AOho+1wf3/0NH2uD+/8AoaPtcH9/9DR9rg/v/oaPtcH9/wDQ0fa4P7/6Gj7XB/f/AENH2uD+/wDoaPtcH9/9DR9rg/v/AKGj7XB/f/Q0fa4P7/6Gj7XB/f8A0NH2uD+/+ho+1wf3/wBDR9rg/v8A6Gj7XB/f/Q0fa4P7/wCho+1wf3/0NH2uD+/+ho+1wf3/ANDR9rg/v/oaPtcH9/8AQ0fa4P7/AOho+1wf3/0NH2uD+/8AoaPtcH9/9DR9rg/v/oaPtcH9/wDQ0fa4P7/6Gj7XB/f/AENH2uD+/wDoaPtcH9/9DR9rg/v/AKGj7XB/f/Q0fa4P7/6Gj7XB/f8A0NH2uD+/+ho+1wf3/wBDR9rg/v8A6Gj7XB/f/Q0fa4P7/wCho+1wf3/0NH2uD+/+ho+1wf3/ANDR9rg/v/oaPtcH9/8AQ0fa4P7/AOho+1wf3/0NH2uD+/8Aoa9I0uNotIso3GGSBFYehCiv/9k=)
Рисунок 11 - Программа после щелчка мыши
На этом этапе программа была неоднократно протестирована, ошибок не выявлено.
2.5 Создание справочной системы
Из - за невысокой сложности программы, данный пункт не использовался.
![](data:image/gif;base64,R0lGODlhwQIzBHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAAAAAC/AjEEhQAAAAAAAAgICA0LCgQAAAQIDQ0KCAMDCAsLDQ0LCwgDAwgKDQsGAwMGCwQDCAQABAoLDQoEAAoGAwAAAwgKCwgDAAAABA0IBAAECgMDAwMABAADCAQAAwgGBBAQEBwcHAICAgMAAA0KCwgEAAsGBCAgIDAwMEBAQH9/f2BgYL+/v////wECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwb/QEBASBwai8ijMslcOpvQpzRKnVqr2Ks2y916u+CvOEwem8voszrNXrvb8Lc8ThcG7vi8fs/v+/+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZh2mp2en6ChoqOkpaanqKmqngB2KCuwsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0sx4rtPX2Nna29zd3t/g4eLj5NJ3rXev5evs7e7v8PHy8/T1s9Xp9vr7/P3+/wADCsx1ztrAgwgTKlzIsOFBfAHUOZxIsaLFixgz4iqYT6PHjyBDihzZDaJEkihTqlzJciTHiC1jypxJs2Y9kzZz6tzJs2ey/5cnfQodSrQoTZxGkypdyrQi0KZQo0qdOg8p1atYs2qF9nSr169gw24811Gs2bNopXZNy7at251W38qdS1fk2rp48+pdGHev37+A6d0NTLiw4W99DytezHjZ4MaQI0velXiy5cuSH2PezLlw5c6gQ9fVLLq0abSfT6tenZU069ewmaaOTbt2T9e2c+uWOXu37992hxgETrx4yN7GkytHiHu58+f9kEOfTv1d8+rYs4uTrr2792vXv4sfT40sTPLo0zsLr769e4Lmg76fT38suvP18+uXxX2//+/s/Sdgdv0NaCB0AR6ooHIFLuggcAk+KKFuDU5oYWwRXqjhahVu6P+haBl+KCJnHY5o4mQhnqhiYyWu6KJhKb4oI2AtzmhjXjHeqONcNe7oI1s5/iikWT0OaaRXQR6pJFZFLulkVEk+KeVSTU5pJVFRXqnlbfFt6eVWWX4pJm9djmkmVGGeqaZLZa7p5lBpvinnRVXOaadTwpV1554x1cnnn8zliR+ghLJpxKCFJupRnIo2KlibjkZKEaOSVrqOn5ZmSg6lmnZaEqSehsoPp6KWGg2mpqbKlaDyqerqpaC+Kus4pM5qKzCo3qrrL7Xu6ustuf4qrC29DmtssMYmu0KxyvqKbLPCMgvtrc9Ou6u01spabba2Ysutqtt++6q34pYabrmpkov/rqfnriuquu5m2m68ncJLr6Tz3mupvfo2mm+/kfILcKH/DqyowAb/WXDChCLM8J0LP8ynwxLLGXHFdlKM8ZoXb/ymxh6b2XHIaoJM8pcjnzymySprmXLLXrIM85Qvz3ylzDY7WXPOUuLM85E7/7ykz0ILGXTRRhKN9I5HL/2j0k7b2HTUOkJN9YtTXz2j1VqrmHXXLnIN9ohfj32i2GZ7WHbaIqLN9oVrv72h23JLGHfdFtKN94J37/2g3n4b2HfgCgJO+H+DHz6g4Yrrl3jj/jEOOX2PT56f5Ja7V3nm82HOeXqbf96e56KPF3rp6JGOunenry6e6q4TGGvsW8JO/zt1rd8u+32t6k7z7L73zGrwMQNP/NDDH3+z8connXzzwh/aO/RD2k49hMxfz/Tz2gOdffdScw++0d+Pj7X45m8vffrVo89++Ou/76P18r+We/210Y+/avfvD5v+/itN/wLIIfcRkGzlO2DeDKhAtSWwgX9jIATh9sAJFk6CFrRbBTO4OAxykG8b/GDkPChCwYWwhJcjIQoRd8IVdk6FLnRcC2M4OhjSkHIzvGHqbKhDzeWwh6/jIRBB98MhdgeARvTLAJNIGCQyEUdFfCLuhCjFI0axis9xIhblssQtQpF3XqxPF8NIFy2SMS1jPONbzKhGIl2xjb9hIxzBksY5ov+GinY0Th3zKBY58rE1b/wjbfwoSKrssZBgwiMiKRTIRRYQjI7EziEjaUhFUhJDjbwkiCypSdZMspNNISQoi/LJUSpFlKYUSilTSUpOsjI0q3ylKl0pSxJlspaRQSUubRLLXepEl76cSS+DWRNgErMlwzwmmSCpzEHesplNpCU0F5PMaarEmNY01HCyyT9pcjOa8fvmabApzkU9s5yj8SY691LNdZqTme7sTDvjiRFy0nNS57wnkNSpTy7ms59nsSdA+fLPgYZFoAYNVDgTChmEMlQg83xoQhwq0X9EtKIDoShGR1XQjVYSnh4F5zZDGhiNkvRRCz3pX0yq0nhctKX/+mApTN3x0pk+CqQ2TWdKc1pGfvIUTR39KZx8KlQqBbWoXMIpUve506WikahOxdJRo8pLqFLVJzW96nasqlW4TLWrfeIqWKva1LEmUqlm1UpW07oNmbL1VF99K0ncKtf1xLWuxxErXq95172+c6R+VUtfA1tPvRI2OGU97CkNq9iPrLWxjmEsZDPy2Mkig66WDUZlM1sMzHLWF5v9rDA8K1rKDLa0D5EsahkS2tX2grSuJdZpY2tR1dI2tYm97TIBq9ujzLa3MbUtcGub2+HyFa3GXUlrk8sf4TI3uMV9bnCQK11t6qm6x+Utdq2LqO3O1bnehcdypQvb4Y73ueUF/+55mZve3q43ue3V7XuNG9/bzte84A0vTX+r303lt7+wii6A8UTdAVvkvur9r4G3KuAFN6S+tEWwexXsYMTwt8LcgHBsJSxfCmM4wxf+cDY07FoO29fDIh5xiFM8DRKv1sQRRjGLW7ziGa+qwDbOaI1z3AwXoxbGG5Yxj+3a4CFHR8hGjmyRkxxcHDOZo0t+8k21K2V/ALnESK5yZ3es5WH4uLRXfnGWuzxaLpMZV2M+M6/MrObXprnNvAjzj98MZ13IGcx0rvNYoqxnWuW5z7W4s2i/PGg2A1q2Tj60f/msaG8Q+rOChvSfGw2LSHP20Zc2NKVjgenMWtrTk6b0p/8t22lSa3rTywp1o0c92VK3+tSbdjVkWT1rVSua1o2Vda5hLWpbHxrXitV1sHm9al8DGtiHFXayiX1rY/cZ2YRVdrSZ/Wtn6xnagZV2tql9bGvXGdt+1Xa4uf1sb8MZ3HsVd7rJfW1ztxndeFV3vNn9bXerGd51lXe+6X1ue58Z33LVd8D5/W5/kxngbxV4wgl+b4N3GeFsVXjEGf5vh2sZ4mmVeMYpfnCLVxnjZtV4yDn+cI9LGeRjFXnKSX5xkz8Z5WBVecxZ/nGXMxnmXZV5zml+cpsnGeda1XnQef5ynxsZ6FcVetKJfnOjDxnpVFV61Jn+c6fzGOpRlXrWqX7/dKvnGOtO1XrYuf50r9sY7EsVe9rJfnWzzxjtSFV73Nn+dbezGO5FlXve6X52u6cY70LVe+D5/na/ixjwPxV84gl/d8N/GPE8VXzkGf93x2MY8jmVfOYpf3jLVxjzNtV86Dn/eM87GPQzFX3qSX950y8Y9TBVfexZ/3nXGxj2LZV97ml/etsPGPcq1X3wef963wMY+CcVfvKJf3vj9xf5JFV+9Jn/e+frF/ohlX72qX9864cX+x7Vfvi5/3zvexf8GxV/+sl/ffNvF/0YVX/82f9992MX/hWVf/7pf377Vxf/EqV/Ach/7+d/5EWA92eA6IWA/6eA7MWAB5hoqOZo/xC4gBI4gSDGaBgIHg4IXxX4gBe4gSqmgSIIVyFYgjRGgihoVye4gquigi4YWS0Ygz32gR44gzSoZFSWg9gggA8FgD/YgfRlg0OIgzx4WUSIX0Z4hMYAhAzlg0+YhAm2hExIDE6YUFCIhVI4YVRYhWUGg15YZl0YhmsGhmS4ZmN4hnG2hR2WhmpoZ2x4Ym74hnu2g3T4E0KIX2Z4h/Axh3xIC1doUFkoiHEYY374h821h4gYaHmYYIq4iPfQiBP2iJDIaZLYYZRYial2iJAYiAM1iJ9YiEHGiYvoiQAFiqcoilhGiohoiv2Eiq+oimLGin/oivoEi7coi3NGi3xoi//3hIu/qIt4xot36Iv0BIzHKIyFRox0aIzxhIzPqIySxoxv6IzuBI3XKI2ZRo1qaI3rhI3fqI2gxo1n6I3oBI7nKI6mRo5kaI7lhI7vqI6vxo5h6I7iBI/3KI+1Ro9eaI/fhI//qI+7xo9V6I/cBJAHKZDDRpBMaJDZhJAPqZDLxpBH6JDWBJEXKZHTRpE8aJHThJEfqZHbxpE56JHQBJInKZLjRpI0aJLNhJIvqZLrxpIx6JLKBJM3KZPzRpMuaJPHhJM/qZP7xpMr6JPEBJRHKZQDR5QoaJTBhJRPqZQLx5Ql6JS+BJVXKZUTR5UiaJW7hJVfqZUbx5Ub6JW4BJb/ZymWI0eWGGiWtYSWb6mWK8eWE+iWsgSXdymXM0eXqGaXr4SXf6mXO8eXsSaYQ0eYvZaJlQiYrOSXjXmJJ6aYnQiZMSaZpUiZQWaZrYiZWKaZtciZYuaZvQiacyaaxUiaeGaazYiahaaa1ciakuaa3QibmSab5UiboGab7Yibpqab9cibr+ab/QictSacBUmcu2acDYmcw6acFcmcy+acHQmd0yadJUmd22adLYmd46adNcmd6+adPQme8yaeRUme+2aeTYmeA6eeVcmeC+eeXQmfEyefZUmfG2efbYmfI6efdcmfK+effQmgMyeghYmYxWagvYagzaagxcag1eag/80God0modVGoeVmod2Goe2moeXGofXmoe0Gov0movVGogVnov2Gog2nogXHohXnog0Hox0noxVHoyVnox2Hoy2noyXHozXnoy0HpD0npDVHpEVnpD2HpE2npEXHpFXnpE0HpV0npVVHpWVnpV2HpW2npWXHpXXnpW0Hpn0npnVHpoVnpn2Hpo2npoXHppXnpo0Hp50np5VHp6Vnp52Hp62np6XHp7Xnp60HqL0nqLVHqMVnqL2HqM2nqMXHqNXnqM0Hqd0nqdVHqeVnqd2Hqe2nqeXHqfXnqe0Hqv0nqvVHqgVoqv2HqgmoqgXIqg3oqgkIqwcoqw1IqwtoqxFoh/+aiGa6aoG82qugZZhLh6sP+KsgGKzCuobIeoPKuqxw2KxF+KzQWofXVa2aRaA7J61KSK3YyojcOoXe+q2RGK5cOK7kaonm2obomq6ptq5y2K7p6pipxJj1SqxTZ6weCK+GKK/kSq+mZK8Bi69bp69DyK+j6K/fCrCjJLANS7BjZ7B6qLDY6rCgxLAXq61Dh7CrSLHVirGdZLEhC7FrJ7GO6LHQKrKaBLIrq7FLx7GziLLLyrKXpLI1S7JzZ7KTKLPCarOURLM/67JTB7O7yLO9CrSR5LNJi7N7p7OYaLR6dgKfALV1JrWscK1VKLUCcAJc27Ve+7VgG7Zhi7QcJLX/JQBXRDtTZou2VAtna/uCbdtmb/sMZJtBc0tkcatmczsABJAHBXAMdWtBc2sAB4AAK5AACrAAgMu00DS3DNAAsDAADoAAA/AAELAClXu5EXAHkEu4EhAAE0ABFRAAFnC575q3Zza3EfC3K3ABGLAChGu4sRsBr5u5F5ABkMsAAfC3j1tpjNtMb4u4irsCvdu7rdsABqABpgsLtMu8kLsCEfC8gTtBbyu5hgu9f7u6zFsAF7AB13u4iQu+iiu8vpu2MPW2rgsLwpu5mMsBC5C+scC+8mu55Yu6ZPa20QsLsRu7CVAB3pu8ENC/yFu4sEvA3Xu90wtBZsu3pQsL6du//6DbAa9LvJzbuhMMv8Z7uljLhHdbg+bbUh1cHh+sUiGsgxt8hCWsDAncQCmMhyN8Ui2MhC9MUjG8uDMcUjXchL+rTDm8ZTfsUR4wtSfMg0F8td1VhR8QACDgAUzcxE78xFAcxVG8wgrUw1a4w8dkxV6GxcSkxV9ov13mxdn6wxslxr4KxlpmxmWIxlUWwwYQAnfQwLLwxnjAuoDIxcHUwhegBxMwvK27B89brmwsZSnMt7sLC7o7wXzbx/obAt57x2SMUSm8x4Hcvw0sAiNgx9Arx4k4yE/WwiTgx/37yLSwxxMsyEOcg1b8xqfcyHdAyqh8xBwcAGerC2/MyQ5cx/+yFckVlcO6i8tzHALAXL+pTIMxDMGtXAu6q8nq6slM1sJ0zMy1sMfSrMGyjMK0bAu3vLzqWwGc3L+MDMnOnGQlzLewLAuJ3M0BkMzNXMwxWMK6uwePbMh5cM6d7M4uGMIQvAetvLl3wM73fM08qMbDyssSRdBuZtAPhdDMOs5GxtCmpdAMBdHR6tBDRtHwcSgpoAIc3dEe/dEgHdIiPdIkXdImfdIondIqvdIs3dIu/dIwHdMyPdM0XdM2fdM4ndM6vdM83dM2bQLZDLerMNREXdRGfdRIndRKvdRM3dSBwAlOHdVSPdVUXdVWfdVYndWDQAdz0NVc/dVeHdZgPdYYYl3WZH3WZp3WaL3Wat3WbP3WTtAJABAEADs=)
2.6 Создание установочного диска
Из - за невысокой сложности программы, создание установочного диска нецелесообразно.
ЗаключениеВ настоящее время в нашу жизнь широко внедряются информационные технологии. На сегодняшний день, наверное, не осталось такой области, где бы они ни применялись.
Постоянно растет объем и сложность обрабатываемой информации, требуются все новые и новые виды ее представления. Как показывает практика, большинство пользователей уже не представляет себе, как бы они выполняли свою работу, с которой прекрасно справлялись еще 5 – 10 лет назад, без помощи компьютера.
В ходе курсового проектирования разработана тестирующая программа. Проектирование выполнено в системе Delphi. В пояснительной записке:
· представлена информация о создании языка программирования;
· приведен теоретический материал о компонентах, используемых в программе;
· представлена блок-схема алгоритма работы программы;
· приведен анализ и тестирование программы с подробным описанием;
Список литературы1. Чеснокова О.В., Delphi 2007. Алгоритмы и программы. Самоучитель. – М.: НТ Пресс, 2008 – 368 с.
2. Алексеев Е.Р., Чеснокова О.В., Турбо Паскаль 7.0, - М.: НТ Пресс, 2006 – 320 с.
3. Бобровский С., Delphi 5: учебный курс: Питер, 2001 – 640 с.
4. Карчевская М.П., Рамбургер О.Л., Тархов С.В., Хамзина Е.А., Разработка приложений в среде Borland Delphi: лабораторный практикум по дисциплине "Информатика",- Уфа: УГАТУ, 2005.
5. Интернет-издание, 32 урока: Borland Delphi или о том, что лучше один раз увидеть, чем сто раз услышать.
6. Электронная книга. Архангельский А.Я., 100 компонентов общего назначения библиотеки Delphi 5.