• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

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

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от Yug7

  1. Y

    Создать файл для результатов работы программы

    Да, у меня PascalABC. Единственная, в которую без проблем загружается листинг. Любые другие версии PASKAL-ей (перепробовал ВСЕ-не вру) дают отмазку "Ошибочное имя файла или расширения). Даже,если файл засунешь в папку программы.Что их не устраивает ? имя подсказывает Notepad( не должен врать...
  2. Y

    Создать файл для результатов работы программы

    Заменил Integer на LongInt и изменил N=1000 на N=2000000000 Компилируется, но после запуска программы : "Непредвиденное исключение. EАccessViolation. Access violation at adress 004B00EE in module 'PascalABC.exe'. Write of address BEB3A024. Программа завершена (Progression.PAS, строка 45)...
  3. Y

    Создать файл для результатов работы программы

    Опять забыл сказать : gotherson за хорошо написанный листинг, о котором сказал ранеее, БОЛЬШОЕ СПАСИБО !
  4. Y

    Создать файл для результатов работы программы

    Реально работает только этот листинг : Program Progression; Const N = 1000; Type MyArray = Array [1..N] of Integer; Var Save: MyArray; // массив циклов (кол-во нулей) Val : MyArray; // массив значений (ноль = 1, число = кол-во нулей до 1) Function Check(count: Integer)...
  5. Y

    Создать файл для результатов работы программы

    Program Progression; Uses CRT; Const N = 1000000; Type MyArray = Array [1..N] of Integer; Var Save: MyArray; // массив циклов (кол-во нулей) Val : MyArray; // массив значений (ноль = 1, число = кол-во нулей до 1) Function Check(count: Integer): Boolean; Var i: Integer; Begin...
  6. Y

    Создать файл для результатов работы программы

    Вернул диск С (перед этим сменил на D - я там работаю ). Программа пошла, пока обкатаю на N=1000000. Assign(F, 'D:\f1.dat');-это я изменил. Не факт,что в этом причина : я одновременно очень сильно увеличил N. Аппетит уменьшил. Отработает, буду помалу увеличивать.
  7. Y

    Создать файл для результатов работы программы

    Увеличил размер массива, компилятору не нравится строка Assign(F, 'D:\f1.dat'); Красная строка : " Непредвиденное исключение "
  8. Y

    Создать файл для результатов работы программы

    Или здесь что-то не так ? Я это не сам программировал. Нашел готовое решение. Это будет работать ? И еще я не совсем понял,как реализуется начало приостановки ? Как ввести с клавиатуры : " Приостановка выполнения программы " ? Enter - это понятно.
  9. Y

    Создать файл для результатов работы программы

    gotherson Интересно : я когда-нибудь научусь вот так же легко,как вы программировать ? Есть вопрос : 1. Приостановка выполнения программы на время, определяемое пользователем Простейшим решением данной задачи является запись в соответствующем месте процедуры Readln (оператор Read использовать...
  10. Y

    Создать файл для результатов работы программы

    Смотел, рад до некуда, все отлично. Сейчас набираю еще кое-что. Если не трудно, зайдите еще раз.
  11. Y

    Создать файл для результатов работы программы

    Иду смотреть, честно не заметил. Склероз,не иначе.
  12. Y

    Создать файл для результатов работы программы

    А как это лучше откорректировать,чем я сделал ?
  13. Y

    Создать файл для результатов работы программы

    А если с 1 начинать , а не с 0 - совсем другой алгоритм реализуется Обязательно надо, чтобы а начиналась с 0, а b начиналась с 1.
  14. Y

    Создать файл для результатов работы программы

    Опять я. Проверил : алгоритм абсолютно ПРАВИЛЬНЫЙ. Прошел от руки на бумаге до 53 и ни одного сбоя. Значит я плохо объяснил, можно еще попробую : в начале переменных - две : а ( непрерывно периодически принимает значения "0" или "1",цикл такой : =0,=1,=0,=1,=0 ...) , b ( непрерывно...
  15. Y

    Создать файл для результатов работы программы

    gotherson k a b 0 1 1 c (кол-во нулей: 3-1) 1 0 0 -> 1 (запись в файл 3+1) 1* 1 0 0 2 0 1 0 3 1 0 1 d (кол-во нулей: 4-1) 4 0 0 0 -> 1 (запись в файл 4+4) 1* 1 1 0 0 2 0 0 1 0 ... я имел в виду,что k a b 0 0 1 1 1 0 2 0...
Назад
Сверху