Блог Мудрого Кота
Советы и уроки для вебмастера, монетизация сайта и немного о SEO
Главная - Полезный софт - Программа для конкурса «Ретвитов»

Программа для конкурса «Ретвитов»

Здравствуйте дорогие друзья!
Как вы уже знаете, на моём блоге стартовало сразу два конкурса, один из которых это конкурс Ретвитов.

Программа для конкурса «Ретвитов»

Конкурсы Ретвитов становятся очень популярными в блогосфере, ведь они не только очень просты, но и очень полезны.
Проведя на своём блоге конкурс Ретвитов, вы получите хороший приток трафика с Twittera.
А поучаствовать в таком конкурсе захочет очень большое количество ваших читателей, потому что для участия им нужно будет нажать только одну кнопку.

Запустить конкурс не проблема, раскрутить тоже, а вот судить…

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

Я создал программу самостоятельно, при помощи такого языка как «Pascal».
Знающие люди начнут говорить:
Pascal – фигня, лучше программируй на Delphi и т.д.
Но ребят, зачем всё усложнять то?
Нам программка то нужна на пару действий, поэтому Pascal нам подойдёт идеально.
Да кстати я пользуюсь более новой программой под названием «Pascal ABC», у неё дизайн покрасившее будет.

Итак, для тех, кто не хочет знать о содержимом программы и том, как её редактировать (тоесть она ему нужна только на пару раз), я сразу даю вам ссылку:

Скачать программу + исходник

Минусы:
-Максимальное количество участников – 999999999; :lol:
-Программа выберет только трёх победителей (если победителей должно быть больше, то ниже я объясню что нужно исправить);

Ну, пора нам заглянуть внутрь нашей программы.
В папке «Мозги» вы найдёте исходник программы, для того чтобы открыть его вам нужно будет установить у себя на компьютере программу «Pascal ABC».
После того как вы откроете исходник вы обнаружите там вот такой вот код:

uses crt;
var k,x1,x2,x3:integer;
begin
TextBackGround(white);
TextColor(black);
ClrScr;
writeln('Программа выберет трёх победителей конкурса Ретвитов.');
writeln('Следуйте указаниям:');
writeln;
writeln('Введите колличество участников, а затем нажмите Enter');
readln(k);
x1:=random(k);
x2:=random(k);
x3:=random(k);
if x1=0 then
x1:=x1+1;
if x2=0 then
x2:=x2+1;
if x3=0 then
x3:=x3+1;
if x1=x2 then
x1:=x1+1;
if x1=x3 then
x1:=x1+1;
if x2=x3 then
x2:=x2+1;
writeln;
writeln('Победители:');
writeln;
writeln('Участник №',x1);
writeln;
writeln('Участник №',x2);
writeln;
writeln('Участник №',x3);
writeln;
writeln('Поздравляю победителей!');
readln;
end.

Я не буду расписывать, что и за что отвечает, я просто объясню как увеличить количество победителей.
:arrow:

Допустим победителей должно быть 5.

Шаг 1.
В раздел «Var» добавьте новые переменные:
x4 и x5.

Шаг 2.
После строчки x3:=random(k);

Вставляем:
X4:=random(k);
X5:=random(k);

Шаг 3.
Числа не должны быть равны 0, для этого, после строчек:
if x3=0 then
x3:=x3+1;

Вставьте:
if x4=0 then
x4:=x4+1;
if x5=0 then
x5:=x5+1;

Шаг 4.
Числа не должны быть одинаковыми, для этого после строчек:
if x2=x3 then
x2:=x2+1;

Вставьте:
if x1=x4 then
x1:=x1+1;
if x1=x5 then
x1:=x1+1;
if x2=x4 then
x2:=x2+1;
if x2=x5 then
x2:=x2+1;
if x3=x4 then
x3:=x3+1;
if x3=x5 then
x3:=x3+1;
if x4=x5 then
x4:=x4+1;

Шаг 5.
Выводим результаты.
После строчки:
writeln(‘Участник №’,x3);

Вставляем:
writeln;
writeln(‘Участник №’,x4);
writeln;
writeln(‘Участник №’,x5);

Шаг 6.
Редактируем строчку:
writeln(‘Программа выберет трёх победителей конкурса Ретвитов.’);
Вместо «трёх» пишем «пятерых».

Вот и всё. :mrgreen:

Теперь в нашем конкурсе победят не три, а 5 человек.
Я думаю, вы поняли то, что я хотел до вас донести, а если нет, то задавайте вопросы в комментариях.

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

А видео у нас сегодня про то, как создавать «Супер-популярные блоги», я думаю вам понравится, кстати видео со смыслом.

Подпишись и получай новые записи первым!

Подписаться вы можете с помощью или , но самый удобный способ это:

Ещё по теме:
FileZilla vs Total Commander — что лучше?
Социальные закладки – история, прогоны, возможности
Блог Кота теперь в Яндекс Каталоге!
Делаем перелинковку (случайные записи) без плагина, а затем продвигаемся в ТОП при помощи всё той же перелинковки
Определяем позиции сайта в поисковых системах – онлайн!
Информация о статье:
Опубликовано: 6 ноября 2011, в рубрику Полезный софт , Раскрутка.
Теги: , , , , , .

Поделись статьёй с друзьями:

Оставляя комментарий - вы автоматически принимаете участие в конкурсе комментаторов, и имеете возможность выиграть очень, классные призы!
I место - Сквозняк!
II место - Заметка!
III место - 200 Рублей!
Подробнее о конкурсе тут.

Оставь коммент, не будь бякой!

  • fuck_blogspot
    07.11.2011

    Pascal – фигня, лучше программируй на Delphi!
    зы: зачот :-o

    [Ответить]

  • Таня
    08.11.2011

    Pascal не фигня, просто в нем сложнее работать по сравнению с Delphi!!!
    Видео кстати прикольное, только качество немножко подкачало)

    [Ответить]

  • 09.11.2011

    Ну видео старенькое, я его несколько лет назад на просторах интернета нашёл :lol:

    [Ответить]

  • Свекровушка
    05.01.2012

    Спасибо за программу. Попробую использовать. Вас позову обязательно.

    [Ответить]

  • Свекровушка
    08.01.2012

    А можно сделать так, чтобы программа считала ретвиты не одной записи, а всех? Хочу сделать конкурс ретвитов на кулинарном блоге чтобы узнать какой рецепт наиболее популярный

    [Ответить]

    Мудрый Кот ответил(а):

    Она просто выбирает три случайных числа и всё, а для того чтобы узнать какой популярнее поставьте плагин считающий количество просмотров и выводящее топ 10 популярных записей

    [Ответить]

    Свекровушка ответил(а):

    Мне просто хотелось стимулировать читателей делать ретвиты не одной записи, а нескольких. :)

    [Ответить]



:wink: :twisted: :roll: :oops: :lol: :evil: :cry: :arrow: :?: :-| :-x :-o :-P :-D :-? :) :( :!: 8-O 8)

*


Подпишись на обновления блога:

RSS    twitter    e-mail


116 подписчиков

100 фолловеров


Подробно:

Как создать сайт с онлайн фильмами
Как создать сайт с онлайн фильмами
Создание

Раскрутка

Монетизация



Как создать шаблон и дизайн для сайта
Как создать шаблон и дизайн для сайта
Макет

Разметка

Вёрстка


  • Лучшее
  • Советую
  • Новое

Я читаю:

Записки ночного блогера
Blogger.omg-linux
telderi.ru, и еще много других