Текущий архив: 2005.08.14;
Скачать: CL | DM;
Вниз
Paid Найти похожие ветки
← →
Sim2 (2005-07-24 16:07) [0]У кого есть пример для написания платных программ?
← →
Essence (2005-07-24 16:11) [1]program SuperProga;
begin
Write("Платная программа!");
end.
← →
KilkennyCat © (2005-07-24 16:22) [2]program SuperPuperProga;
begin
Write("БесПлатная программа! С исходниками!");
end.
А то некоторые возмущаться начнут.
← →
SoftX (2005-07-24 17:39) [3]
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s:string;
begin
writeln("This program licensed under GNU GPL");
repeat
writeln("Are you agree with this license?(y/n)");
readln(s);
until (length(s)>0) and (UpCase(s[1])="Y");
writeln("Soft must be Free. Microsoft must die!");
end.
← →
Anatoly Podgoretsky © (2005-07-24 17:48) [4]Ты конечно должен быть свободным, но никогда им не будешь.
← →
Гаврила © (2005-07-24 17:55) [5]writeln("Soft must be Free. -->Programmers must be Hangry");
← →
Джо © (2005-07-24 17:57) [6]
> [5] Гаврила © (24.07.05 17:55)
Хе-хе, hungry ;-)
← →
Petr V. Abramov © (2005-07-25 01:11) [7]> Джо © (24.07.05 17:57) [6]
> Хе-хе, hungry ;-)
У Гаврила © такое написать рука не повернулась :)
← →
Defunct © (2005-07-25 02:19) [8]> Anatoly Podgoretsky
LOL!!!
> Джо
и hangry (u.s. жаргон angry) и hungry катит - "злыми" и "голодными" :)
и от себя добавлю - "и небритыми!" (C) Гоблин
;>
← →
Джо © (2005-07-25 02:36) [9]Вам бы все флудить, господа :) Какие-то небритые и голодные личности... брр-р. Макабр!
-----
Автору:
Вот шаблон платной программы. Дарю бесплатно. То есть безвозмездно. То есть, даром.
Program PaidProgram;
var
Password: string;
begin
WriteLn ("Введите пароль для доступа к программе.");
WriteLn ("Пароль можно получить у разработчика, заплатив ему мзду.");
WriteLn ("**** (с) Sim2 ****");
ReaLn (Password);
if Password <> "123" then
begin
WriteLn ("Шиш.");
Halt(1)
end;
// тут идет код обычной бесплатной программы
....
end.
← →
Труп Васи Доброго © (2005-07-25 10:31) [10]Пример одной офигительно популярной и дорогой программы есть у дядюшки Билли, можете купить пример этой программы баксов этак за 200-250.
← →
Ega23 © (2005-07-25 10:36) [11]Soft must be Free.
Софту надо вернуться в палату...
Страницы: 1 вся ветка
Текущий архив: 2005.08.14;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.049 c
