Эх, хорошо на фортране, нас в институте бейсику обучали, а диплом я писал на фортране (чем очень удивил преподавательский состав). А вот теперь, уважаемые прогеры ответте как красиво выйти из цикла в других языках, задача найти i путем простого перебора на уравнение 3=i+1, где 3 обозначим буквой k?
do 1 i=1,5 1 (цикл делать до метки "1", менять i от 1 до 5 с шагом 1)
k=i+1 (типа какое то тело программы)
if k eq 3 go to 2 (если к = 3, тогда идти на метку 2)
1 continue (пустой оператор, перед ним стоит метка "1", после этого оператора отошлет обратно к оператору du и i сменится на i=i+1, либо, по достижению i=5, программа будет считать дальше...
2 j=i+1 (метка 2 затем любые дальнейшие действия с полученным результатом)
Как вы видите - гоняю цикл пока не получу искомый результат, в данном случае интересует ответ при каком i k будет будет равно 3, и желаемый i оказывается равен 2м... За каким хреном гонять цикл дальше? Как изящно реализовать эту же задачу в других языках?
А я так и не стал программировать... Я в свое время доставал у людей уже готовые программки, чтобы напакостить по сетке (протянули на несколько домов сетку у себя во дворе) кому нибудь. Все собирался научиться, но вдруг стал панком и все к чёрту ))))) посыпалось. FastTracker помню! УХ!)))
Смахнул скупую мужскую слезу. Сам все это проходил, но немного раньше. По этому покритикую.
На скрине Turbo c++ ошибка. Тип массива ar не указан. Либо лишняя ; в верхней строке.
Под Линухом до сих пор здравствует Lazarus. И он кроссплатформенный. Конечно, под него нет большого количества компонентов.
Попробуйте C#, хоть я и не люблю продукты от M$, штука, на мой взгляд, неплохая. Мне больше Явы нравится. Но это из за того, что я старый программист на Си:) Для комповой отладки микроконтроллерных устройств сейчас осваиваю Mono (свободная реализация C#) + GTK.
"далеко не с MK-51"
Поправь, МК-52, он у меня был или МК-61.
Я до 15 лет вообще не понимал зачем информатика, задания списывал у умненьких отличниц. Учительница помочь не могла, ибо сама слабо в этом разбиралась. Пока наш класс не поделили после 9-го, там хлопцы знали для чего, но всё равно не принимал этого. Тогда внезапно в магазинах появилось много электроники, был какой-то интерес ко всему этому, опять же компьютерные клубы, 10 минут за рубль, записался в УПК на оператора ЭВМ. Первая программа - вычисление квадратных уравнений, там смешались в кучу люди-кони. Преподавательница говорит: "используй тут условный переход". 3 следующих урока тупил над её словами... и тут вот оно... случилось, внезапно понял что это и для чего нужно, было такое ощущение, что был слеп и внезапно мир заиграл красками. На следующей информатике, пока остальные во что-то там рубились (на УКНЦ учились) налабал цельный графический редактор, одноклассники смотрели на меня типа как вот только что собака заговорила :)
Батя, видя такое нешуточное увлечение, обнёс все библиотеки, куда меня еще не пускали, книгами по программированию и купил МК-52. Дальше "Кон-Тики" всякие логические задачки, в 92-м на первую зарплату купил "Вектор-06Ц", потом "Спектрум", в универе прошёл от ЕС-1840 по второго пня. Писал на С/С++, Asm, PHP, JavaScript, Perl и еще по мелочи. Сейчас тружусь на ниве автоматизации деятельности предприятий, 1С 8.3.
До сих пор пятыми делфями пользуюсь. А иногда и BP7.
А трекерные модули можно на винампе слушать (in_mod.dll, по-моему, он даже в комплект входит). А до винампа я сам плейер для них писал :)
ЗЫ
Первым собственным компом у меня был нотбук на 286 процессоре (AT, CGA, DOS), отобранный братом у кого-то за долги, оказалось, работает, уже на нем заработал на первый настольный 486...
63 комментария
9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
do 1 i=1,5 1 (цикл делать до метки "1", менять i от 1 до 5 с шагом 1)
k=i+1 (типа какое то тело программы)
if k eq 3 go to 2 (если к = 3, тогда идти на метку 2)
1 continue (пустой оператор, перед ним стоит метка "1", после этого оператора отошлет обратно к оператору du и i сменится на i=i+1, либо, по достижению i=5, программа будет считать дальше...
2 j=i+1 (метка 2 затем любые дальнейшие действия с полученным результатом)
Как вы видите - гоняю цикл пока не получу искомый результат, в данном случае интересует ответ при каком i k будет будет равно 3, и желаемый i оказывается равен 2м... За каким хреном гонять цикл дальше? Как изящно реализовать эту же задачу в других языках?
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить ОтменаУдалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
Удалить комментарий?
Удалить Отмена9 лет назад
На скрине Turbo c++ ошибка. Тип массива ar не указан. Либо лишняя ; в верхней строке.
Под Линухом до сих пор здравствует Lazarus. И он кроссплатформенный. Конечно, под него нет большого количества компонентов.
Попробуйте C#, хоть я и не люблю продукты от M$, штука, на мой взгляд, неплохая. Мне больше Явы нравится. Но это из за того, что я старый программист на Си:) Для комповой отладки микроконтроллерных устройств сейчас осваиваю Mono (свободная реализация C#) + GTK.
Удалить комментарий?
Удалить Отмена9 лет назад
Поправь, МК-52, он у меня был или МК-61.
Я до 15 лет вообще не понимал зачем информатика, задания списывал у умненьких отличниц. Учительница помочь не могла, ибо сама слабо в этом разбиралась. Пока наш класс не поделили после 9-го, там хлопцы знали для чего, но всё равно не принимал этого. Тогда внезапно в магазинах появилось много электроники, был какой-то интерес ко всему этому, опять же компьютерные клубы, 10 минут за рубль, записался в УПК на оператора ЭВМ. Первая программа - вычисление квадратных уравнений, там смешались в кучу люди-кони. Преподавательница говорит: "используй тут условный переход". 3 следующих урока тупил над её словами... и тут вот оно... случилось, внезапно понял что это и для чего нужно, было такое ощущение, что был слеп и внезапно мир заиграл красками. На следующей информатике, пока остальные во что-то там рубились (на УКНЦ учились) налабал цельный графический редактор, одноклассники смотрели на меня типа как вот только что собака заговорила :)
Батя, видя такое нешуточное увлечение, обнёс все библиотеки, куда меня еще не пускали, книгами по программированию и купил МК-52. Дальше "Кон-Тики" всякие логические задачки, в 92-м на первую зарплату купил "Вектор-06Ц", потом "Спектрум", в универе прошёл от ЕС-1840 по второго пня. Писал на С/С++, Asm, PHP, JavaScript, Perl и еще по мелочи. Сейчас тружусь на ниве автоматизации деятельности предприятий, 1С 8.3.
Удалить комментарий?
Удалить Отмена9 лет назад
Пост плюсую, разумеется
Удалить комментарий?
Удалить Отмена9 лет назад
А трекерные модули можно на винампе слушать (in_mod.dll, по-моему, он даже в комплект входит). А до винампа я сам плейер для них писал :)
ЗЫ
Первым собственным компом у меня был нотбук на 286 процессоре (AT, CGA, DOS), отобранный братом у кого-то за долги, оказалось, работает, уже на нем заработал на первый настольный 486...
Удалить комментарий?
Удалить Отмена