Вопросы

[Poma][a]

Не надоело ли еще моск засирать бяками?

А чем голову забивать? Твоя идея брать "проект" писать, понимать что жизнь-боль.. брать другой.. мне не нравится..

Ромаха, не правильно вставку делаешь.

А я ведь проверял.. ужас.. спасибо!!

[Stilet]

Твоя идея брать "проект" писать, понимать что жизнь-боль.. брать другой.. мне не нравится..

Ну чего же сразу так? )
Говорят: "Болит? - значит еще жив"
К тому же проект это не школьно-олимпиадные задачки.
Ладно, давай так. Я тее задачку крупную подкину. Задачка конкретная. Поверь голову поломать придется ого-го. Да еще и опыта приобрести много.
По факту она простая, а как вникать начнешь - сразу этот acmp покажется детскими шалостями.
Готов? Лови - Расчет зубчатого зацепления
Это не шутка.

[Poma][a]

Ну чего же сразу так? )

Если, не дай Бог, обидел, то прости.. не хотел..

сразу этот acmp покажется детскими шалостями

Чёт я сомневаюсь, что без acmp я бы научился стеками, очередям, спискам и прочему.. Да и очень скучно писать крупные задачи..

Готов?

Всегда, мой генерал!

Расчет зубчатого зацепления

Оо.. А можешь чуть поконкретней? Что-то вида : "Тебе дается то, то, то и то. А найти нужно сё"..

Это не шутка.

Договорились..

[Stilet]

Если, не дай Бог, обидел, то прости.. не хотел..

Не, не парься )

Оо.. А можешь чуть поконкретней?

Хо-хо-хо! А вот тут начинается начало первого интересного момента - никто ниче тебе не скажет. Думаешь в сказку попал? (как сказал наш главный конструктор). Я заказчик. Я тупой. Я сказал "Сделай мне прогу за лимон баксов. рачет передачи". И поверь, меня (а в основном в мире попадаемся именно "мы в виде этого меня") не гребет как ты это сделаешь
В том то и фишка что разжевывать тебе все придется самому. Сколько помню я щемил формулу эвольвентного зацепления... ух-х-х... Ностальжи. Кошмарный сон )))
А потом когда в конце проекта посмотрел на пройденное... тьху ты эти ваши динмассивы и списки... Детям в песочек лопаточки и пасочки. Короче черт как обычно страшен только издали. Но факт остается фактом - сам процесс выкапывания знаний (имею ввиду именно по этому заданию) дал мне такой прогресс, что я просто начал понимать то, что никак не понимал изучая то же черчение, или сопромат (предположим) в универе в режиме "халя-баля".
А тут реальная задача, которая чуть было в производство не пошла (впрочем кое-кто из КБ всетки прогу эту юзал...). Так что вот она жизнь настоящая, а не эти все задачки на прокачку мифического IQ.

[Аватар]

Ромаха, расчет геометрических и прочностных характеристик. В сети много информации. Понятие о сопромате имеешь? Прийдется освоить. Не хилая скажу тебе прикладная наука Не берись, зубы сломаешь. Червячные передачи, кайф

[Stilet]

Червячные передачи, кайф

Бр-р-р... До сих пор трясет... Не напоминай, ежкин кот )

[Poma][a]

Понятие о сопромате имеешь?

Неа..

Не берись, зубы сломаешь

Дык тем и интереснее

[Poma][a]

Пан Stilet.. С твоей зубной феей я разбирусь (чесно слово!) но попозжа..

А пока вопрос..
Есть задача.. тыц..
Захотел я попасть в топ Pascal.

Саму задачу можно решить так.. n := n mod 60 (т.к. период последний цифры ч.Б = 60)
Но в топ всё же хочется..
Посему я придумал вариант с Word.. Тоесть записываем в переменную два байта.. Остальные куда-то деваются..

И всё прекрасно..

var
    n, p, q : Word;
begin
    Reset(input, 'input.txt');
    Assign(output, 'output.txt');
 
    Read(n);
    p := 1; q := 1;
    for n := 1 to n do begin
        p := (p+q) mod 10; q := (10+p-q)mod 10
    end;
    Write(q)
end.

Но хочется сократить еще..

Можно было бы сделать так :

var
    n, p, q : Word;
begin
    Reset(input, 'input.txt');
    Assign(output, 'output.txt');
 
    Read(n);
    p := 1; 
    for n := 0 to n do begin
        p := (p+q) mod 10; q := (10+p-q)mod 10
    end;
    Write(q)
end.

Но тогда получает Runtime Error..
Опытным путем понял, что ошибка в сточке q := (10+p-q)mod 10
И это из-за того, что q = 614400..
Но ведь n, p, q - это глобальные переменные!! И они должны получить 0.. однако это ниразу не так..
Не могли бы Вы растолковать почему?
Спасибо!
Удачи!

[Аватар]

Ромаха, max(n)=10^8. Чего это оно word? Могу предположить, что при вводе большого числа как-то память под q зацепило

[Poma][a]

Чего это оно word?

дык берем два последних байта и заталкиваем в word..
Иначе пришлось бы писать integer.. (или химить с int64) а так же n := n mod 60.. что не ахти.. А тут обрезает и все счастливы..

Могу предположить, что при вводе большого числа как-то память под q зацепило

Бинго! Точно. Спасибо! Именно так и есть..
А возможно это как-нибудь образом избежать? Пусть лишние два байта записывались бы в p или другую область памяти.. Чтобы q оставалась равная 0..