{"id":368423,"date":"2024-05-21T03:42:24","date_gmt":"2024-05-21T03:42:24","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=368423"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=368423","title":{"rendered":"<span>\u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u043c \u044f\u0437\u044b\u043a\u0430\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0435\u0441\u044f\u0442\u043a\u0438 \u043b\u0435\u0442 \u2014 \u0438 \u043e\u043d\u0438 \u0435\u0449\u0451 \u0432 \u0445\u043e\u0434\u0443. 5 \u0441\u0442\u0430\u0440\u044b\u0445, \u043d\u043e \u0430\u043a\u0442\u0443\u0430\u043b\u044c\u043d\u044b\u0445 \u042f\u041f<\/span>"},"content":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/78f\/8cf\/ece\/78f8cfece0a142e20c6a2964d35b0acb.jpg\" width=\"1920\" height=\"1080\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/78f\/8cf\/ece\/78f8cfece0a142e20c6a2964d35b0acb.jpg\" data-blurred=\"true\"\/><\/figure>\n<p>\u041d\u0435 \u0442\u0430\u043a \u0434\u0430\u0432\u043d\u043e<a href=\"https:\/\/habr.com\/ru\/companies\/ru_mts\/articles\/758434\/\"> \u043c\u044b \u043f\u0438\u0441\u0430\u043b\u0438<\/a> \u043f\u0440\u043e \u044f\u0437\u044b\u043a COBOL, \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u0443\u0436\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 60 \u043b\u0435\u0442. \u041e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0430\u043a\u0442\u0443\u0430\u043b\u0435\u043d, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043d\u0430 \u043d\u0451\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u043d\u0435\u043c\u0430\u043b\u043e \u0441\u0438\u0441\u0442\u0435\u043c \u0444\u0438\u043d\u0430\u043d\u0441\u043e\u0432\u044b\u0445 \u0438 \u0431\u0430\u043d\u043a\u043e\u0432\u0441\u043a\u0438\u0445 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u0439. \u041d\u043e \u0435\u0441\u0442\u044c \u0438 \u0434\u0440\u0443\u0433\u0438\u0435 \u0441\u0442\u0430\u0440\u044b\u0435 \u042f\u041f, \u0432\u0441\u0451 \u0435\u0449\u0451 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c\u044b\u0435 \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0442\u0440\u0430\u0441\u043b\u044f\u0445. \u041e \u043d\u0438\u0445 \u0441\u0435\u0433\u043e\u0434\u043d\u044f \u0438 \u0433\u043e\u0432\u043e\u0440\u0438\u043c, \u043d\u0435 \u043e\u0431\u043e\u0439\u0434\u044f \u0438 COBOL, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0435 \u0441\u043e\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f \u0443\u0445\u043e\u0434\u0438\u0442\u044c \u0441 \u0440\u044b\u043d\u043a\u0430. \u041f\u043e\u0434\u0440\u043e\u0431\u043d\u043e\u0441\u0442\u0438 \u2014 \u043f\u043e\u0434 \u043a\u0430\u0442\u043e\u043c.<\/p>\n<h2>Fortran<\/h2>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/d5c\/72b\/0c9\/d5c72b0c9248749e609121b30afad177.jpg\" width=\"1200\" height=\"666\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/d5c\/72b\/0c9\/d5c72b0c9248749e609121b30afad177.jpg\" data-blurred=\"true\"\/><\/figure>\n<p>\u0412 \u043d\u0430\u0447\u0430\u043b\u0435 2024 \u0433\u043e\u0434\u0430 \u044d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u043e\u043a\u0430\u0437\u0430\u043b\u0441\u044f \u043d\u0430 12 \u043c\u0435\u0441\u0442\u0435 \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 TIOBE. \u0418 \u0432\u0435\u0434\u044c \u0435\u043c\u0443 67 \u043b\u0435\u0442, \u0432\u0434\u0443\u043c\u0430\u0439\u0442\u0435\u0441\u044c. \u0412 \u043f\u0440\u043e\u0448\u043b\u043e\u043c \u0433\u043e\u0434\u0443 \u043e\u043d \u043d\u0430\u0445\u043e\u0434\u0438\u043b\u0441\u044f \u043d\u0430 27 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0438 \u0432\u0441\u0435\u0433\u043e \u0437\u0430 \u0433\u043e\u0434 \u0432\u044b\u0448\u0435\u043b \u043f\u043e\u0447\u0442\u0438 \u0447\u0442\u043e \u0432 \u043f\u0435\u0440\u0432\u0443\u044e \u0434\u0435\u0441\u044f\u0442\u043a\u0443. \u041f\u043e\u0437\u0430\u0434\u0438 \u043d\u0435\u043e\u0436\u0438\u0434\u0430\u043d\u043d\u043e \u043e\u043a\u0430\u0437\u0430\u043b\u0438\u0441\u044c Rust, Ruby \u0438 Kotlin.<\/p>\n<p>\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043d\u0435 \u0441\u0442\u043e\u0438\u0442 \u0434\u0443\u043c\u0430\u0442\u044c, \u0447\u0442\u043e \u043e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0442\u0430\u043a\u043e\u0439 \u0436\u0435, \u043a\u0430\u043a\u0438\u043c \u0431\u044b\u043b \u0432 \u043c\u043e\u043c\u0435\u043d\u0442 \u0441\u0432\u043e\u0435\u0433\u043e \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f (\u043f\u0435\u0440\u0432\u0443\u044e \u0432\u0435\u0440\u0441\u0438\u044e \u0432\u044b\u043f\u0443\u0441\u0442\u0438\u043b\u0430 IBM \u0432 1957 \u0433\u043e\u0434\u0443). \u0412 2023 \u0433., \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e\u044f\u0432\u0438\u043b\u0441\u044f \u043d\u043e\u0432\u044b\u0439 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442. \u0412\u043e\u0442 \u0434\u043e\u0441\u0442\u043e\u0438\u043d\u0441\u0442\u0432\u0430 \u044f\u0437\u044b\u043a\u0430:<\/p>\n<ul>\n<li>\n<p>\u0432\u044b\u0441\u043e\u043a\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c<\/p>\n<\/li>\n<li>\n<p>\u0441\u0442\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0438 \u0441\u0438\u043b\u044c\u043d\u0430\u044f \u0442\u0438\u043f\u0438\u0437\u0430\u0446\u0438\u044f<\/p>\n<\/li>\n<li>\n<p>\u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u0430 \u0434\u043b\u044f \u0438\u0437\u0443\u0447\u0435\u043d\u0438\u044f \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f<\/p>\n<\/li>\n<li>\n<p>\u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c<\/p>\n<\/li>\n<li>\n<p>\u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u0438\u0437\u043c<\/p>\n<\/li>\n<li>\n<p>\u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0441\u043d\u044b\u0435 \u0447\u0438\u0441\u043b\u0430 \u043a\u0430\u043a \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u0442\u0438\u043f \u0434\u0430\u043d\u043d\u044b\u0445 \u2014 \u044d\u0442\u043e \u043a\u0440\u0430\u0439\u043d\u0435 \u0432\u0430\u0436\u043d\u043e \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0451\u0442\u043e\u0432 \u0432 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0440\u0430\u0434\u0438\u043e\u0444\u0438\u0437\u0438\u043a\u0438<\/p>\n<\/li>\n<li>\n<p> \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a \u0434\u043b\u044f \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u0440\u0430\u0441\u0447\u0451\u0442\u043e\u0432,<a href=\"https:\/\/en.wikipedia.org\/wiki\/NAG_Numerical_Library\"> \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 NAG<\/a><\/p>\n<\/li>\n<\/ul>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 \u044d\u0442\u043e\u043c \u044f\u0437\u044b\u043a\u0435:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>! Print matrix A to screen subroutine print_matrix(n,m,A)   implicit none   integer, intent(in) :: n   integer, intent(in) :: m   real, intent(in) :: A(n, m)     integer :: i     do i = 1, n print *, A(i, 1:m)   end do   end subroutine print_matrix<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u0414\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0432 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432\u044b\u0441\u043e\u043a\u043e\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439, \u0432 \u0444\u0438\u0437\u0438\u043a\u0435, \u0430\u0441\u0442\u0440\u043e\u043d\u043e\u043c\u0438\u0438 \u0438 \u043a\u043b\u0438\u043c\u0430\u0442\u043e\u043b\u043e\u0433\u0438\u0438.<\/p>\n<p>\u041d\u0430 \u043d\u0451\u043c \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u044b \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u0433\u043e\u0434\u044b \u0438 \u043a\u043b\u0438\u043c\u0430\u0442\u0430, \u0435\u0441\u043b\u0438 \u0431\u0440\u0430\u0442\u044c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u0440. \u042d\u0442\u043e \u043c\u043e\u0434\u0435\u043b\u0438 \u041c\u0435\u0436\u043f\u0440\u0430\u0432\u0438\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0439 \u0433\u0440\u0443\u043f\u043f\u044b \u044d\u043a\u0441\u043f\u0435\u0440\u0442\u043e\u0432 \u043f\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044e \u043a\u043b\u0438\u043c\u0430\u0442\u0430 (IPCC). \u0422\u0430\u043a\u0436\u0435 \u044f\u0437\u044b\u043a \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u0432\u044f\u0437\u0430\u043d\u044b \u0441 \u0445\u0438\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u043c\u0438 \u0438 \u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438\u043c\u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c\u0438 \u043c\u043e\u043b\u0435\u043a\u0443\u043b. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043e\u043d \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043f\u0430\u043a\u0435\u0442\u043e\u0432 \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u0445\u0438\u043c\u0438\u0438 \u0438 \u0431\u0438\u043e\u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u043a\u0435. \u041f\u0440\u0438\u043c\u0435\u0440 \u2014 GROMACS \u0434\u043b\u044f \u043c\u043e\u043b\u0435\u043a\u0443\u043b\u044f\u0440\u043d\u043e\u0439 \u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0438.<\/p>\n<h2>ADA<\/h2>\n<p>\u042d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u043d \u0432 \u043a\u043e\u043d\u0446\u0435 1970-\u0445, \u043f\u0440\u0438\u0447\u0451\u043c \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u0442\u0430\u043a, \u0430 \u043f\u043e \u0437\u0430\u043a\u0430\u0437\u0443 \u041c\u0438\u043d\u0438\u0441\u0442\u0435\u0440\u0441\u0442\u0432\u0430 \u043e\u0431\u043e\u0440\u043e\u043d\u044b \u0421\u0428\u0410. \u0412\u0435\u0434\u043e\u043c\u0441\u0442\u0432\u0443 \u043e\u043d \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u043b\u0441\u044f \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u043e\u0433\u043e \u041f\u041e, \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u0434\u043b\u044f \u0432\u043e\u0435\u043d\u043d\u044b\u0445 \u0438 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0441\u0438\u0441\u0442\u0435\u043c. \u0422\u0430\u043a\u0436\u0435 \u043e\u043d \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0441\u044f \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043c\u0435\u0434\u0438\u0446\u0438\u043d\u0441\u043a\u0438\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439, \u0434\u0430 \u0438 \u0432\u0441\u0435\u0433\u043e, \u0433\u0434\u0435 \u0442\u0440\u0435\u0431\u043e\u0432\u0430\u043b\u0438\u0441\u044c \u043d\u0430\u0434\u0451\u0436\u043d\u043e\u0441\u0442\u044c \u0438 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u044c.<\/p>\n<p>\u0415\u0433\u043e \u0434\u043e\u0441\u0442\u043e\u0438\u043d\u0441\u0442\u0432\u043e \u0432 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0435 \u043a\u0430\u043a \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e, \u0442\u0430\u043a \u0438 \u043d\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u041e\u043d \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442 \u043a\u0430\u043a \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0441\u043d\u044b\u0445 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0445, \u0442\u0430\u043a \u0438 \u0434\u043b\u044f \u043d\u0438\u0437\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u0439 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438. \u042f\u0437\u044b\u043a \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043e\u0431\u043d\u0430\u0440\u0443\u0436\u0438\u0432\u0430\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0438 \u0435\u0449\u0451 \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438, \u0430 \u043d\u0435 \u0443\u0436\u0435 \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u0432 Ada \u043f\u0440\u0435\u0438\u043c\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0441\u043b\u043e\u0432\u0430, \u0430 \u043d\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044b. \u0412 \u0446\u0435\u043b\u043e\u043c \u044d\u0442\u043e \u0441\u043d\u0438\u0436\u0430\u0435\u0442 \u0440\u0438\u0441\u043a \u043e\u0448\u0438\u0431\u043e\u043a \u043f\u0440\u0438 \u043a\u043e\u0434\u0438\u043d\u0433\u0435.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 ADA:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>h Interfaces; use Interfaces; with System.Machine_Code; use System.Machine_Code; with Ada.Text_IO;   procedure Asm_Test is Left, Right : Unsigned_32; begin Left := 1; Right := 2;   Asm(\"addl %1, %2\",     Inputs => (Unsigned_32'Asm_Input (\"a\", Left),                        Unsigned_32'Asm_Input (\"b\", Right)),     Outputs => Unsigned_32'Asm_Output (\"=b\", Right));   Ada.Text_IO.Put_Line (Unsigned_32'Image (Right)); end Asm_Test;<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u041d\u0435 \u0441\u043a\u0430\u0437\u0430\u0442\u044c, \u0447\u0442\u043e\u0431\u044b \u0441\u0435\u0439\u0447\u0430\u0441 \u044f\u0437\u044b\u043a \u0431\u044b\u043b \u043a\u0440\u0430\u0439\u043d\u0435 \u043f\u043e\u043f\u0443\u043b\u044f\u0440\u043d\u044b\u043c, \u043d\u043e \u043a\u043e\u0435-\u0433\u0434\u0435 \u0435\u0433\u043e \u0435\u0449\u0451 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0432\u0441\u0451 \u0432 \u0442\u043e\u0439 \u0436\u0435 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0442\u0440\u0430\u0441\u043b\u0438 \u2014 \u0434\u043b\u044f \u0441\u0438\u0441\u0442\u0435\u043c \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u0451\u0442\u0430\u043c\u0438 \u0438 \u0441\u043f\u0443\u0442\u043d\u0438\u043a\u0430\u043c\u0438. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043d\u0430 \u043d\u0451\u043c \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u0435\u0434\u0438\u0446\u0438\u043d\u0441\u043a\u0438\u0435 \u043f\u043b\u0430\u0442\u0444\u043e\u0440\u043c\u044b, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0436\u0435\u043b\u0435\u0437\u043d\u044b\u043c\u0438 \u0434\u043e\u0440\u043e\u0433\u0430\u043c\u0438.<\/p>\n<p>\u041a \u0441\u043b\u043e\u0432\u0443, \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432\u0435\u0440\u0441\u0438\u044f \u044f\u0437\u044b\u043a\u0430 (\u0432 \u043e\u0442\u043b\u0438\u0447\u0438\u0435 \u043e\u0442 \u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0439) \u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0439. \u041a\u0430\u043a \u0438 \u043f\u0440\u0435\u0434\u0442\u0435\u0447\u0430, \u043e\u043d\u0430 \u043d\u0430\u0434\u0451\u0436\u043d\u0430 \u0438 \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u043e\u043c.<\/p>\n<h2>COBOL<\/h2>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/5dd\/377\/980\/5dd377980279ca55e49dc2a0d46f094c.jpg\" width=\"1200\" height=\"646\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/5dd\/377\/980\/5dd377980279ca55e49dc2a0d46f094c.jpg\" data-blurred=\"true\"\/><\/figure>\n<p>\u042f\u0437\u044b\u043a\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f COBOL \u0431\u043e\u043b\u0435\u0435 60 \u043b\u0435\u0442. \u041d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 \u044d\u0442\u043e, \u043e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0430\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f. \u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u0432 \u043f\u043e\u0434\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u043c \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u0444\u0435\u0440 \u0435\u0433\u043e \u0437\u0430\u043c\u0435\u043d\u0438\u043b\u0438 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u044f\u0437\u044b\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u041d\u043e \u0434\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0432 \u0440\u044f\u0434\u0435 \u0441\u0442\u0440\u0430\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u0430\u043f\u043f\u0430\u0440\u0430\u0442\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0441 \u041f\u041e \u043d\u0430 \u0431\u0430\u0437\u0435 \u044d\u0442\u043e\u0433\u043e \u042f\u041f. \u041e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u0438\u0445 \u0432 \u0421\u0428\u0410.<\/p>\n<p>\u0412 \u0430\u0432\u0433\u0443\u0441\u0442\u0435 2023 \u0433\u043e\u0434\u0430 \u044f\u0437\u044b\u043a \u0432\u044b\u0448\u0435\u043b \u043d\u0430 15 \u043c\u0435\u0441\u0442\u043e \u043f\u043e \u043f\u043e\u043f\u0443\u043b\u044f\u0440\u043d\u043e\u0441\u0442\u0438 \u0441\u0440\u0435\u0434\u0438 \u042f\u041f. \u0413\u043e\u0434 \u043d\u0430\u0437\u0430\u0434 \u043e\u043d \u043d\u0430\u0445\u043e\u0434\u0438\u043b\u0441\u044f \u043d\u0430 31 \u043f\u043e\u0437\u0438\u0446\u0438\u0438. \u0412\u043f\u0435\u0447\u0430\u0442\u043b\u044f\u044e\u0449\u0438\u0439 \u0440\u043e\u0441\u0442.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 COBOL:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>5738CB1 V2R1M0  910524 AS\/400 COBOL Source  SGAFP\/CBLLBL  RCHASA12  10\/24\/91 10:18:16  Page  3 STMT SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7.. IDENTFCN  S  COPYNAME                                                        CHG DATE   42  002300 88  END-OF-FILE              VALUE \"1\".             10\/23\/91   002400                                                                 10\/23\/91   43  002500 PROCEDURE DIVISION.                                             10\/23\/91   002600 MAIN-PARA.                                                      10\/23\/91   44  002700 OPEN INPUT VENDOR-FILE                                      10\/23\/91   002800      OUTPUT PRINTER-FILE.                               10\/23\/91   45  002900 PERFORM PRINT-LABELS UNTIL END-OF-FILE.                     10\/23\/91   46  003000 CLOSE VENDOR-FILE, PRINTER-FILE.                            10\/23\/91   003100     GOBACK.                                                     10\/23\/91   003200                                                                 10\/23\/91   47  003300 PRINT-LABELS.                                                   10\/23\/91   48  003400 READ VENDOR-FILE                                            10\/23\/91   49  003500     AT END SET END-OF-FILE TO TRUE.                         10\/23\/91   50  003600 IF NOT-END-OF-FILE                                          10\/23\/91   51  003700     MOVE CORRESPONDING VNDMSTR TO LABEL-O                   10\/23\/91         *   ** CORRESPONDING items for statement 51:         *   **     NAME         *   **     ADDR1         *   **     CITY         *   **     STATE         *   **     ZIPCD         *   ** End of CORRESPONDING items for statement 51   52  003800     WRITE PRINT-REC FORMAT IS \"LABEL\".                  10\/23\/91 * * * * *   E N D   O F   S O U R C E   * * * * *<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0432 2020 \u0433\u043e\u0434\u0443 \u044f\u0437\u044b\u043a \u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043f\u0435\u0440\u0435\u0436\u0438\u0432\u0430\u043b \u0441\u0432\u043e\u0439 \u0440\u0435\u043d\u0435\u0441\u0441\u0430\u043d\u0441. \u0414\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0430\u043c\u0435\u0440\u0438\u043a\u0430\u043d\u0441\u043a\u0430\u044f \u0441\u0438\u0441\u0442\u0435\u043c\u0430 \u0437\u0430\u043d\u044f\u0442\u043e\u0441\u0442\u0438 \u0432 2020 \u0433. \u0432\u0441\u0451 \u0435\u0449\u0451 \u0437\u0430\u0432\u0438\u0441\u0435\u043b\u0430 \u043e\u0442 COBOL (\u0441\u0435\u0439\u0447\u0430\u0441 \u0441\u0438\u0442\u0443\u0430\u0446\u0438\u044f \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u043c\u0435\u043d\u044f\u043b\u0430\u0441\u044c). \u0418 \u043f\u043e\u0441\u043b\u0435 \u0442\u043e\u0433\u043e \u043a\u0430\u043a \u0438\u0437-\u0437\u0430 \u043f\u0430\u043d\u0434\u0435\u043c\u0438\u0438 \u0432\u044b\u0440\u043e\u0441\u043b\u043e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0435\u0437\u0440\u0430\u0431\u043e\u0442\u043d\u044b\u0445, \u0438\u043d\u0444\u0440\u0430\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043d\u0435 \u0432\u044b\u0434\u0435\u0440\u0436\u0430\u043b\u0430 \u0432\u043e\u0437\u0440\u043e\u0441\u0448\u0435\u0439 \u043d\u0430\u0433\u0440\u0443\u0437\u043a\u0438. \u0412 \u0438\u0442\u043e\u0433\u0435 \u0432\u0441\u0451 \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u0441\u043f\u0435\u0448\u043d\u043e \u0447\u0438\u043d\u0438\u0442\u044c, \u043f\u0440\u0438\u0433\u043b\u0430\u0448\u0430\u044f \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u0438\u0441\u0442\u043e\u0432 \u043f\u043e COBOL \u0438 \u043f\u043e\u0434\u0433\u043e\u0442\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u043d\u043e\u0432\u044b\u0445.<\/p>\n<p>\u0411\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u044f \u0441\u0442\u0430\u0440\u0430\u043d\u0438\u044f\u043c IBM \u0438 \u0434\u0440\u0443\u0433\u0438\u0445 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0439 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u043a\u043e\u0434\u0430, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 COBOL, \u0432 2022 \u0433\u043e\u0434\u0443 \u0441\u043e\u0441\u0442\u0430\u0432\u0438\u043b\u043e \u0443\u0436\u0435 800 \u043c\u043b\u0440\u0434. \u041f\u0440\u0430\u0432\u0434\u0430, \u0432\u043f\u043e\u043b\u043d\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u0447\u0442\u043e \u0432 2017 \u0433\u043e\u0434\u0443 \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u043b\u0438 \u043d\u0435 \u0432\u0441\u0451, \u043d\u043e \u0444\u0430\u043a\u0442 \u043e\u0441\u0442\u0430\u0451\u0442\u0441\u044f \u0444\u0430\u043a\u0442\u043e\u043c \u2014 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u043a\u043e\u0434\u0430, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 COBOL, \u043e\u0433\u0440\u043e\u043c\u043d\u043e.<\/p>\n<p>\u0412\u0435\u0440\u043e\u044f\u0442\u043d\u043e, \u0447\u0435\u0440\u0435\u0437 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0432\u0441\u0451 \u0436\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0448\u0443\u0442 \u043d\u0430 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u044f\u0437\u044b\u043a\u0430\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043d\u043e \u043f\u043e\u043a\u0430 \u0447\u0442\u043e COBOL \u043e\u0441\u0442\u0430\u0451\u0442\u0441\u044f \u043d\u0430 \u043f\u043b\u0430\u0432\u0443.<\/p>\n<h2>APL<\/h2>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/aab\/a19\/dbf\/aaba19dbf723e8d42bd4188f53602a51.jpg\" width=\"1532\" height=\"1024\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/aab\/a19\/dbf\/aaba19dbf723e8d42bd4188f53602a51.jpg\" data-blurred=\"true\"\/><\/figure>\n<p>\u042d\u0442\u043e \u0430\u0431\u0431\u0440\u0435\u0432\u0438\u0430\u0442\u0443\u0440\u0430 \u043e\u0442 A Programming Language. \u042f\u0437\u044b\u043a \u0441\u043e\u0437\u0434\u0430\u043d \u0432 60-\u0445 \u0433\u043e\u0434\u0430\u0445 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0431\u043e\u043b\u044c\u0448\u0438\u0445 \u0431\u043b\u043e\u043a\u043e\u0432 \u0447\u0438\u0441\u0435\u043b. \u041e\u043d \u0445\u043e\u0440\u043e\u0448\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u043b \u043f\u043e\u0434 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445, \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0438 \u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0437\u0430\u0434\u0430\u0447, \u0430 \u043a\u043e\u0434 APL \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043a\u043e\u0440\u043e\u0442\u043a\u0438\u0439.<\/p>\n<details class=\"spoiler\">\n<summary>\u0412\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>L\u2190(L\u03b9':')\u2193L\u2190,L   \u235d drop To:  L\u2190LJUST VTOM',',L\u235d mat with one entry per row  S\u2190\u00af1++\/\u2227\\L\u2260'('   \u235d length of address  X\u21900\u2308\u2308\/S  L\u2190S\u233d(\u2212(\u2374L)+0,X)\u2191L\u235d align the (names)  A\u2190((1\u2191\u2374L),X)\u2191L   \u235d address  N\u21900 1\u2193DLTB(0,X)\u2193L\u235d names)  N\u2190,'\u237a',N  N[(N='_')\/\u03b9\u2374N]\u2190' '   \u235d change _ to blank  N\u21900 \u00af1\u2193RJUST VTOM N  \u235d names  S\u2190+\/\u2227\\' '\u2260\u233dN     \u235d length of last word in name<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u0423 \u044f\u0437\u044b\u043a\u0430 \u0432\u0435\u0441\u044c\u043c\u0430 \u043e\u0431\u0448\u0438\u0440\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0434\u043b\u044f \u0432\u043e\u0437\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u043d\u0430 \u0441\u043a\u0430\u043b\u044f\u0440\u044b, \u0432\u0435\u043a\u0442\u043e\u0440\u044b, \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430, \u043c\u043d\u043e\u0433\u043e\u043c\u0435\u0440\u043d\u044b\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u044b \u0438 \u0438\u0445 \u043a\u043e\u043c\u0431\u0438\u043d\u0430\u0446\u0438\u0438.<\/p>\n<p>\u0412\u043e\u0442 \u0447\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u0438\u043b \u043e \u044f\u0437\u044b\u043a\u0435 \u0435\u0433\u043e \u0430\u0432\u0442\u043e\u0440: \u00ab\u0418\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u044f \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u043b APL \u043a\u0430\u043a \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442 \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0438 \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f. \u0418 \u0445\u043e\u0442\u044f \u042f\u041f \u0433\u043b\u0430\u0432\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u044d\u043a\u0441\u043f\u043b\u0443\u0430\u0442\u0438\u0440\u043e\u0432\u0430\u043b\u0441\u044f \u0432 \u043a\u043e\u043c\u043c\u0435\u0440\u0447\u0435\u0441\u043a\u043e\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438, \u044f \u0432\u0441\u0451 \u0442\u0430\u043a \u0436\u0435 \u0441\u0447\u0438\u0442\u0430\u044e, \u0447\u0442\u043e \u0435\u0433\u043e \u0441\u0430\u043c\u043e\u0435 \u0432\u0430\u0436\u043d\u043e\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u043f\u0440\u043e\u0441\u0442\u0430\u044f, \u0442\u043e\u0447\u043d\u0430\u044f \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u043c\u0430\u044f \u0437\u0430\u043f\u0438\u0441\u044c (\u043d\u043e\u0442\u0430\u0446\u0438\u044f) \u0434\u043b\u044f \u0438\u0437\u0443\u0447\u0435\u043d\u0438\u044f \u0448\u0438\u0440\u043e\u043a\u043e\u0433\u043e \u0441\u043f\u0435\u043a\u0442\u0440\u0430 \u043f\u0440\u0435\u0434\u043c\u0435\u0442\u043e\u0432\u00bb.<\/p>\n<p>\u0423 APL \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432\u044b\u0441\u043e\u043a\u0438\u0439 \u043f\u043e\u0440\u043e\u0433 \u0432\u0445\u043e\u0434\u0430, \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u043e\u043d \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0441\u0432\u043e\u0439 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0414\u043b\u044f \u043d\u0435\u0433\u043e \u0434\u0430\u0436\u0435 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u043b\u0430\u0441\u044c \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0430\u044f \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u0430.<\/p>\n<figure class=\"full-width\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w780q1\/getpro\/habr\/upload_files\/002\/f18\/c2d\/002f18c2d1cb156d9ff7db6149519641.jpg\" width=\"800\" height=\"371\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/upload_files\/002\/f18\/c2d\/002f18c2d1cb156d9ff7db6149519641.jpg\" data-blurred=\"true\"\/><\/figure>\n<p>\u0421\u0435\u0439\u0447\u0430\u0441 \u043e\u043d \u0435\u0449\u0451 \u0436\u0438\u0432, \u043d\u043e \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0443\u0436\u0435 \u0440\u0435\u0434\u043a\u043e \u2014 \u0432 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u043b\u0443\u0447\u0430\u0435\u0432 \u0434\u043b\u044f \u0430\u043d\u0430\u043b\u0438\u0437\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0434\u0430\u043d\u043d\u044b\u0445, \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0444\u0438\u043d\u0430\u043d\u0441\u043e\u0432\u043e\u0439 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u044f\u0445. \u0412 \u043d\u0430\u0443\u0447\u043d\u043e\u0439 \u043e\u0442\u0440\u0430\u0441\u043b\u0438 \u2014 \u0434\u043b\u044f \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f \u0442\u0430\u043a\u0438\u043c \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044f\u043c, \u043a\u0430\u043a \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n<p>\u0412 \u0446\u0435\u043b\u043e\u043c, \u0430\u043a\u0442\u0443\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0441\u043e\u0444\u0442\u0430 \u043d\u0430 APL, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043a\u0442\u043e-\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442, \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u0432\u0441\u0451 \u043c\u0435\u043d\u044c\u0448\u0435, \u043d\u043e \u0432\u0441\u0451 \u0436\u0435 \u043e\u043d \u0435\u0441\u0442\u044c. \u041a\u0441\u0442\u0430\u0442\u0438, \u043f\u0440\u043e\u0432\u043e\u0434\u044f\u0442\u0441\u044f \u0438 \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0438 \u0432 \u0440\u0430\u043c\u043a\u0430\u0445 Association for Computer Machinery.<\/p>\n<h2>PL\/I<\/h2>\n<p>\u0415\u0449\u0451 \u043e\u0434\u0438\u043d \u043e\u0447\u0435\u043d\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u044b\u0439 \u043a\u043e\u0440\u043f\u043e\u0440\u0430\u0446\u0438\u0435\u0439 IBM \u0432 1960-\u0445 \u0433\u043e\u0434\u0430\u0445. \u041e\u043d \u0431\u044b\u043b \u0441\u043e\u0437\u0434\u0430\u043d \u043a\u0430\u043a \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u044b\u0439 \u042f\u041f, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0438\u043b Fortran \u0438 Comtran (\u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0441\u044f \u0432 \u0431\u0438\u0437\u043d\u0435\u0441\u0435). \u041f\u043e\u043b\u0443\u0447\u0438\u043b\u0441\u044f \u0432\u0435\u0441\u044c\u043c\u0430 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u044f\u0437\u044b\u043a \u0441 \u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e\u043c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 PL\/I:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>*********************************************************************** *                                                                     * *  PL\/I EXAMPLE                                                   * *  OBJECT IS TEMPORARY                                        * *                                                                     * *                                                                     * *                                                                     * ***********************************************************************  CRTPLN3: PROCEDURE OPTIONS (MAIN);                                 CSR00010                                                                         CSR00020  DCL                                                                    CSR00030   (                                                                     CSR00040   K INIT(1024),                    \/* ONE KILO-BYTE          *\/ CSR00050   PAGESIZE INIT(4096),             \/* 4K PAGE BOUNDARY       *\/ CSR00060   OFFSET INIT(0),                  \/* WINDOWS STARTS         *\/ CSR00070   WINDOW_SIZE INIT(20),            \/* WINDOW SIZE IN PAGES   *\/ CSR00080   NUM_WIN_ELEM INIT (20480),       \/* NUM OF 4-BYTE ELEMENTS *\/ CSR00090   OBJECT_SIZE INIT (60))           \/* CHOSEN OBJECT SIZE IN PGS  *\/ CSR00100   FIXED BIN(31);                                                        CSR00110                                                                         CSR00120  DCL                                                                    CSR00130  \/* 32767 IS UPPER LIMIT FOR ARRAY BOUND.                        *\/ CSR00140   S(32767) BIN(31) FIXED BASED(SP); \/* DEFINE WORD ALIGNED SPACE *\/ CSR00150                                                                         CSR00160  DCL SP PTR;                                                            CSR00170                                                                         CSR00180  DCL                                                                    CSR00190   (                                                                     CSR00200   ORIG,                            \/* START ADDRESS OF WINDOW*\/ CSR00210   AD, I,                           \/* TEMPORARY VARIABLES    *\/ CSR00220   HIGH_OFFSET,                     \/* SIZE OF OBJECT IN PAGES*\/ CSR00230   NEW_HI_OFFSET,                   \/* NEW MAX SIZE OF THE OBJECT *\/ CSR00240   RETURN_CODE,                     \/* RETURN CODE            *\/ CSR00250   REASON_CODE) FIXED BIN(31);      \/* REASON CODE            *\/ CSR00260                                                                         CSR00270  DCL                                                                    CSR00280   OBJECT_ID CHAR(8);               \/* IDENTIFYING TOKEN      *\/ CSR00290                                                                         CSR00300  \/********************************************************************\/ CSR00310                                                                         CSR00320  DCL CSRIDAC ENTRY(CHAR(5),        \/* OP_TYPE                *\/ CSR00330                CHAR(9),        \/* OBJECT_TYPE            *\/ CSR00340                CHAR(44),       \/* OBJECT_NAME            *\/ CSR00350                CHAR(3),        \/* SCROLL_AREA            *\/ CSR00360                CHAR(3),        \/* OBJECT_STATE           *\/ CSR00370                CHAR(6),        \/* ACCESS_MODE            *\/ CSR00380                FIXED BIN(31),  \/* OBJECT_SIZE            *\/ CSR00390                CHAR(8),        \/* OBJECT_ID              *\/ CSR00400                FIXED BIN(31),  \/* HIGH_OFFSET            *\/ CSR00410                FIXED BIN(31),  \/* RETURN_CODE            *\/ CSR00420                FIXED BIN(31) ) \/* REASON_CODE            *\/ CSR00430                OPTIONS(ASSEMBLER);                              CSR00440                                                                         CSR00450                                                                         CSR00460  DCL CSRVIEW ENTRY(CHAR(5),        \/* OP_TYPE                *\/ CSR00470                CHAR(8),        \/* OBJECT_ID              *\/ CSR00480                FIXED BIN(31),  \/* OFFSET                 *\/ CSR00490                FIXED BIN(31),  \/* WINDOW_SIZE            *\/ CSR00500                FIXED BIN(31),  \/* WINDOW_NAME            *\/ CSR00510                CHAR(6),        \/* USAGE                  *\/ CSR00520                CHAR(7),        \/* DISPOSITION            *\/ CSR00530                FIXED BIN(31),  \/* RETURN_CODE            *\/ CSR00540                FIXED BIN(31) ) \/* REASON_CODE            *\/ CSR00550                OPTIONS(ASSEMBLER);                              CSR00560                                                                         CSR00570                                                                         CSR00580  DCL CSRSCOT ENTRY(CHAR(8),        \/* OBJECT_ID              *\/ CSR00590                FIXED BIN(31),  \/* OFFSET                 *\/ CSR00600                FIXED BIN(31),  \/* SPAN                   *\/ CSR00610                FIXED BIN(31),  \/* RETURN_CODE            *\/ CSR00620                FIXED BIN(31) ) \/* REASON_CODE            *\/ CSR00630                OPTIONS(ASSEMBLER);                              CSR00640                                                                         CSR00650                                                                         CSR00660  DCL CSRSAVE ENTRY(CHAR(8),        \/* OBJECT_ID              *\/ CSR00670                FIXED BIN(31),  \/* OFFSET                 *\/ CSR00680                FIXED BIN(31),  \/* SPAN                   *\/ CSR00690                FIXED BIN(31),  \/* NEW_HI_OFFSET          *\/ CSR00700                FIXED BIN(31),  \/* RETURN_CODE            *\/ CSR00710                FIXED BIN(31) ) \/* REASON_CODE            *\/ CSR00720                OPTIONS(ASSEMBLER);                              CSR00730                                                                         CSR00740                                                                         CSR00750  DCL CSRREFR ENTRY(CHAR(8),        \/* OBJECT_ID              *\/ CSR00760                FIXED BIN(31),  \/* OFFSET                 *\/ CSR00770                FIXED BIN(31),  \/* SPAN                   *\/ CSR00780                FIXED BIN(31),  \/* RETURN_CODE            *\/ CSR00790                FIXED BIN(31) ) \/* REASON_CODE            *\/ CSR00800                OPTIONS(ASSEMBLER);                              CSR00810                                                                         CSR00820  \/********************************************************************\/ CSR00830                                                                         CSR00840                                                                         CSR00850   PUT SKIP LIST                                                         CSR00860       ('&lt;&lt; BEGIN DATA WINDOWING SERVICES INTERFACE VALIDATION >>'); CSR00870   PUT SKIP LIST (' ');                                                  CSR00880                                                                         CSR00890   CALL                                                                  CSR00900   CSRIDAC ('BEGIN',                \/* SET UP ACCESS TO A HIPER-  *\/ CSR00910        'TEMPSPACE',            \/* SPACE OBJECT           *\/ CSR00920        'MY FIRST HIPERSPACE',                                   CSR00930        'YES',                                                       CSR00940        'NEW',                                                       CSR00950        'UPDATE',                                                    CSR00960        OBJECT_SIZE,                                                 CSR00970        OBJECT_ID,                                                   CSR00980        HIGH_OFFSET,                                                 CSR00990        RETURN_CODE,                                                 CSR01000        REASON_CODE);                                                CSR01010                                                                         CSR01020   ALLOC S;                         \/* ALLOCATE SPACE         *\/ CSR01030   AD = UNSPEC(SP);                 \/* GET ADDRESS OF SPACE   *\/ CSR01040   ORIG = MOD(AD,PAGESIZE);         \/* SEE WHERE SPACE IS IN PAGE *\/ CSR01050   IF ORIG \u00ac= 0 THEN                \/* IF NOT ON PAGE BOUNDARY*\/ CSR01060 ORIG = (PAGESIZE-ORIG) \/ 4;    \/* THEN LOCATE PAGE BOUNDARY  *\/ CSR01070   ORIG = ORIG + 1;                                                      CSR01080                                                                         CSR01090   DO  I = 1 TO NUM_WIN_ELEM;       \/* PUT SOME DATA INTO WINDOW  *\/ CSR01100 S(I+ORIG-1) = 99;              \/* AREA                   *\/ CSR01110   END;                                                                  CSR01120                                                                         CSR01130   CALL                                                                  CSR01140   CSRVIEW ('BEGIN',                \/* NOW VIEW DATA IN FIRST *\/ CSR01150        OBJECT_ID,              \/* WINDOW                 *\/ CSR01160        OFFSET,                                                      CSR01170        WINDOW_SIZE,                                                 CSR01180        S(ORIG),                                                     CSR01190        'RANDOM',                                                    CSR01200        'REPLACE',                                                   CSR01210        RETURN_CODE,                                                 CSR01220        REASON_CODE);                                                CSR01230                                                                         CSR01240   DO  I = 1 TO NUM_WIN_ELEM;       \/* CALCULATE VALUE IN 1ST *\/ CSR01250 S(I+ORIG-1) = I+1;             \/* WINDOW                 *\/ CSR01260   END;                                                                  CSR01270                                                                         CSR01280   CALL                                                                  CSR01290   CSRSCOT( OBJECT_ID,              \/* CAPTURE THE VIEW IN 1ST   *\/  CSR01300        OFFSET,                 \/* WINDOW                *\/  CSR01310        WINDOW_SIZE,                                                 CSR01320        RETURN_CODE,                                                 CSR01330        REASON_CODE);                                                CSR01340                                                                         CSR01350   CALL                                                                  CSR01360   CSRVIEW ('END ',                 \/* END THE VIEW IN 1ST WINDOW *\/ CSR01370        OBJECT_ID,                                                   CSR01380        OFFSET,                                                      CSR01390        WINDOW_SIZE,                                                 CSR01400        S(ORIG),                                                     CSR01410        'RANDOM',                                                    CSR01420        'RETAIN ',                                                   CSR01430        RETURN_CODE,                                                 CSR01440        REASON_CODE);                                                CSR01450                                                                         CSR01460   CALL                                                                  CSR01470   CSRVIEW ('BEGIN',                \/* NOW VIEW OTHER DATA IN *\/ CSR01480        OBJECT_ID,              \/* 2ND WINDOW             *\/ CSR01490        OFFSET+WINDOW_SIZE,                                          CSR01500        WINDOW_SIZE,                                                 CSR01510        S(ORIG),                                                     CSR01520        'RANDOM',                                                    CSR01530        'REPLACE',                                                   CSR01540        RETURN_CODE,                                                 CSR01550        REASON_CODE);                                                CSR01560                                                                         CSR01570   DO  I = 1 TO NUM_WIN_ELEM;       \/* CALCULATE NEW VALUE IN *\/ CSR01580 S(I+ORIG-1) = I-101;           \/* WINDOW                 *\/ CSR01590   END;                                                                  CSR01600                                                                         CSR01610   CALL                                                                  CSR01620   CSRSCOT (OBJECT_ID,                                                   CSR01630        OFFSET+WINDOW_SIZE,                                          CSR01640        WINDOW_SIZE,                                                 CSR01650        RETURN_CODE,                                                 CSR01670        REASON_CODE);                                                CSR01680                                                                         CSR01690   CALL                                                                  CSR01700   CSRVIEW ('END ',                 \/* END THE CURRENT VIEW IN*\/ CSR01710        OBJECT_ID,              \/* WINDOW                 *\/ CSR01720        OFFSET+WINDOW_SIZE,                                          CSR01730        WINDOW_SIZE,                                                 CSR01740        S(ORIG),                                                     CSR01750        'RANDOM',                                                    CSR01760        'RETAIN ',                                                   CSR01770        RETURN_CODE,                                                 CSR01780        REASON_CODE);                                                CSR01790                                                                         CSR01800   CALL                                                                  CSR01810   CSRVIEW ('BEGIN',                \/* NOW GO BACK TO THE VIEW IN *\/ CSR01820        OBJECT_ID,              \/* THE 1ST WINDOW         *\/ CSR01830        OFFSET,                                                      CSR01840        WINDOW_SIZE,                                                 CSR01850        S(ORIG),                                                     CSR01860        'RANDOM',                                                    CSR01870        'REPLACE',                                                   CSR01880        RETURN_CODE,                                                 CSR01890        REASON_CODE);                                                CSR01900                                                                         CSR01910   CALL                                                                  CSR01920   CSRREFR (OBJECT_ID,              \/* REFRESH THE DATA IN 1ST   *\/  CSR01930        OFFSET,                 \/* WINDOW                *\/  CSR01940        WINDOW_SIZE,                                                 CSR01950        RETURN_CODE,                                                 CSR01960        REASON_CODE);                                                CSR01970                                                                         CSR01980   CALL                                                                  CSR01990   CSRVIEW ('END ',                 \/* END THE VIEW IN 1ST WINDOW *\/ CSR02000        OBJECT_ID,                                                   CSR02010        OFFSET,                                                      CSR02020        WINDOW_SIZE,                                                 CSR02030        S(ORIG),                                                     CSR02040        'RANDOM',                                                    CSR02050        'RETAIN ',                                                   CSR02060        RETURN_CODE,                                                 CSR02070        REASON_CODE);                                                CSR02080                                                                         CSR02090   CALL                                                                  CSR02100   CSRIDAC ('END  ',                \/* TERMINATE ACCESS TO THE*\/ CSR02110        'TEMPSPACE',            \/* HIPERSPACE OBJECT      *\/ CSR02120        'MY FIRST HIPERSPACE ENDS HERE ',                        CSR02130        'YES',                                                       CSR02140        'NEW',                                                       CSR02150        'UPDATE',                                                    CSR02160        WINDOW_SIZE,                                                 CSR02170        OBJECT_ID,                                                   CSR02180        HIGH_OFFSET,                                                 CSR02190        RETURN_CODE,                                                 CSR02200        REASON_CODE);                                                CSR02210                                                                         CSR02220   FREE S;                                                               CSR02230  END CRTPLN3;                                                           CSR02260 *********************************************************************** *                                                                     * *                                                                     * *  JCL TO COMPILE AND LINKEDIT PL\/I PROGRAM.                  * *                                                                     * *                                                                     * *                                                                     * *********************************************************************** \/\/PLIJOB   JOB                                                          00010007 \/\/*                                                                     00041001 \/\/*  PL\/I Compile and Linkedit                                          00042001 \/\/*                                                                     00043001 \/\/*  Change all CRTPLNx to CRTPLNy                                  00044001 \/\/*                                                                     00045001 \/\/GO   EXEC PLIXCL                                                  00050000 \/\/PLI.SYSIN DD DSN=WINDOW.XAMPLE.LIB(CRTPLN3),DISP=SHR              00060008 \/\/LKED.SYSLMOD DD DSN=WINDOW.USER.LOAD,UNIT=3380,VOL=SER=VM2TSO,    00070000 \/\/ DISP=SHR                                                             00080000 \/\/LKED.SYSIN DD *                                                       00090000   LIBRARY  IN(CSRSCOT,CSRSAVE,CSRREFR,CSRSAVE,CSRVIEW,CSRIDAC)      00100001   NAME CRTPLN3(R)                                                       00110008 \/*                                                                      00120000 \/\/*                                                                     00121001 \/\/* SYS1.CSSLIB is source of CSR stubs                          00130001 \/\/*                                                                     00190000 \/\/LKED.IN DD DSN=SYS1.CSSLIB,DISP=SHR                           00200000 *********************************************************************** *                                                                     * *                                                                     * *  JCL TO EXECUTE.                                                * *                                                                     * *                                                                     * *                                                                     * *********************************************************************** \/\/PLIRUN   JOB MSGLEVEL=(1,1)                                           00010000 \/\/*                                                                     00011001 \/\/*   EXECUTE A PL\/I TESTCASE                                           00012001 \/\/*                                                                     00013001 \/\/GO   EXEC PGM=CRTPLN3                                             00020000 \/\/STEPLIB  DD  DSN=WINDOW.USER.LOAD,DISP=SHR,                       00030000 \/\/ UNIT=3380,VOL=SER=VM2TSO                                             00040000 \/\/SYSLIB   DD  DSN=CEE.SCEERUN,DISP=SHR                             00050000 \/\/SYSABEND DD SYSOUT=*                                                  00070000 \/\/SYSLOUT  DD  SYSOUT=*                                                 00080000 \/\/SYSPRINT DD  SYSOUT=*                                                 00090000<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u041d\u0430 \u0431\u0430\u0437\u0435 \u044d\u0442\u043e\u0433\u043e \u044f\u0437\u044b\u043a\u0430 \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0438\u0437 \u043e\u0442\u0440\u0430\u0441\u043b\u0438 \u0444\u0438\u043d\u0430\u043d\u0441\u043e\u0432, \u0431\u0430\u043d\u043a\u0438\u043d\u0433\u0430, \u0441\u0442\u0440\u0430\u0445\u043e\u0432\u0430\u043d\u0438\u044f. \u0415\u0433\u043e \u0442\u0430\u043a\u0436\u0435 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u044e\u0442 \u0438 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u0440\u0430\u0432\u0438\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u0438.<\/p>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n<p><!----><!----><\/div>\n<p><!----><\/p>\n<div class=\"tm-article-poll-container\"><!--[--><\/p>\n<div class=\"tm-article-poll tm-article-poll_variant-bordered\">\n<div class=\"tm-notice tm-notice_positive tm-article-poll__notice\"><!----><\/p>\n<div class=\"tm-notice__inner\"><!----><\/p>\n<div class=\"tm-notice__content\" data-test-id=\"notice-content\"><!--[--><span>\u0422\u043e\u043b\u044c\u043a\u043e \u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0438 \u043c\u043e\u0433\u0443\u0442 \u0443\u0447\u0430\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c \u0432 \u043e\u043f\u0440\u043e\u0441\u0435. <a rel=\"nofollow\" href=\"\/kek\/v1\/auth\/habrahabr\/?back=\/ru\/companies\/ru_mts\/articles\/794300\/&#038;hl=ru\">\u0412\u043e\u0439\u0434\u0438\u0442\u0435<\/a>, \u043f\u043e\u0436\u0430\u043b\u0443\u0439\u0441\u0442\u0430.<\/span><!--]--><\/div>\n<\/div>\n<\/div>\n<p><!--[--><\/p>\n<div class=\"tm-article-poll__header\">\u0421\u0442\u0430\u043b\u043a\u0438\u0432\u0430\u043b\u0438\u0441\u044c \u043b\u0438 \u0432\u044b \u0441 \u043e\u0434\u043d\u0438\u043c \u0438\u0437 \u044d\u0442\u0438\u0445 \u042f\u041f \u0437\u0430 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0435 \u043f\u044f\u0442\u044c \u043b\u0435\u0442?<\/div>\n<div class=\"tm-article-poll__answers\"><!--[--><\/p>\n<div class=\"tm-article-poll__answer\">\n<div class=\"tm-article-poll__answer-data\"><span class=\"tm-article-poll__answer-percent\">3.64% <\/span><span class=\"tm-article-poll__answer-label\">\u0414\u0430, \u043f\u0440\u0438\u0447\u0451\u043c \u0441 \u043e\u0434\u043d\u0438\u043c \u0438\u0437 \u043d\u0438\u0445 \u044f \u0440\u0430\u0431\u043e\u0442\u0430\u044e \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440.<\/span><span class=\"tm-article-poll__answer-votes\">22<\/span><\/div>\n<div class=\"tm-article-poll__answer-bar\">\n<div class=\"tm-article-poll__answer-progress\" style=\"width: 3.64%\"><\/div>\n<\/div>\n<\/div>\n<div class=\"tm-article-poll__answer\">\n<div class=\"tm-article-poll__answer-data\"><span class=\"tm-article-poll__answer-percent\">19.67% <\/span><span class=\"tm-article-poll__answer-label\">\u0414\u0430, \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u043b\u043e\u0441\u044c.<\/span><span class=\"tm-article-poll__answer-votes\">119<\/span><\/div>\n<div class=\"tm-article-poll__answer-bar\">\n<div class=\"tm-article-poll__answer-progress\" style=\"width: 19.67%\"><\/div>\n<\/div>\n<\/div>\n<div class=\"tm-article-poll__answer\">\n<div class=\"tm-article-poll__answer-data\"><span class=\"tm-article-poll__answer-percent tm-article-poll__answer-percent_winning\">76.69% <\/span><span class=\"tm-article-poll__answer-label\">\u041d\u0435\u0442, \u0432\u043e\u043e\u0431\u0449\u0435 \u043d\u0438\u043a\u043e\u0433\u0434\u0430, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u0438 \u043d\u0435 \u0441\u0442\u043e\u043b\u043a\u043d\u0443\u0441\u044c \u0443\u0436\u0435.<\/span><span class=\"tm-article-poll__answer-votes\">464<\/span><\/div>\n<div class=\"tm-article-poll__answer-bar\">\n<div class=\"tm-article-poll__answer-progress tm-article-poll__answer-progress_winning\" style=\"width: 76.69%\"><\/div>\n<\/div>\n<\/div>\n<p><!--]--><\/div>\n<div class=\"tm-article-poll__stats\"> \u041f\u0440\u043e\u0433\u043e\u043b\u043e\u0441\u043e\u0432\u0430\u043b\u0438 605 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439.   \u0412\u043e\u0437\u0434\u0435\u0440\u0436\u0430\u043b\u0438\u0441\u044c 57 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439. <\/div>\n<p><!--]--><\/div>\n<p><!--]--><\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/articles\/794300\/\"> https:\/\/habr.com\/ru\/articles\/794300\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<figure class=\"full-width\"><\/figure>\n<p>\u041d\u0435 \u0442\u0430\u043a \u0434\u0430\u0432\u043d\u043e<a href=\"https:\/\/habr.com\/ru\/companies\/ru_mts\/articles\/758434\/\"> \u043c\u044b \u043f\u0438\u0441\u0430\u043b\u0438<\/a> \u043f\u0440\u043e \u044f\u0437\u044b\u043a COBOL, \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u0443\u0436\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 60 \u043b\u0435\u0442. \u041e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0430\u043a\u0442\u0443\u0430\u043b\u0435\u043d, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043d\u0430 \u043d\u0451\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u043d\u0435\u043c\u0430\u043b\u043e \u0441\u0438\u0441\u0442\u0435\u043c \u0444\u0438\u043d\u0430\u043d\u0441\u043e\u0432\u044b\u0445 \u0438 \u0431\u0430\u043d\u043a\u043e\u0432\u0441\u043a\u0438\u0445 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u0439. \u041d\u043e \u0435\u0441\u0442\u044c \u0438 \u0434\u0440\u0443\u0433\u0438\u0435 \u0441\u0442\u0430\u0440\u044b\u0435 \u042f\u041f, \u0432\u0441\u0451 \u0435\u0449\u0451 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c\u044b\u0435 \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0442\u0440\u0430\u0441\u043b\u044f\u0445. \u041e \u043d\u0438\u0445 \u0441\u0435\u0433\u043e\u0434\u043d\u044f \u0438 \u0433\u043e\u0432\u043e\u0440\u0438\u043c, \u043d\u0435 \u043e\u0431\u043e\u0439\u0434\u044f \u0438 COBOL, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0435 \u0441\u043e\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f \u0443\u0445\u043e\u0434\u0438\u0442\u044c \u0441 \u0440\u044b\u043d\u043a\u0430. \u041f\u043e\u0434\u0440\u043e\u0431\u043d\u043e\u0441\u0442\u0438 \u2014 \u043f\u043e\u0434 \u043a\u0430\u0442\u043e\u043c.<\/p>\n<h2>Fortran<\/h2>\n<figure class=\"full-width\"><\/figure>\n<p>\u0412 \u043d\u0430\u0447\u0430\u043b\u0435 2024 \u0433\u043e\u0434\u0430 \u044d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u043e\u043a\u0430\u0437\u0430\u043b\u0441\u044f \u043d\u0430 12 \u043c\u0435\u0441\u0442\u0435 \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 TIOBE. \u0418 \u0432\u0435\u0434\u044c \u0435\u043c\u0443 67 \u043b\u0435\u0442, \u0432\u0434\u0443\u043c\u0430\u0439\u0442\u0435\u0441\u044c. \u0412 \u043f\u0440\u043e\u0448\u043b\u043e\u043c \u0433\u043e\u0434\u0443 \u043e\u043d \u043d\u0430\u0445\u043e\u0434\u0438\u043b\u0441\u044f \u043d\u0430 27 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0438 \u0432\u0441\u0435\u0433\u043e \u0437\u0430 \u0433\u043e\u0434 \u0432\u044b\u0448\u0435\u043b \u043f\u043e\u0447\u0442\u0438 \u0447\u0442\u043e \u0432 \u043f\u0435\u0440\u0432\u0443\u044e \u0434\u0435\u0441\u044f\u0442\u043a\u0443. \u041f\u043e\u0437\u0430\u0434\u0438 \u043d\u0435\u043e\u0436\u0438\u0434\u0430\u043d\u043d\u043e \u043e\u043a\u0430\u0437\u0430\u043b\u0438\u0441\u044c Rust, Ruby \u0438 Kotlin.<\/p>\n<p>\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043d\u0435 \u0441\u0442\u043e\u0438\u0442 \u0434\u0443\u043c\u0430\u0442\u044c, \u0447\u0442\u043e \u043e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0442\u0430\u043a\u043e\u0439 \u0436\u0435, \u043a\u0430\u043a\u0438\u043c \u0431\u044b\u043b \u0432 \u043c\u043e\u043c\u0435\u043d\u0442 \u0441\u0432\u043e\u0435\u0433\u043e \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f (\u043f\u0435\u0440\u0432\u0443\u044e \u0432\u0435\u0440\u0441\u0438\u044e \u0432\u044b\u043f\u0443\u0441\u0442\u0438\u043b\u0430 IBM \u0432 1957 \u0433\u043e\u0434\u0443). \u0412 2023 \u0433., \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e\u044f\u0432\u0438\u043b\u0441\u044f \u043d\u043e\u0432\u044b\u0439 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442. \u0412\u043e\u0442 \u0434\u043e\u0441\u0442\u043e\u0438\u043d\u0441\u0442\u0432\u0430 \u044f\u0437\u044b\u043a\u0430:<\/p>\n<ul>\n<li>\n<p>\u0432\u044b\u0441\u043e\u043a\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c<\/p>\n<\/li>\n<li>\n<p>\u0441\u0442\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0438 \u0441\u0438\u043b\u044c\u043d\u0430\u044f \u0442\u0438\u043f\u0438\u0437\u0430\u0446\u0438\u044f<\/p>\n<\/li>\n<li>\n<p>\u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u0430 \u0434\u043b\u044f \u0438\u0437\u0443\u0447\u0435\u043d\u0438\u044f \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f<\/p>\n<\/li>\n<li>\n<p>\u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c<\/p>\n<\/li>\n<li>\n<p>\u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u0438\u0437\u043c<\/p>\n<\/li>\n<li>\n<p>\u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0441\u043d\u044b\u0435 \u0447\u0438\u0441\u043b\u0430 \u043a\u0430\u043a \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u0442\u0438\u043f \u0434\u0430\u043d\u043d\u044b\u0445 \u2014 \u044d\u0442\u043e \u043a\u0440\u0430\u0439\u043d\u0435 \u0432\u0430\u0436\u043d\u043e \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0451\u0442\u043e\u0432 \u0432 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0440\u0430\u0434\u0438\u043e\u0444\u0438\u0437\u0438\u043a\u0438<\/p>\n<\/li>\n<li>\n<p> \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a \u0434\u043b\u044f \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u044b\u0445 \u0440\u0430\u0441\u0447\u0451\u0442\u043e\u0432,<a href=\"https:\/\/en.wikipedia.org\/wiki\/NAG_Numerical_Library\"> \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 NAG<\/a><\/p>\n<\/li>\n<\/ul>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 \u044d\u0442\u043e\u043c \u044f\u0437\u044b\u043a\u0435:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>! Print matrix A to screen subroutine print_matrix(n,m,A)   implicit none   integer, intent(in) :: n   integer, intent(in) :: m   real, intent(in) :: A(n, m)     integer :: i     do i = 1, n print *, A(i, 1:m)   end do   end subroutine print_matrix<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u0414\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0432 \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u0432\u044b\u0441\u043e\u043a\u043e\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439, \u0432 \u0444\u0438\u0437\u0438\u043a\u0435, \u0430\u0441\u0442\u0440\u043e\u043d\u043e\u043c\u0438\u0438 \u0438 \u043a\u043b\u0438\u043c\u0430\u0442\u043e\u043b\u043e\u0433\u0438\u0438.<\/p>\n<p>\u041d\u0430 \u043d\u0451\u043c \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u044b \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u0433\u043e\u0434\u044b \u0438 \u043a\u043b\u0438\u043c\u0430\u0442\u0430, \u0435\u0441\u043b\u0438 \u0431\u0440\u0430\u0442\u044c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u0440. \u042d\u0442\u043e \u043c\u043e\u0434\u0435\u043b\u0438 \u041c\u0435\u0436\u043f\u0440\u0430\u0432\u0438\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0439 \u0433\u0440\u0443\u043f\u043f\u044b \u044d\u043a\u0441\u043f\u0435\u0440\u0442\u043e\u0432 \u043f\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044e \u043a\u043b\u0438\u043c\u0430\u0442\u0430 (IPCC). \u0422\u0430\u043a\u0436\u0435 \u044f\u0437\u044b\u043a \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u0432\u044f\u0437\u0430\u043d\u044b \u0441 \u0445\u0438\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u043c\u0438 \u0438 \u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438\u043c\u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c\u0438 \u043c\u043e\u043b\u0435\u043a\u0443\u043b. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043e\u043d \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043f\u0430\u043a\u0435\u0442\u043e\u0432 \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u0445\u0438\u043c\u0438\u0438 \u0438 \u0431\u0438\u043e\u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u043a\u0435. \u041f\u0440\u0438\u043c\u0435\u0440 \u2014 GROMACS \u0434\u043b\u044f \u043c\u043e\u043b\u0435\u043a\u0443\u043b\u044f\u0440\u043d\u043e\u0439 \u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0438.<\/p>\n<h2>ADA<\/h2>\n<p>\u042d\u0442\u043e\u0442 \u044f\u0437\u044b\u043a \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u043d \u0432 \u043a\u043e\u043d\u0446\u0435 1970-\u0445, \u043f\u0440\u0438\u0447\u0451\u043c \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u0442\u0430\u043a, \u0430 \u043f\u043e \u0437\u0430\u043a\u0430\u0437\u0443 \u041c\u0438\u043d\u0438\u0441\u0442\u0435\u0440\u0441\u0442\u0432\u0430 \u043e\u0431\u043e\u0440\u043e\u043d\u044b \u0421\u0428\u0410. \u0412\u0435\u0434\u043e\u043c\u0441\u0442\u0432\u0443 \u043e\u043d \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u043b\u0441\u044f \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0440\u0430\u0437\u043b\u0438\u0447\u043d\u043e\u0433\u043e \u041f\u041e, \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u0434\u043b\u044f \u0432\u043e\u0435\u043d\u043d\u044b\u0445 \u0438 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0441\u0438\u0441\u0442\u0435\u043c. \u0422\u0430\u043a\u0436\u0435 \u043e\u043d \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0441\u044f \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043c\u0435\u0434\u0438\u0446\u0438\u043d\u0441\u043a\u0438\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439, \u0434\u0430 \u0438 \u0432\u0441\u0435\u0433\u043e, \u0433\u0434\u0435 \u0442\u0440\u0435\u0431\u043e\u0432\u0430\u043b\u0438\u0441\u044c \u043d\u0430\u0434\u0451\u0436\u043d\u043e\u0441\u0442\u044c \u0438 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u044c.<\/p>\n<p>\u0415\u0433\u043e \u0434\u043e\u0441\u0442\u043e\u0438\u043d\u0441\u0442\u0432\u043e \u0432 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0435 \u043a\u0430\u043a \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e, \u0442\u0430\u043a \u0438 \u043d\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u041e\u043d \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442 \u043a\u0430\u043a \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0432 \u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0441\u043d\u044b\u0445 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0445, \u0442\u0430\u043a \u0438 \u0434\u043b\u044f \u043d\u0438\u0437\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u0439 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438. \u042f\u0437\u044b\u043a \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043e\u0431\u043d\u0430\u0440\u0443\u0436\u0438\u0432\u0430\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0438 \u0435\u0449\u0451 \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438, \u0430 \u043d\u0435 \u0443\u0436\u0435 \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u0432 Ada \u043f\u0440\u0435\u0438\u043c\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0441\u043b\u043e\u0432\u0430, \u0430 \u043d\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044b. \u0412 \u0446\u0435\u043b\u043e\u043c \u044d\u0442\u043e \u0441\u043d\u0438\u0436\u0430\u0435\u0442 \u0440\u0438\u0441\u043a \u043e\u0448\u0438\u0431\u043e\u043a \u043f\u0440\u0438 \u043a\u043e\u0434\u0438\u043d\u0433\u0435.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 ADA:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>h Interfaces; use Interfaces; with System.Machine_Code; use System.Machine_Code; with Ada.Text_IO;   procedure Asm_Test is Left, Right : Unsigned_32; begin Left := 1; Right := 2;   Asm(\"addl %1, %2\",     Inputs => (Unsigned_32'Asm_Input (\"a\", Left),                        Unsigned_32'Asm_Input (\"b\", Right)),     Outputs => Unsigned_32'Asm_Output (\"=b\", Right));   Ada.Text_IO.Put_Line (Unsigned_32'Image (Right)); end Asm_Test;<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u041d\u0435 \u0441\u043a\u0430\u0437\u0430\u0442\u044c, \u0447\u0442\u043e\u0431\u044b \u0441\u0435\u0439\u0447\u0430\u0441 \u044f\u0437\u044b\u043a \u0431\u044b\u043b \u043a\u0440\u0430\u0439\u043d\u0435 \u043f\u043e\u043f\u0443\u043b\u044f\u0440\u043d\u044b\u043c, \u043d\u043e \u043a\u043e\u0435-\u0433\u0434\u0435 \u0435\u0433\u043e \u0435\u0449\u0451 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0432\u0441\u0451 \u0432 \u0442\u043e\u0439 \u0436\u0435 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0442\u0440\u0430\u0441\u043b\u0438 \u2014 \u0434\u043b\u044f \u0441\u0438\u0441\u0442\u0435\u043c \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u0451\u0442\u0430\u043c\u0438 \u0438 \u0441\u043f\u0443\u0442\u043d\u0438\u043a\u0430\u043c\u0438. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043d\u0430 \u043d\u0451\u043c \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u0435\u0434\u0438\u0446\u0438\u043d\u0441\u043a\u0438\u0435 \u043f\u043b\u0430\u0442\u0444\u043e\u0440\u043c\u044b, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0436\u0435\u043b\u0435\u0437\u043d\u044b\u043c\u0438 \u0434\u043e\u0440\u043e\u0433\u0430\u043c\u0438.<\/p>\n<p>\u041a \u0441\u043b\u043e\u0432\u0443, \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432\u0435\u0440\u0441\u0438\u044f \u044f\u0437\u044b\u043a\u0430 (\u0432 \u043e\u0442\u043b\u0438\u0447\u0438\u0435 \u043e\u0442 \u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0439) \u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0439. \u041a\u0430\u043a \u0438 \u043f\u0440\u0435\u0434\u0442\u0435\u0447\u0430, \u043e\u043d\u0430 \u043d\u0430\u0434\u0451\u0436\u043d\u0430 \u0438 \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0441\u0442\u044b\u043c \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u043e\u043c.<\/p>\n<h2>COBOL<\/h2>\n<figure class=\"full-width\"><\/figure>\n<p>\u042f\u0437\u044b\u043a\u0443 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f COBOL \u0431\u043e\u043b\u0435\u0435 60 \u043b\u0435\u0442. \u041d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 \u044d\u0442\u043e, \u043e\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0430\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f. \u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u0432 \u043f\u043e\u0434\u0430\u0432\u043b\u044f\u044e\u0449\u0435\u043c \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u0444\u0435\u0440 \u0435\u0433\u043e \u0437\u0430\u043c\u0435\u043d\u0438\u043b\u0438 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u044f\u0437\u044b\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f. \u041d\u043e \u0434\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0432 \u0440\u044f\u0434\u0435 \u0441\u0442\u0440\u0430\u043d \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u0430\u043f\u043f\u0430\u0440\u0430\u0442\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0441 \u041f\u041e \u043d\u0430 \u0431\u0430\u0437\u0435 \u044d\u0442\u043e\u0433\u043e \u042f\u041f. \u041e\u0441\u043e\u0431\u0435\u043d\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u0438\u0445 \u0432 \u0421\u0428\u0410.<\/p>\n<p>\u0412 \u0430\u0432\u0433\u0443\u0441\u0442\u0435 2023 \u0433\u043e\u0434\u0430 \u044f\u0437\u044b\u043a \u0432\u044b\u0448\u0435\u043b \u043d\u0430 15 \u043c\u0435\u0441\u0442\u043e \u043f\u043e \u043f\u043e\u043f\u0443\u043b\u044f\u0440\u043d\u043e\u0441\u0442\u0438 \u0441\u0440\u0435\u0434\u0438 \u042f\u041f. \u0413\u043e\u0434 \u043d\u0430\u0437\u0430\u0434 \u043e\u043d \u043d\u0430\u0445\u043e\u0434\u0438\u043b\u0441\u044f \u043d\u0430 31 \u043f\u043e\u0437\u0438\u0446\u0438\u0438. \u0412\u043f\u0435\u0447\u0430\u0442\u043b\u044f\u044e\u0449\u0438\u0439 \u0440\u043e\u0441\u0442.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 COBOL:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>5738CB1 V2R1M0  910524 AS\/400 COBOL Source  SGAFP\/CBLLBL  RCHASA12  10\/24\/91 10:18:16  Page  3 STMT SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7.. IDENTFCN  S  COPYNAME                                                        CHG DATE   42  002300 88  END-OF-FILE              VALUE \"1\".             10\/23\/91   002400                                                                 10\/23\/91   43  002500 PROCEDURE DIVISION.                                             10\/23\/91   002600 MAIN-PARA.                                                      10\/23\/91   44  002700 OPEN INPUT VENDOR-FILE                                      10\/23\/91   002800      OUTPUT PRINTER-FILE.                               10\/23\/91   45  002900 PERFORM PRINT-LABELS UNTIL END-OF-FILE.                     10\/23\/91   46  003000 CLOSE VENDOR-FILE, PRINTER-FILE.                            10\/23\/91   003100     GOBACK.                                                     10\/23\/91   003200                                                                 10\/23\/91   47  003300 PRINT-LABELS.                                                   10\/23\/91   48  003400 READ VENDOR-FILE                                            10\/23\/91   49  003500     AT END SET END-OF-FILE TO TRUE.                         10\/23\/91   50  003600 IF NOT-END-OF-FILE                                          10\/23\/91   51  003700     MOVE CORRESPONDING VNDMSTR TO LABEL-O                   10\/23\/91         *   ** CORRESPONDING items for statement 51:         *   **     NAME         *   **     ADDR1         *   **     CITY         *   **     STATE         *   **     ZIPCD         *   ** End of CORRESPONDING items for statement 51   52  003800     WRITE PRINT-REC FORMAT IS \"LABEL\".                  10\/23\/91 * * * * *   E N D   O F   S O U R C E   * * * * *<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0432 2020 \u0433\u043e\u0434\u0443 \u044f\u0437\u044b\u043a \u0444\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043f\u0435\u0440\u0435\u0436\u0438\u0432\u0430\u043b \u0441\u0432\u043e\u0439 \u0440\u0435\u043d\u0435\u0441\u0441\u0430\u043d\u0441. \u0414\u0435\u043b\u043e \u0432 \u0442\u043e\u043c, \u0447\u0442\u043e \u0430\u043c\u0435\u0440\u0438\u043a\u0430\u043d\u0441\u043a\u0430\u044f \u0441\u0438\u0441\u0442\u0435\u043c\u0430 \u0437\u0430\u043d\u044f\u0442\u043e\u0441\u0442\u0438 \u0432 2020 \u0433. \u0432\u0441\u0451 \u0435\u0449\u0451 \u0437\u0430\u0432\u0438\u0441\u0435\u043b\u0430 \u043e\u0442 COBOL (\u0441\u0435\u0439\u0447\u0430\u0441 \u0441\u0438\u0442\u0443\u0430\u0446\u0438\u044f \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u043c\u0435\u043d\u044f\u043b\u0430\u0441\u044c). \u0418 \u043f\u043e\u0441\u043b\u0435 \u0442\u043e\u0433\u043e \u043a\u0430\u043a \u0438\u0437-\u0437\u0430 \u043f\u0430\u043d\u0434\u0435\u043c\u0438\u0438 \u0432\u044b\u0440\u043e\u0441\u043b\u043e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0435\u0437\u0440\u0430\u0431\u043e\u0442\u043d\u044b\u0445, \u0438\u043d\u0444\u0440\u0430\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043d\u0435 \u0432\u044b\u0434\u0435\u0440\u0436\u0430\u043b\u0430 \u0432\u043e\u0437\u0440\u043e\u0441\u0448\u0435\u0439 \u043d\u0430\u0433\u0440\u0443\u0437\u043a\u0438. \u0412 \u0438\u0442\u043e\u0433\u0435 \u0432\u0441\u0451 \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u0441\u043f\u0435\u0448\u043d\u043e \u0447\u0438\u043d\u0438\u0442\u044c, \u043f\u0440\u0438\u0433\u043b\u0430\u0448\u0430\u044f \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u0438\u0441\u0442\u043e\u0432 \u043f\u043e COBOL \u0438 \u043f\u043e\u0434\u0433\u043e\u0442\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u043d\u043e\u0432\u044b\u0445.<\/p>\n<p>\u0411\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u044f \u0441\u0442\u0430\u0440\u0430\u043d\u0438\u044f\u043c IBM \u0438 \u0434\u0440\u0443\u0433\u0438\u0445 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0439 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u043a\u043e\u0434\u0430, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 COBOL, \u0432 2022 \u0433\u043e\u0434\u0443 \u0441\u043e\u0441\u0442\u0430\u0432\u0438\u043b\u043e \u0443\u0436\u0435 800 \u043c\u043b\u0440\u0434. \u041f\u0440\u0430\u0432\u0434\u0430, \u0432\u043f\u043e\u043b\u043d\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u0447\u0442\u043e \u0432 2017 \u0433\u043e\u0434\u0443 \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u043b\u0438 \u043d\u0435 \u0432\u0441\u0451, \u043d\u043e \u0444\u0430\u043a\u0442 \u043e\u0441\u0442\u0430\u0451\u0442\u0441\u044f \u0444\u0430\u043a\u0442\u043e\u043c \u2014 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u043a\u043e\u0434\u0430, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 COBOL, \u043e\u0433\u0440\u043e\u043c\u043d\u043e.<\/p>\n<p>\u0412\u0435\u0440\u043e\u044f\u0442\u043d\u043e, \u0447\u0435\u0440\u0435\u0437 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u0432\u0441\u0451 \u0436\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0448\u0443\u0442 \u043d\u0430 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u044f\u0437\u044b\u043a\u0430\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043d\u043e \u043f\u043e\u043a\u0430 \u0447\u0442\u043e COBOL \u043e\u0441\u0442\u0430\u0451\u0442\u0441\u044f \u043d\u0430 \u043f\u043b\u0430\u0432\u0443.<\/p>\n<h2>APL<\/h2>\n<figure class=\"full-width\"><\/figure>\n<p>\u042d\u0442\u043e \u0430\u0431\u0431\u0440\u0435\u0432\u0438\u0430\u0442\u0443\u0440\u0430 \u043e\u0442 A Programming Language. \u042f\u0437\u044b\u043a \u0441\u043e\u0437\u0434\u0430\u043d \u0432 60-\u0445 \u0433\u043e\u0434\u0430\u0445 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0431\u043e\u043b\u044c\u0448\u0438\u0445 \u0431\u043b\u043e\u043a\u043e\u0432 \u0447\u0438\u0441\u0435\u043b. \u041e\u043d \u0445\u043e\u0440\u043e\u0448\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u043b \u043f\u043e\u0434 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445, \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0438 \u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0437\u0430\u0434\u0430\u0447, \u0430 \u043a\u043e\u0434 APL \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043a\u043e\u0440\u043e\u0442\u043a\u0438\u0439.<\/p>\n<details class=\"spoiler\">\n<summary>\u0412\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>L\u2190(L\u03b9':')\u2193L\u2190,L   \u235d drop To:  L\u2190LJUST VTOM',',L\u235d mat with one entry per row  S\u2190\u00af1++\/\u2227\\L\u2260'('   \u235d length of address  X\u21900\u2308\u2308\/S  L\u2190S\u233d(\u2212(\u2374L)+0,X)\u2191L\u235d align the (names)  A\u2190((1\u2191\u2374L),X)\u2191L   \u235d address  N\u21900 1\u2193DLTB(0,X)\u2193L\u235d names)  N\u2190,'\u237a',N  N[(N='_')\/\u03b9\u2374N]\u2190' '   \u235d change _ to blank  N\u21900 \u00af1\u2193RJUST VTOM N  \u235d names  S\u2190+\/\u2227\\' '\u2260\u233dN     \u235d length of last word in name<\/code><\/pre>\n<\/p>\n<\/div>\n<\/details>\n<p>\u0423 \u044f\u0437\u044b\u043a\u0430 \u0432\u0435\u0441\u044c\u043c\u0430 \u043e\u0431\u0448\u0438\u0440\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0434\u043b\u044f \u0432\u043e\u0437\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u043d\u0430 \u0441\u043a\u0430\u043b\u044f\u0440\u044b, \u0432\u0435\u043a\u0442\u043e\u0440\u044b, \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0430, \u043c\u043d\u043e\u0433\u043e\u043c\u0435\u0440\u043d\u044b\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u044b \u0438 \u0438\u0445 \u043a\u043e\u043c\u0431\u0438\u043d\u0430\u0446\u0438\u0438.<\/p>\n<p>\u0412\u043e\u0442 \u0447\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u0438\u043b \u043e \u044f\u0437\u044b\u043a\u0435 \u0435\u0433\u043e \u0430\u0432\u0442\u043e\u0440: \u00ab\u0418\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u044f \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u043b APL \u043a\u0430\u043a \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442 \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0438 \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f. \u0418 \u0445\u043e\u0442\u044f \u042f\u041f \u0433\u043b\u0430\u0432\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u044d\u043a\u0441\u043f\u043b\u0443\u0430\u0442\u0438\u0440\u043e\u0432\u0430\u043b\u0441\u044f \u0432 \u043a\u043e\u043c\u043c\u0435\u0440\u0447\u0435\u0441\u043a\u043e\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0438, \u044f \u0432\u0441\u0451 \u0442\u0430\u043a \u0436\u0435 \u0441\u0447\u0438\u0442\u0430\u044e, \u0447\u0442\u043e \u0435\u0433\u043e \u0441\u0430\u043c\u043e\u0435 \u0432\u0430\u0436\u043d\u043e\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u043f\u0440\u043e\u0441\u0442\u0430\u044f, \u0442\u043e\u0447\u043d\u0430\u044f \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u043c\u0430\u044f \u0437\u0430\u043f\u0438\u0441\u044c (\u043d\u043e\u0442\u0430\u0446\u0438\u044f) \u0434\u043b\u044f \u0438\u0437\u0443\u0447\u0435\u043d\u0438\u044f \u0448\u0438\u0440\u043e\u043a\u043e\u0433\u043e \u0441\u043f\u0435\u043a\u0442\u0440\u0430 \u043f\u0440\u0435\u0434\u043c\u0435\u0442\u043e\u0432\u00bb.<\/p>\n<p>\u0423 APL \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432\u044b\u0441\u043e\u043a\u0438\u0439 \u043f\u043e\u0440\u043e\u0433 \u0432\u0445\u043e\u0434\u0430, \u0432 \u0447\u0430\u0441\u0442\u043d\u043e\u0441\u0442\u0438 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u043e\u043d \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0441\u0432\u043e\u0439 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u0414\u043b\u044f \u043d\u0435\u0433\u043e \u0434\u0430\u0436\u0435 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u043b\u0430\u0441\u044c \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0430\u044f \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u0430.<\/p>\n<figure class=\"full-width\"><\/figure>\n<p>\u0421\u0435\u0439\u0447\u0430\u0441 \u043e\u043d \u0435\u0449\u0451 \u0436\u0438\u0432, \u043d\u043e \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f \u0443\u0436\u0435 \u0440\u0435\u0434\u043a\u043e \u2014 \u0432 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u043b\u0443\u0447\u0430\u0435\u0432 \u0434\u043b\u044f \u0430\u043d\u0430\u043b\u0438\u0437\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0434\u0430\u043d\u043d\u044b\u0445, \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0444\u0438\u043d\u0430\u043d\u0441\u043e\u0432\u043e\u0439 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u0432 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u044f\u0445. \u0412 \u043d\u0430\u0443\u0447\u043d\u043e\u0439 \u043e\u0442\u0440\u0430\u0441\u043b\u0438 \u2014 \u0434\u043b\u044f \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f \u0442\u0430\u043a\u0438\u043c \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044f\u043c, \u043a\u0430\u043a \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n<p>\u0412 \u0446\u0435\u043b\u043e\u043c, \u0430\u043a\u0442\u0443\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0441\u043e\u0444\u0442\u0430 \u043d\u0430 APL, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043a\u0442\u043e-\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442, \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u0432\u0441\u0451 \u043c\u0435\u043d\u044c\u0448\u0435, \u043d\u043e \u0432\u0441\u0451 \u0436\u0435 \u043e\u043d \u0435\u0441\u0442\u044c. \u041a\u0441\u0442\u0430\u0442\u0438, \u043f\u0440\u043e\u0432\u043e\u0434\u044f\u0442\u0441\u044f \u0438 \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0438 \u0432 \u0440\u0430\u043c\u043a\u0430\u0445 Association for Computer Machinery.<\/p>\n<h2>PL\/I<\/h2>\n<p>\u0415\u0449\u0451 \u043e\u0434\u0438\u043d \u043e\u0447\u0435\u043d\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u044f\u0437\u044b\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u044b\u0439 \u043a\u043e\u0440\u043f\u043e\u0440\u0430\u0446\u0438\u0435\u0439 IBM \u0432 1960-\u0445 \u0433\u043e\u0434\u0430\u0445. \u041e\u043d \u0431\u044b\u043b \u0441\u043e\u0437\u0434\u0430\u043d \u043a\u0430\u043a \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u044b\u0439 \u042f\u041f, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0438\u043b Fortran \u0438 Comtran (\u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0441\u044f \u0432 \u0431\u0438\u0437\u043d\u0435\u0441\u0435). \u041f\u043e\u043b\u0443\u0447\u0438\u043b\u0441\u044f \u0432\u0435\u0441\u044c\u043c\u0430 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u044f\u0437\u044b\u043a \u0441 \u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e\u043c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439.<\/p>\n<details class=\"spoiler\">\n<summary>\u041f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u0434\u0430 \u043d\u0430 PL\/I:<\/summary>\n<div class=\"spoiler__content\">\n<pre><code>*********************************************************************** *                                                                     * *  PL\/I EXAMPLE                                                   * *  OBJECT IS TEMPORARY                                        * *                                                                     * *                                                                     * *                                                                     * ***********************************************************************  CRTPLN3: PROCEDURE OPTIONS (MAIN);                                 CSR00010                                                                         CSR00020  DCL                                                                    CSR00030   (                                                                     CSR00040   K INIT(1024),                    \/* ONE KILO-BYTE          *\/ CSR00050   PAGESIZE INIT(4096),             \/* 4K PAGE BOUNDARY       *\/ CSR00060   OFFSET INIT(0),                  \/* WINDOWS STARTS         *\/ CSR00070   WINDOW_SIZE INIT(20),            \/* WINDOW SIZE IN PAGES   *\/ CSR00080   NUM_WIN_ELEM INIT (20480),       \/* NUM OF 4-BYTE ELEMENTS *\/ CSR00090   OBJECT_SIZE INIT (60))           \/* CHOSEN OBJECT SIZE IN PGS  *\/ CSR00100   FIXED<\/code><\/pre>\n<\/div>\n<\/details>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-368423","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/368423","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=368423"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/368423\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=368423"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=368423"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=368423"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}