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) Гоблин
;>

Вам бы все флудить, господа :) Какие-то небритые и голодные личности... брр-р. Макабр!
-----
Автору:
Вот шаблон платной программы. Дарю бесплатно. То есть безвозмездно. То есть, даром.

Program PaidProgram; var Password: string; begin WriteLn ("Введите пароль для доступа к программе."); WriteLn ("Пароль можно получить у разработчика, заплатив ему мзду."); WriteLn ("**** (с) Sim2 ****"); ReaLn (Password); if Password <> "123" then begin WriteLn ("Шиш."); Halt(1) end; // тут идет код обычной бесплатной программы .... end.

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

Soft must be Free.

Софту надо вернуться в палату...

Paid Найти похожие ветки