Кто помнит Pascal?

эххх было дело, писали группой в траве сидел кузнечик в 2 команды Sound и Delay за зачет)

паскаль пропустил. от бейсика начал, а очнулся в мире винды. ну дос зацепил.

Во втором примере есть Until. условия которого не позволяют ввести переменную данет отличную от 1 или 2.

Тогда зачем её дважды проверять.

нужно

if (danet=1) then begin

-------

end
else begin

-------
end;

Цитата (djimm @ 21.12.2015 - 19:02)

эххх было дело, писали группой в траве сидел кузнечик в 2 команды Sound и Delay за зачет)

Олимпиады на Паскале выигрывали, игры писали (примитив, но тем не менее... тогда винт в 2Га был чем-то сверхъестественным)... Эх... молодость...

Попытался по памяти накидать код и понял, что я забыл паскакаль.

Бейсик фэнс))

Приведенный вариант решения абсолютно неверный.
Правильное решение - не тратить свое время на решение чужих проблем, особенно проблем "подруг", ленивых к учебе и вообще.

(Конечно, если с ТС'ом рассчитались должным образом - тогда никаких вопросов, все верно)

полез тетрадки нашел, вспомнил ассемблер и фортран, про бейсик вообще молчу
LD HL,BUF_1
LD DE,BUF_1+1
LD BC,0+(128*3)-1
LD (HL),#FF
LDIR

DEC B ;BC=#FF00
LD H,B
LD L,C ;HL=#FF00
LD D,B ;D=#FF
LD E,B ;E=#FF
Это сообщение отредактировал alexcap2010 - 21 дек 2015 в 19:22

Хороший код, в принципе. Только чую, что преподша требовала, чтобы функция была именно функцией, потому и выпендривалась.
Эх, любимый язык. Где ж ты, дос?:)

Скромно могу сказать, что я знаю, что значит End. Ну, в конце каждых значков и столбиков..
Если кто кто будет что то писать коммерческое, могу помочь в написании кода. Недорого.

Цитата (npoxop @ 21.12.2015 - 19:13)

Приведенный вариант решения абсолютно неверный. Правильное решение - не тратить свое время на решение чужих проблем, особенно проблем "подруг", ленивых к учебе и вообще. (Конечно, если с ТС'ом рассчитались должным образом - тогда никаких вопросов, все верно)

Всё в порядке, не за "спасибо")

Я косяк .... Не туда смотрел ...


Это сообщение отредактировал KeenPenn - 21 дек 2015 в 19:40

Фэйспалм! Эти люди рассуждают о программировании! Их всех в гугле забанили и от того они искренне не понимают что until в контексте задачи это бочка говна в ложке меда. Это мог написать только дурак. Что толку если я укажу именно здесь в чем ошибка в этой задаче? Талантливые креативные балбесы продолжат с новыми силами "программировать" вполне уверенные что теперь в их коде будет ровно на одну ошибку меньше. Однако со своими талантами они всегда найдут 500 способов написать наглухо зависающий код.
Это сообщение отредактировал SuperYago - 21 дек 2015 в 19:39

учила она просто по другому вот и все. меня в школе за это математичка не любила. решаешь, как быстрее и короче, но нет, надо изъебываться и расписывать все подробно, каждое действие, учитывая, что арифметику я легко решаю в голове.

Ну в общем да, явно напрашивается реализация через функцию. И скорее всего лабораторная работа именно это и подразумевала.

Меня в своё время препод называл нехорошими словами, если из конструкций вида "repeat ... until" в моём быдлокоде нельзя было корректно выйти никак, кроме как введя правильные (требуемые условием) значения. Так же можно навечно там залипнуть. Приходилось встраивать подобие "защиты от дурака", всякие подсказки и "press any key to continue or any other key to exit" ;)
Тут как раз в первом решении подобная ситуация. Повторяем ввод трёх переменных, пока не совпадут два условия. При этом не читавший условие, но запустивший код, даже не поймёт, чего от него хочет программа ;)
Это сообщение отредактировал falameezaar - 21 дек 2015 в 20:04

Учитель: - Сама написала?
Твоя знакомая: - Нет, друг помог.
У: - У кого то был секс...
З: - Нет, он всё делает просто так. Он друг.
У: - Дурак он.

ТС, могу точно сказать, что ввод, вывод у тебя удался. Чо касаемо формул тут уж к гумунитариям :)

И ваще мне моя мастачка такие примеры шпалила снижала оценку.
Всегда говорила -"Ты решаешь все в лоб" ты типа тут вводвывод расписал на два листа а главная формула в одну строку. Надо вот так красива формулы расписать еще на лист а потом стали проходить оптимизацию. но -"ты умный но решаешь опять влоб. вот возьми эту умую книгу, научись сокращать формулы в 4 раза" О_о
Потому шо видитили процессор затратит целых сто тактов на решение моего творчества и займет это у него 5 микросекунд, а нада шоб еще меньше. И я сидел и думал -сука скокаж вас этих микросекунд в 20 минутах до конца пары, до начала грандиозной попойки в ближайшем парке?
Я мечтал о тех микросекундах которые наполнят меня живительным пивом холодным, светлым, прям из пластмассового ящика, где их 20 штук, о тех микросекундах что сложаться в часы рядом с Катюхой, перед которой буду кревляться словно мне опять 14, чтоб видеть ее улыбку, радостные голубые глаза, слышать как она заливисто смеется тоненьким голоском

А теперь я сисадмин без бороды, что вообщемто тоже неплохо
Это сообщение отредактировал DrShmurger - 21 дек 2015 в 20:13

Я хз, мы в своё время калькуляторы для ОГЗ и прочих геодезёрских радостей в Делфи 6 собирали... Щас уже даже не вспомню - лекции надо искать и учебник...

Цитата (Sonnik10 @ 21.12.2015 - 18:07)

А как же Бейсик??? Он раньше был!!

чет даже страшно представить)))

Для этого проще С++ выучить!

на ассемблере надо было писать

Ассемблер тебе в помощь братюнь, вот где треш и угар
П.С. а еще не забуду пролог, вот это ВООБЩЕ полный трешак
Это сообщение отредактировал ЯбуМажкО - 21 дек 2015 в 20:30

А кто помнит асму arm, а то походу я свой проект никогда не закончу.
Ссылка в подписи.

Один из самый первых языков программирования в СССР - Наири. Там все гораздо проще..

ПЫСЫ: Да, да..я еще помню как царя Николашку свергали
Это сообщение отредактировал IlFatt - 21 дек 2015 в 20:36