IPB
ЛогинПароль:

> Написал тут..., Видали когда нибудь самую бесполезную программу на Pascal?
lFOXl
сообщение 27.08.2009 15:47
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


У вас есть возможность посмотреть)

Захотелось что-то написать на скорую руку.. вот ничего больше в л=голову не пришло)
Выводит на экран надпись в стиле ANSCII-art =)

Исполняемый файл удален (Правила, п.9)
Lapp

Прикрепляю исходник.

Сообщение отредактировано: lFOXl - 28.08.2009 12:18


Прикрепленные файлы
Прикрепленный файл  lol.pas ( 3.39 килобайт ) Кол-во скачиваний: 258
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
andriano
сообщение 29.09.2009 20:06
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


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

А нужно было это для отправки баг-репонта разработчику TMT Pascаl, версия 2.* которого падала, если ей пытались скармливать исходнокт достаточно большого объема. Притом на исходниках в несколько сотен или даже тысяч строк такого эффекта не наблюдалось. Вот эта "бесполезная" программа и послужила доказательством, что "валится" компилятор именно под влиянием объема, а не какой-то хитрой (или ошибочной) структуры компилируемой программы.

Так что и "бесполезные" программы иногда на что-то годятся.

Сообщение отредактировано: andriano - 29.09.2009 20:07
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
SKVOZNJAK
сообщение 29.09.2009 21:11
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 930
Пол: Мужской

Репутация: -  11  +


Знакомая система smile.gif В BP7 от таких программ тоже польза была, практическая. Но лучше было использовать поменьше строк но максимальной длины в одной процедуре. Примерно таких:
Код

write(
'453656897656790655434436564543323456676777654344355656355776457656655555467'
);

Строки копипастились, сообщения обрабатывались генератором случайных чисел, чтобы компилятор не смог их оптимизировать. Весь модуль должен быть такого объёма чтобы занимать почти весь сегмент памяти - 64kb. Тогда он не перемещается по сегменту. Модуль компилился а после в него записывалась информация к которой из программы через указатель можно получить доступ на чтение - обход ограничения на объём основной памяти, глобальных переменных и констант. А всё потому что великие теоретики программирования на паскале вскользь и на фрагментах а не целиком и на рабочих примерах объяснили доступ к памяти в защищённом режиме. Проще говоря, схалтурили, вместо того чтобы сказать: лажа тут в коде, лучше и не пытайтесь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
lFOXl   Написал тут...   27.08.2009 15:47
sheka   У вас есть возможность посмотреть)Ну я и сам скол...   27.08.2009 18:11
RathaR   Офигенно заманчивое предложение, но боюсь что оно...   27.08.2009 18:26
Unconnected   А я скачал, даже запустил (посмотрел , вроде ни с ...   27.08.2009 20:59
lFOXl   Какие все не доверчивые) Я не говорю, что опасатьс...   27.08.2009 21:21
Unconnected   Какие вы наивные) Ага, антивирус, вот напишу я п...   27.08.2009 22:04
Lapp   lFOXl, пожалуйста, уважай Правила Форума - они для...   28.08.2009 0:29
SKVOZNJAK   Захотелось что-то написать на скорую руку.. вот н...   28.08.2009 2:17
renesko1   Я тогда удержался, но теперь не могу :) Сколько ...   1.09.2009 16:56
lFOXl   чесно - нет) я знаю паскаль на очень низком уровне...   3.09.2009 19:58
renesko1   Заметил, что писать if then очень скучно :) Испол...   3.09.2009 20:35
SKVOZNJAK   Ну да, позволяет, но какой ценой. Специально для...   29.09.2009 3:15
Lapp   Ну да, позволяет, но какой ценой.Сколько писал на ...   29.09.2009 12:01
SKVOZNJAK   Возможно, в редких случаях это приводит к увеличе...   29.09.2009 18:21
andriano   Угу. Я вот тоже на Паскале не использовать GOTO ни...   29.09.2009 14:37
andriano   Возвращаясь к топику: Как-то пришлось писать Паска...   29.09.2009 20:06
SKVOZNJAK   Знакомая система :) В BP7 от таких программ тоже п...   29.09.2009 21:11
andriano   И это все ради того, чтобы обойтись единственным е...   29.09.2009 21:50
SKVOZNJAK   Ага, задумка была сделать программу которая обраща...   29.09.2009 22:04


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.07.2025 10:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"