+118
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
Функция ext служит для формирования расширения файла с ЭС. Еe алгоритм основан на логике работы программы АРМ КБР.
В зависимости от порядкового номера файла ЭС вырабатывается расширение к этому файлу в диапазоне от «001» до «zzz». В листинге приведены построчные комментарии.
Листинг 14-Функция ext
function ext(num integer): string;
var
i : integer;
s1. s2. s3 : char: //условно разделим расширение на три части - гри символа;
// расширение представляет собой конкатенацию s1+s2-s3
begin
s1:='0'; s2:='0'; s3:='0'; изначально 000
for i := 0 to num-1 do begin //счетчик от 0 до порядкового номера файла
if(s3 in ['0'..'8']) then s3:=char(ord(s3)+1) //увеличиваем s3
else if(s3='9') then s3:='a' // если s3 достигло 9 то заменяем символом 'а'
else if(s3 in ['a'..'y']) then s3:=char(ord(s3)+1) // если s3 символ - берем следующий
else begin //если s3 достигло значения "/'
s3:='0'; //обнуляем s3
if(s2 in ['0'..'8']) then s2:=char(ord(s2)+1) //увеличиваем s2
else if(s2='9') then s2:='a' // если s2 достигло 9 то заменяем символом 'a'
else if (s2 in ['a'..'y']) ihen s2:=char(ord(s2) + 1) //если s2 символ - берем следующий
else begin // если s2 достигло значения z
s2:='0'; // обнуляем s2
if (s1 in ['0'..'B']) then s1:=char(ord(s1)+1) //увеличиваем s1 else if (s1 ='9') then s1:='a' //если s1 достигло 9 то заменяем символом 'а'
else if(s1 in ['a'..'y']) then s1:=char(ord(s1)+1) //если s2 символ - берем следующий
end;
end;
end;
result:=s1+s2+s3; //возвращаем конкатенацию сформированных частей расширения
end;
Пару дней назад моему начальнику принесли на рецензию магистерскую диссертацию специалиста по информационным технологиям. Ржали всем отделом! Магистерская листов так на 170. Я предлагаю Вашему вниманию одну функцию будущего специалиста-программиста :-)
Кстати, разрабатывает он информационную систему для электронного документооборота внутри банка (по его словам даже уже внедрил), при этом большая часть кода на Паскале и также есть модуль для вывода различных диаграмм (в количестве 2х штук) на Дельфи.
К слову, традиционно магистры в нашем университете претендуют на оценку "отлично".
Запостил: 
g00d,
14 Апреля 2011
Follow us!
отсканировалось херовато, кстати
и если на то пошло, тридцатишестиричное ТЗ тоже смердит
Но я думаю, идею этого творца Вы уловили - остаток от деления на 36 это для него слишком сложно конечно, но лично меня много радует получение следующей буквы по алфавиту путем двойной конвертации туды-сюды
если бы тут же клампилось в ['0'..'9', 'a'..'z'], то нормально было бы
Добро пожаловать в реальность. Полгода назад присутствовал на защите кандидатской. Защищающийся, запинаясь, прочитал доклад по бумажке, причём слово в слово то же, что и на слайдах (а на слайдах были сплошные формулы, которые он проговаривал). Потом полтора часа его тупо гнобили всем советом (диссертант всё это время сидел и молчал, как манекен), но каждая обличительная речь кончалась словами "Но, тем не менее, я буду голосовать за и призываю к тому же членов совета". На последнем слове вместо благодарности совету он выдал "Приглашаю всех на банкет", чем вызвал коллективный ржач. Потом между собой говорили, что такой позорной защиты лет двадцать не видели, но кандидат-то уже испечён.
Есть, конечно, и обратные им мудаки.
Но, вообще, политота пошла нахуй.
А всё менять нужно. Пока не начнётся этого, так всё и будет здесь омерзительно.
руские можно считать уже вымерли, FYI
Я себя не считаю крутым программистом, но по сравнению с преподами...
Никто никогда не думал взять пару часов в школе или в ВУЗе в качестве преподавателя?
Проблема всего нашего высшего образования, доставшегося с советских времен, имхо, в том, что оно ориентировано на других людей, на людей, у которых есть свободное время. Как многие сейчас говорят, раньше учили гораздо больше, а я скажу так, раньше подход к системе знаний был более фундаментальный. Т.е. Вас не учат решать какие-то конкретные задачи, Вас учат принципам некоторой системы, среды, чтобы Вы большую часть задач, которые Вам попадутся могли решать. Потому что научить решать все задачи методом простого перебора нельзя, вот и был сделан упор на аналитическое мышление. Беда в том, что советский лозунг "из любого можно сделать любого" здесь не работает. Суровая реальность показывает, что лишь небольшой процент людей можно обучить в данном контексте и это и правильно. Высшее образование не должно быть для всех, большую часть людей нужно учить прикладным вещам, имхо. Так вот, а что получается сейчас - работодатель требует диплом! А то, как человек этот диплом получил уходит на второй план. Вот и получается, что большинство современных студентов не могут усвоить знания, которые им дают. На этом фоне нормальные студенты тоже деградируют. Падает уровень образования и преподам приходится понижать требования, а как следствие преподы понижают требования и к самому себе... + еще пресловутая демографическая проблема начала 90х + проблемы на уровне школ + егэ...
А что касается конкретно Вашего замечания, подход должен быть системный и тогда не важно, какую версию языка преподают с одной стороны, а с другой, очень редко, когда преподаватель является хорошим практиком.
А сколько ещё практикующих преподавателей вы ещё знаете? А из других ВУЗов?
слово-то какое. прямо как "виртуальный секс".
Это ж ужас все сокращать.
за 7 часов хоть бы один поинтересовался её сиськами!
Я вот только такое знаю
https://cs11.pikabu.ru/post_img/big/2018/08/07/5/1533623197127641782.jpg
https://www.yaplakal.com/forum27/st/725/topic189350.html
Лучше не переходите по ссылке! Вы будете ментально изнасилованы.
какой пиздец.
s3 := succ(s3);
inc(s3);
какое многообразие вариантов, но автор выбрал самый говнистый
Предвидя ещё вопросы - нет, больше в коде меня ничего не смутило (влом ругаться, то есть).
s3 : ShortInt, не?
https://ideone.com/0j9VpP
P. S. Ты тоже из Осетии?
Хотел взять Base64, но испугался, вдруг тут нужно генерировать расширения для какой-нибудь регистронезависимой файловой системы (для «Windows», например), значит, буквы можно брать только большие или только маленькие. «Unicode» брать тоже побоялся.
eg: muravey.xyu означает 100500-ый файл к.-л. заебизнес-процесса
нормально - вообще не сегментировать, т.к. если туча сегментов подразумевает однотипное содержимое