"Janex" > á ×ÏÔ ÏÄÎÏ ÉÚÚÁ ÞÅÇÏ ÍÙ ÎÁ ÎÁÛÅÍ ÒÉÎËÅ, ËÁ ÍÙ ÓÁÍÉ ÛÞÉÔÁÅÍ :),
ÌÉÄÅÒÉ,
> ÅÔÏ ÔÏ ÞÔÏ ÐÙÔÁÅÍÓÑ ×ÙÐÏÌÎÉÔØ ×ÓÅ ÖÅÌÁÎÉÑ ÚÁËÁÚÛÉËÁ, ËÏÎÅÛÎÏ × ÒÁÍËÁÈ
> ÒÁÚÕÍÁ, ÎÏ ×Ó£ÔÁËÉ. äÒÕÇÉÅ ÉÌÉ ÐÏÓÙÌÁÀÔ ÉÌÉ ÇÏ×ÏÒÑÔ ÅÓÔØ ÔÁË ËÁË ÏÎÏ ÅÓÔØ
> É ÔÁË ÏÎÏ É ÂÕÄÅÔ :)
îÕ, ÒÁÚ ÔÁË - ÔÏ, éíèï, ÌÕÞÛÅ ÏÔ ÇÅÎÅÒÁÔÏÒÏ× ÏÔËÁÚÁÔØÓÑ, Á ÆÏÒÍÉÒÏ×ÁÔØ
ÎÏÍÅÒ, ËÁË Ñ ÏÐÉÓÁÌ:
ÓÏÚÄÁÊ ÕÎÉËÁÌØÎÙÊ ÉÎÄÅËÓ ÐÏ #ÌÁÂÏÒÁÔÏÒÉÉ+#ÎÁÐÒÁ×ÌÅÎÉÑ.
new_number := get_max_number_for_this_library;
inc(new_number);
while true
try
set max_number; // ÐÏÐÙÔËÁ ÚÁÐÉÓÉ
break; // ÕÄÁÞÎÏ, ×ÙÈÏÄ ÉÚ ÃÉËÌÁ
except // ÎÏÍÅÒ ÕÖÅ ÚÁÎÑÔ :(
inc(new_number); // ÎÅÕÄÁÞÎÏ, ÅÝÅ ÏÄÎÁ ÐÏÐÙÔËÁ
end
end while
éÎÄÅËÓÙ - ÏÎÉ ÔÏÖÅ ×ÎÅ ÒÁÍÏË ÔÒÁÎÚÁËÃÉÊ ÖÉ×ÕÔ, ËÁË É ÇÅÎÅÒÁÔÏÒÙ. ôÁË ÞÔÏ
ÒÁÂÏÔÁÔØ ÂÕÄÅÔ.
ëÏÎÅÞÎÏ, ÏÐÉÓÁÎÎÙÊ ÓÐÏÓÏ ÆÏÒÍÉÒÏ×ÁÎÉÑ ÎÏÍÅÒÁ ÂÕÄÅÔ ÍÅÄÌÅÎÎÅÅ, ÞÅÍ Ó
ÇÅÎÅÒÁÔÏÒÁÍÉ, ÎÏ ÐÒÉ ÉÎÔÅÒÁËÔÉ×ÎÏÊ ÒÁÂÏÔÅ ÜÔÏ ÐÏÈ. îÕ, ËÏÅÞÎÏ, ÌÕÞÛÅ ÅÝÅ
ÉÎÄÅËÓ ÐÒÁ×ÉÌØÎÏ ÐÏÓÔÒÏÉÔØ, ÞÔÏÂÙ ÍÁËÓÉÍÁÌØÎÏÅ ÚÎÁÞÅÎÉÅ ÂÙÓÔÒÏ ×ÙÔÁÓËÉ×ÁÌ.
é ÐÒÏÂÌÅÍÁ "ÎÏ×ÏÇÏ ÇÏÄÁ" ÔÏÖÅ ÐÒÏÓÔÏ ÒÅÛÁÅÔÓÑ (× ÉÎÄÅËÓ ÐÏÌÅ "ÇÏÄ" ÄÏÂÁ×Ø, É
×ÓÅ).
é ÐÒÏÂÌÅÍ Ó ËÏÒÒÅËÃÉÅÊ ÍÅÔÁÄÁÎÎÙÈ ÎÅ ÂÕÄÅÔ.
á ÓËÁÚËÉ ÔÉÐÁ "ËÏÍÕ ÜÔÏ ÎÕÖÎÏ???" - ÏÓÔÁ×Ø ÔÅÍ, ËÏÍÕ ÜÔÏ ÎÕÖÎÏ. ëÌÉÅÎÔ
ÄÏÌÖÅÎ ÂÙÔØ ÄÏ×ÏÌÅÎ. éíèï.
